hyde stuff added by carl on Sat Jun 9 16:36:34 2012
~/Projects/carl/site1 $ cat hyde.scm (use hyde posix srfi-1 environments) (define root-path (make-parameter (string-append (current-directory) "/" (output-dir) "/"))) (pp (root-path)) ~/Projects/carl/site1 $ cat layouts/default.sxml () `((xhtml-1.0-strict) (html (@ (xmlns "http://www.w3.org/1999/xhtml")) (head (link (@ (href ,(root-path) "base-style.css") (rel "stylesheet") (type "text/css"))) (title ,($ 'title))) (body ;(div (@ class "navigation")) (h1 ,($ 'title)) (inject ,contents)))) ~/Projects/carl/site1 $