summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorthintz <thintz@hotpads.com>2014-02-13 15:20:10 -0800
committerthintz <thintz@hotpads.com>2014-02-13 15:20:10 -0800
commit659a59bd999edf4def8d13dc829e3768e2c5a9fb (patch)
tree80bc46360db48c09fde316b953f0ee1df85aa550
parent69a6f9c3ffa5062e0c88c49203eb8bb39a5478d8 (diff)
downloadalley-cat-659a59bd999edf4def8d13dc829e3768e2c5a9fb.tar.gz
Add js func.HEADmaster
-rw-r--r--alley-cat.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/alley-cat.scm b/alley-cat.scm
index 6872a15..1b2aadd 100644
--- a/alley-cat.scm
+++ b/alley-cat.scm
@@ -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))