tweak wording on index, add rss, adjust feed file-names

[~bandali/bndl.org] / haunt.scm

diff --git a/haunt.scm b/haunt.scm
index be470cd..49db025 100644 (file)
--- a/haunt.scm
+++ b/haunt.scm
@@ -2,6 +2,7 @@
              (haunt builder blog)
              (haunt builder atom)
              (haunt builder assets)
+             (haunt builder rss)
              (haunt html)
              (haunt page)
              (haunt post)
@@ -106,19 +107,22 @@
        ".  I’m a "
        (a (@ (href "https://www.gnu.org/philosophy/free-sw.html"))
           "Free Software")
-       " activist and FSF "
-       (a (@ (href "https://www.fsf.org/associate/")) "supporter")
-       ", and a GNU "
+       " activist, a GNU "
        (a (@ (href "https://www.gnu.org/people/#bandali"))
           "maintainer")
        " and "
        (a (@ (href "https://www.gnu.org/people/webmeisters.html#bandali"))
           "webmaster")
+       ", and an "
+       (a (@ (href "https://www.fsf.org/associate/"))
+          "associate member")
+       " of the " (a (@ (href "https:///www.fsf.org")
+                        (title "Free Software Foundation")) "FSF")
        ".  I co-host the "
        (a (@ (href "https://emacsel.com")) "Emacs.el")
        " podcast with "
-       (a (@ (href "https://www.pygopar.com"))
-          "Daniel Gopar") ", and organize "
+       (a (@ (href "https://www.pygopar.com")) "Daniel Gopar")
+       ", and organize "
        (a (@ (href "https://emacsconf.org")) "EmacsConf") " with help"
        " from many wonderful people.  I am also a member of the"
        " Systems Committee for the "
@@ -197,17 +201,20 @@
      (dd "Library and CLI for converting TeX and LaTeX to PNG "
          "images"))
     (h2 (@ (id "notes")) "Notes")
-    (ul
+    (table
+     (@ (class "post-list"))
+     (tbody
      ,@(map
         (lambda (post)
           (define (post-uri post)
             (string-append "/"
                            (site-post-slug site post) ".html"))
-          `(li
-            (a (@ (href ,(post-uri post)))
-               ,(post-ref post 'title))
-            " — " ,(date->string (post-date post) "~B ~d, ~Y")))
-        (take-up-to 10 (posts/reverse-chronological posts))))))
+          `(tr
+            (td (a (@ (href ,(post-uri post)))
+                   ,(post-ref post 'title)))
+            (td (@ (style "font-size: 0.875em;"))
+             ,(date->string (post-date post) "~B ~d, ~Y"))))
+        (take-up-to 10 (posts/reverse-chronological posts)))))))
 
 (define (index-page site posts)
   (make-page
@@ -229,6 +236,10 @@
                              `(("Notes" "notes.html"
                                 ,posts/reverse-chronological)))
                        index-page
-                       (atom-feed)
-                       (atom-feeds-by-tag)
+                       (atom-feed
+                        #:file-name "feed.atom")
+                       (atom-feeds-by-tag
+                        #:prefix "tags")
+                       (rss-feed
+                        #:file-name "feed.rss")
                        (static-directory "static" "")))