From 664380eb29e50a662df9374ed6d41910605b2054 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Sun, 29 Jan 2017 20:36:40 +0100 Subject: [PATCH] Show tags in every post --- haunt.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/haunt.scm b/haunt.scm index 07b2a79..068f123 100644 --- a/haunt.scm +++ b/haunt.scm @@ -46,15 +46,23 @@ " " (li (a (@ (class "sc-rss") (target "_blank") (href "/feed.xml")) (i (@ (class "fa fa-rss"))))))))) (main ,body)))) + #:post-template (lambda (post) + (define (get-tags post) + (or (assoc-ref (post-metadata post) 'tags) '())) + `((article (@ (class "single")) (header (h1 ,(post-ref post 'title)) (p ,(date->string* (post-date post)))) ,(post-sxml post) (div (@ (class "tag-cloud")) - (p (a (@ (href "")) "prueba")))))) + (p + ,@(map (lambda (tag) + `((a (@ (href "")) ,tag) " ")) + (get-tags post))))))) + #:collection-template (lambda (site title posts prefix) (define (post-uri post) -- 2.39.2