Add js func.

11 years ago · 659a59bd99
parent 69a6f9c3ff
commit 659a59bd99
1 changed files with 4 additions and 1 deletions
--- 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))