2022-08-16 01:01:22 +02:00
|
|
|
(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
|
2022-08-16 22:40:42 +02:00
|
|
|
(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🄯"))))))
|
