diff options
| author | thintz <thintz@hotpads.com> | 2014-02-13 15:20:10 -0800 |
|---|---|---|
| committer | thintz <thintz@hotpads.com> | 2014-02-13 15:20:10 -0800 |
| commit | 659a59bd999edf4def8d13dc829e3768e2c5a9fb (patch) | |
| tree | 80bc46360db48c09fde316b953f0ee1df85aa550 | |
| parent | 69a6f9c3ffa5062e0c88c49203eb8bb39a5478d8 (diff) | |
| download | alley-cat-659a59bd999edf4def8d13dc829e3768e2c5a9fb.tar.gz | |
| -rw-r--r-- | alley-cat.scm | 5 |
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)) |