From 659a59bd999edf4def8d13dc829e3768e2c5a9fb Mon Sep 17 00:00:00 2001
From: thintz <thintz@hotpads.com>
Date: Thu, 13 Feb 2014 15:20:10 -0800
Subject: [PATCH] Add js func.

---
 alley-cat.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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