12 lines
230 B
Scheme
12 lines
230 B
Scheme
;;; incl/header.scm
|
|
|
|
;; A title and a list of links to display at the top of the page
|
|
|
|
(define (make-link uri)
|
|
(if (pair? uri)
|
|
`(a ,(car uri) ,(cdr uri))
|
|
`(a ,uri)))
|
|
|
|
`((h1 ,title)
|
|
,@(map make-link header-uris)
|
|
(p))
|