From 6d769eff7f37a079f5915dbd77e24ce428e5f5ce Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Thu, 19 Dec 2019 21:57:51 -0500 Subject: [PATCH] add `title' to post tags, ask people to email me directly for now --- bandali/theme.scm | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) diff --git a/bandali/theme.scm b/bandali/theme.scm index d6e4ef2..e2b2375 100644 --- a/bandali/theme.scm +++ b/bandali/theme.scm @@ -91,24 +91,17 @@ ")") '())) ,(if (post-ref post 'tags) `(p (@ (class "tags")) - "Tagged " ,@(intersperse (map (lambda (tag) - (aa tag (tag-uri my-tag-prefix tag))) + (aa tag (tag-uri my-tag-prefix tag) + "Notes tagged ‘" tag "’")) (post-ref post 'tags)) ", ")) '())) ,(post-sxml post) (p (@ (class "muted inbox")) - "Have a question or comment? Start a discussion in my " - ,(aa "public inbox" "https://lists.sr.ht/~bandali/public-inbox") - " by sending an email to " - ,(aa "~bandali/public-inbox@lists.sr.ht" - "mailto:~bandali/public-inbox@lists.sr.ht") - (small - " [" ,(aa "mailing list etiquette" - "https://man.sr.ht/lists.sr.ht/etiquette.md") "]") - "."))) + "Got a question or comment? Write to me at my email address " + "at the top of this page!"))) (define* (my-collection-template site title posts prefix #:optional all-posts tag) -- 2.20.1