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  $