; Chicken Scheme site generator
(require-extension sxml-transforms)

(define index
  `(html
     (head
       (title "title")
       (meta (@ (charset "UTF-8")))
       (link (@ (rel "stylesheet")
                (href "css/style.css"))))
     (body
       (div (@ (class "container"))
            (print (call-with-input-file "intro.html")))

       (div (@ (class "small-container")) (h2 "header")))))

(with-output-to-file
  "index.html"
  (lambda () (display (SXML->HTML index))))