(define-module (kreten templates)
  #:use-module (haunt site)
  #:export (base-tmpl))

(define* (base-tmpl site body #:key title)
  `((doctype "html")
    (html
     (head
      (meta (@ (charset "utf-8")))
      (title ,(if title
                  (string-append title " [" (site-title site) "]")))
      (link (@ (rel "stylesheet")
               (type "text/css")
               (href "css/stil.css"))))
     (body
      (header (@ (class "sajt-glava"))
       (h1 (a (@ (href "/"))
              ,(site-title site)))
       (nav (@ (class "glavna-navigacija"))
            (ul
             (li (a (@ (href "/objave")) "Zadnje objave"))
             (li (a (@ (href "/projekti")) "Projekti"))
             (li (a (@ (href "/razno")) "Razno")))))
      ,body
      (footer (@ (class "sajt-noga"))
              "Izgranjeno s "
              (a (@ (href "https://dthompson.us/projects/haunt.html")
                    (target "_blank")))
              " v "
              (a (@ (href "https://www.gnu.org/software/guile/")
                    (target "_blank"))
                 "GNU Guile")
              " schemu. "
              (a (@ (href "https://git.kompot.si/g1smo/kreten-plus")
                    (target "_blank"))
                 "skrajn🄯lev🄯"))))))