25 lines
592 B
Scheme
25 lines
592 B
Scheme
(module web-server mzscheme
|
|
(require (lib "manual.ss" "scribble")
|
|
(lib "eval.ss" "scribble"))
|
|
|
|
(define web-server "Web Server")
|
|
|
|
; XXX Format better
|
|
(define (author x)
|
|
(elem (hspace 4)
|
|
(bold x)))
|
|
|
|
; XXX Format better
|
|
(define (warning . x)
|
|
(apply elem "Warning:" x))
|
|
|
|
; XXX Actually display link
|
|
(define (href-link url label)
|
|
(elem label " (" url ")"))
|
|
|
|
(provide (all-from (lib "manual.ss" "scribble"))
|
|
(all-from (lib "eval.ss" "scribble"))
|
|
web-server
|
|
author
|
|
warning
|
|
href-link)) |