add `title' to post tags, ask people to email me directly for now
authorAmin Bandali <bandali@gnu.org>
Fri, 20 Dec 2019 02:57:51 +0000 (21:57 -0500)
committerAmin Bandali <bandali@gnu.org>
Fri, 20 Dec 2019 02:57:51 +0000 (21:57 -0500)
bandali/theme.scm

index d6e4ef2..e2b2375 100644 (file)
                ")") '()))
      ,(if (post-ref post 'tags)
           `(p (@ (class "tags"))
                ")") '()))
      ,(if (post-ref post 'tags)
           `(p (@ (class "tags"))
-              "Tagged "
               ,@(intersperse
                  (map (lambda (tag)
               ,@(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"))
                       (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)
 
 (define* (my-collection-template site title posts prefix
                                  #:optional all-posts tag)