")") '()))
,(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)