17 lines
419 B
Racket
17 lines
419 B
Racket
#lang racket
|
|
(require racket/date)
|
|
|
|
(provide (except-out (all-from-out racket)
|
|
#%module-begin)
|
|
(rename-out [module-begin #%module-begin])
|
|
now)
|
|
|
|
(define-syntax-rule (module-begin expr ...)
|
|
(#%module-begin
|
|
(define page `(html expr ...))
|
|
(provide page)))
|
|
|
|
(define (now)
|
|
(parameterize ([date-display-format 'iso-8601])
|
|
(date->string (seconds->date (current-seconds)))))
|