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

(define index
  `(html
     (head
       (title "iiv's space")
       (meta (@ (charset "UTF-8")))
       (link (@ (rel "stylesheet")
                (href "css/style.css")))
       (link (@ (rel "icon")
                (type "image/png")
                (href "favicon.png")))
       (link (@ (rel "stylesheet")
                (href "https://fonts.googleapis.com/css?family=Lato"))))
     (body
       (h1 "iiv's playground")
       (div (@ (class "container"))
           ,(call-with-input-file "intro.md" markdown->sxml))            
       (div (@ (class "small-container"))
            ,(call-with-input-file "about.md" markdown->sxml))
       (div (@ (class "small-container"))
            ,(call-with-input-file "projects.md" markdown->sxml))
       (br)
       (a (@ (href "#top")) "Go to top" (br))
       ("Thanks to " (a (@ (href "http://skylab.org")) "skylab.org ") "for hosting this website."(br))
       ("Last updated: " ,(time->string (seconds->local-time) "%Y-%m-%d")))))

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