tjhintz/alley-cat
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add js func.

Browse Source
This commit is contained in:
thintz
2014-02-13 15:20:10 -08:00
parent 69a6f9c3ff
commit 659a59bd99
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
alley-cat.scm
View File

@@ -7,7 +7,7 @@
sxml->html sxml->html
; helper functions ; helper functions
markdown-file->sxml link link-list css markdown-file->sxml link link-list css js
; core functions ; core functions
add-page! delete-page! add-css! delete-css! add-page! delete-page! add-css! delete-css!
@@ -63,6 +63,9 @@
(define (css path) (define (css path)
`(link (@ (rel "stylesheet") (href ,(++ (link-root) path))))) `(link (@ (rel "stylesheet") (href ,(++ (link-root) path)))))
(define (js path)
`(script (@ (type "text/javascript") (src ,(++ (link-root) path)))))
(define (add-page! path body) (define (add-page! path body)
(hash-table-set! *pages* path body)) (hash-table-set! *pages* path body))