Update useful.scm
parent
2e0b3888d9
commit
c9538946c7
|
@ -122,9 +122,9 @@
|
||||||
(define (header-box)
|
(define (header-box)
|
||||||
`(div (@ (id "block"))
|
`(div (@ (id "block"))
|
||||||
(p "+>---------------------------<+")
|
(p "+>---------------------------<+")
|
||||||
(p ,(link* "About" "/about.html")--
|
(p ,(link* "About" "/site/about.html")--
|
||||||
,(link* "Research" "/research.html")--
|
,(link* "Research" "/site/research.html")--
|
||||||
,(link* "Miscellany" "/misc.html"))
|
,(link* "Miscellany" "/site/misc.html"))
|
||||||
(p "+>---------------------------<+")
|
(p "+>---------------------------<+")
|
||||||
(br)))
|
(br)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue