diff options
Diffstat (limited to 'jakob/theme.scm')
| -rw-r--r-- | jakob/theme.scm | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/jakob/theme.scm b/jakob/theme.scm index a3e3019..439b066 100644 --- a/jakob/theme.scm +++ b/jakob/theme.scm @@ -135,19 +135,16 @@ (a (@ (href "/blog/usb-pd-is-pretty-cool.html#comment-reply")) "This is a lifesaver for field work. Have you...")))))) -(define* (sidebar #:optional modules) - ) - (define %footer - (define year (date-year (current-date))) - `(footer (@ (class "site-footer")) - (img (@ (src "/static/image/cc-by-sa-4.0.png") - (alt "Creative Commons BY-SA 4.0"))) - "©" - (time (@ (datetime "2015")) "2015") - " - " - (time (@ (datetime ,year)) ,year)/ - " Jakob L. Kreuze")) + (let ((year (date-year (current-date)))) + `(footer (@ (class "site-footer")) + (img (@ (src "/static/image/cc-by-sa-4.0.png") + (alt "Creative Commons BY-SA 4.0"))) + "©" + (time (@ (datetime "2015")) "2015") + " - " + (time (@ (datetime ,year)) ,year)/ + " Jakob L. Kreuze"))) (define* (theme #:key (title '()) @@ -156,7 +153,7 @@ (meta '()) (scripts '()) (content '(div "")) - (sidebar '())) + (sidebar #f)) "Return an SHTML document using the website's theme." `((doctype "html") (html @@ -199,6 +196,10 @@ (aside (@ (class "sidebar")) ,@(or sidebar %default-sidebar-modules)) (main (@ (class "main-content")) - ,content) + ,(if (and (list? content) + (positive? (length content)) + (symbol? (first content))) + `(,content) + content)) ,@scripts) ,%footer))))) |