|
|
@ -17,31 +17,17 @@ |
|
|
|
|
|
|
|
|
|
|
|
(load "./src/components/header.scm") |
|
|
|
(load "./src/components/header.scm") |
|
|
|
(load "./src/components/footer.scm") |
|
|
|
(load "./src/components/footer.scm") |
|
|
|
|
|
|
|
(load "./src/templates/clean.scm") |
|
|
|
|
|
|
|
|
|
|
|
(define (default-tpl |
|
|
|
(define (default-tpl |
|
|
|
page-title |
|
|
|
page-title |
|
|
|
page-content |
|
|
|
page-content |
|
|
|
page-name |
|
|
|
page-name |
|
|
|
page-desc |
|
|
|
page-desc |
|
|
|
#!optional (page-styles '()) (page-scripts '())) |
|
|
|
#!optional (page-styles '()) (page-scripts '()) (page-meta '())) |
|
|
|
`(html (@ (xmlns "http://www.w3.org/1999/xhtml") |
|
|
|
(clean-tpl |
|
|
|
(xml:lang "en") |
|
|
|
page-title |
|
|
|
(lang "en")) |
|
|
|
`(div (@ (class "wrapper")) |
|
|
|
(head |
|
|
|
|
|
|
|
(meta (@ (http-equiv "Content-Type") |
|
|
|
|
|
|
|
(content "text/html; charset=ascii"))) |
|
|
|
|
|
|
|
(meta (@ (name "viewport") |
|
|
|
|
|
|
|
(content "width=device-width, initial-scale=1"))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
,(map (lambda (l) |
|
|
|
|
|
|
|
`(link (@ (rel "stylesheet") (href ,l)))) |
|
|
|
|
|
|
|
page-styles) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(link (@ (rel "stylesheet") (href "/style.css"))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(title ,title)) |
|
|
|
|
|
|
|
(body |
|
|
|
|
|
|
|
(div (@ (class "wrapper")) |
|
|
|
|
|
|
|
,header |
|
|
|
,header |
|
|
|
(hr) |
|
|
|
(hr) |
|
|
|
|
|
|
|
|
|
|
@ -51,5 +37,9 @@ |
|
|
|
,page-content) |
|
|
|
,page-content) |
|
|
|
|
|
|
|
|
|
|
|
(hr) |
|
|
|
(hr) |
|
|
|
,footer |
|
|
|
,footer) |
|
|
|
,(map (lambda (l) `(script (@ (src ,l)))) page-scripts))))) |
|
|
|
(append |
|
|
|
|
|
|
|
'("/style.css") |
|
|
|
|
|
|
|
page-styles) |
|
|
|
|
|
|
|
page-scripts |
|
|
|
|
|
|
|
page-meta)) |
|
|
|