12 lines
356 B
Scheme
12 lines
356 B
Scheme
;;; Text generation utilities.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(define (time->http-date-string time)
|
|
(format-date "~A, ~d-~b-~y ~H:~M:~S GMT" (date time 0)))
|
|
|
|
(define (title-html out message)
|
|
(format out "<HEAD>~%<TITLE>~%~A~%</TITLE>~%</HEAD>~%~%" message)
|
|
(format out "<BODY>~%<H1>~A</H1>~%" message))
|
|
|
|
|