Add js func.

master
thintz 10 years ago
parent 69a6f9c3ff
commit 659a59bd99

@ -7,7 +7,7 @@
sxml->html
; helper functions
markdown-file->sxml link link-list css
markdown-file->sxml link link-list css js
; core functions
add-page! delete-page! add-css! delete-css!
@ -63,6 +63,9 @@
(define (css path)
`(link (@ (rel "stylesheet") (href ,(++ (link-root) path)))))
(define (js path)
`(script (@ (type "text/javascript") (src ,(++ (link-root) path)))))
(define (add-page! path body)
(hash-table-set! *pages* path body))

Loading…
Cancel
Save