Add js func.

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))