X-Git-Url: https://git.shemshak.org/~bandali/bndl.org/blobdiff_plain/577bfe36d675e89cf680abcf81d12ef4fc2b750a..22cb271b429d98b1238b316cc2f317685c03c2c5:/haunt.scm?ds=sidebyside diff --git a/haunt.scm b/haunt.scm index bb6079e..dbb34c1 100644 --- a/haunt.scm +++ b/haunt.scm @@ -66,14 +66,16 @@ (string-append (or prefix "") "/" (site-post-slug site post) ".html")) - `((h3 ,title) - (ul - ,@(map (lambda (post) - `(li - ,(aa (post-ref post 'title) (post-uri post)) - " — " - ,(date->string (post-date post) my-date-format))) - posts)))) + `((h2 ,title) + (table + (@ (class "post-list")) + (tbody + ,@(map (lambda (post) + `(tr + (td ,(aa (post-ref post 'title) (post-uri post))) + (td (@ (style "font-size: 0.875em;")) + ,(date->string (post-date post) my-date-format)))) + posts))))) (define bandali-theme (theme #:name "bandali" @@ -193,6 +195,9 @@ (dd "Library and CLI for converting TeX and LaTeX to PNG " "images")) (h2 (@ (id "notes")) "Notes") + (p "Here are notes about a variety of topics and issues I care " + "about. They’re also available via " ,(aa "Atom" "feed.atom") + " and " ,(aa "RSS" "feed.rss") " feeds.") (table (@ (class "post-list")) (tbody @@ -203,8 +208,8 @@ (site-post-slug site post) ".html")) `(tr (td ,(aa (post-ref post 'title) (post-uri post))) - (td (@ (style "font-size: 0.875em;")) - ,(date->string (post-date post) my-date-format)))) + (td (small + ,(date->string (post-date post) my-date-format))))) (take-up-to 10 (posts/reverse-chronological posts))))))) (define (index-page site posts)