16 lines
550 B
Common Lisp
16 lines
550 B
Common Lisp
(load "./templates/header.lisp")
|
|
(load "./templates/footer.lisp")
|
|
|
|
(defun page (title html)
|
|
`(html (:lang "en")
|
|
(head ()
|
|
(meta (:http-equiv "content-type" :content "text/html; charset=utf-8"))
|
|
(meta (:name "viewport" :content "width=device-width, initial-scale=1"))
|
|
(link (:rel "stylesheet" :href "/style.css"))
|
|
(title () ,title))
|
|
(body ()
|
|
,(header)
|
|
(main ()
|
|
,html)
|
|
,(footer))))
|