diff options
| -rw-r--r-- | haunt/jakob/builder/blog.scm | 2 | ||||
| -rw-r--r-- | haunt/jakob/builder/blogroll.scm | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/haunt/jakob/builder/blog.scm b/haunt/jakob/builder/blog.scm index 5c83bd3..84a687e 100644 --- a/haunt/jakob/builder/blog.scm +++ b/haunt/jakob/builder/blog.scm @@ -48,7 +48,7 @@ (define (render-article post) "Return the SHTML for POST's contents." #<(main - `(h1 ,(post-ref post 'title)) + (h1 ,(post-ref post 'title)) (p ,(date->string (post-date post) "~B ~d, ~Y") " ❖ " "Tags: " diff --git a/haunt/jakob/builder/blogroll.scm b/haunt/jakob/builder/blogroll.scm index 866ee2b..53a0ecc 100644 --- a/haunt/jakob/builder/blogroll.scm +++ b/haunt/jakob/builder/blogroll.scm @@ -84,9 +84,9 @@ each tag is used." (define* (render-entries title prefix entries #:optional tag) "Return an SHTML document listing ENTRIES in PREFIX, with a header of TITLE." #<(main - `(h1 ,(if tag - (format #f "~a - Tagged with \"~a\"" title tag) - title)) + (h1 ,(if tag + (format #f "~a - Tagged with \"~a\"" title tag) + title)) ,(unless tag (render-tag-cloud prefix entries)) ,(unless tag `(hr)) ,@(map (lambda (entry) |