7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
32 lines
738 B
Scheme
32 lines
738 B
Scheme
#lang scheme/base
|
|
(require scribble/manual
|
|
scribble/eval
|
|
(for-label scheme/base
|
|
scheme/contract
|
|
scheme/unit))
|
|
|
|
(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-out scribble/manual)
|
|
(all-from-out scribble/eval)
|
|
(for-label (all-from-out scheme/base
|
|
scheme/contract
|
|
scheme/unit))
|
|
web-server
|
|
author
|
|
warning
|
|
href-link)
|