diff options
| -rw-r--r-- | theme.scm | 45 |
1 files changed, 23 insertions, 22 deletions
@@ -93,19 +93,20 @@ free culture works available under the " ,%cc-by-sa-link " license.") ".")))))) #:post-template (lambda (post) - `((h1 (@ (class "title")),(post-ref post 'title)) - (div (@ (class "date")) - ,(date->string (post-date post) - "~B ~d, ~Y")) - (div (@ (class "tags")) - "Tags:" - (ul ,@(map (lambda (tag) - `(li (a (@ (href ,(string-append "/feeds/tags/" - tag ".xml"))) - ,tag))) - (assq-ref (post-metadata post) 'tags)))) - (div (@ (class "post")) - ,(post-sxml post)))) + `((article + (h1 (@ (class "title")),(post-ref post 'title)) + (div (@ (class "date")) + ,(date->string (post-date post) + "~B ~d, ~Y")) + (div (@ (class "tags")) + "Tags:" + (ul ,@(map (lambda (tag) + `(li (a (@ (href ,(string-append "/feeds/tags/" + tag ".xml"))) + ,tag))) + (assq-ref (post-metadata post) 'tags)))) + (div (@ (class "post")) + ,(post-sxml post))))) #:collection-template (lambda (site title posts prefix) (define (post-uri post) @@ -116,15 +117,15 @@ free culture works available under the " ,%cc-by-sa-link " license.") (img (@ (class "feed-icon") (src "images/feed.png"))))) ,(map (lambda (post) (let ((uri (post-uri post))) - `(div (@ (class "summary")) - (h2 (a (@ (href ,uri)) - ,(post-ref post 'title))) - (div (@ (class "date")) - ,(date->string (post-date post) - "~B ~d, ~Y")) - (div (@ (class "post")) - ,(first-paragraph post)) - (a (@ (href ,uri)) "read more →")))) + `(article (@ (class "summary")) + (h2 (a (@ (href ,uri)) + ,(post-ref post 'title))) + (div (@ (class "date")) + ,(date->string (post-date post) + "~B ~d, ~Y")) + (div (@ (class "post")) + ,(first-paragraph post)) + (a (@ (href ,uri)) "read more →")))) posts))) #:pagination-template (lambda (site body previous-page next-page) |