Use new flat page and redirect features in Haunt!

1 files changed, 16 insertions, 41 deletions

diff --git a/haunt.scm b/haunt.scm
index 961ad0a..efdda02 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -18,50 +18,21 @@
              (haunt builder blog)
              (haunt builder atom)
              (haunt builder assets)
+             (haunt builder flat-pages)
+             (haunt builder redirects)
              (haunt post)
              (haunt publisher rsync)
              (haunt site)
              (markdown)
              (projects)
+             ((redirects) #:prefix dthompson:)
              (theme)
              (utils))
 
-(define %collections
-  `(("Recent Blog Posts" "index.html" ,posts/reverse-chronological)))
-
-(define about-page
-  (static-page
-   "About Me"
-   "about.html"
-   `((h2 "Hi.")
-     (p "I am a professional software developer.  I like to write
-programs in Scheme in my free time, such as the software that built
-this website.")
-     (p "I also like to garden and make things out of wood.")
-     (p "If you're into social media, you can follow me on "
-        ,(anchor "Mastodon" "https://toot.cat/@dthompson") "."))))
+(define post-prefix "/posts")
 
-(define projects-page
-  (static-page
-   "Projects"
-   "projects.html"
-   `((h1 "Projects")
-     (p ,(anchor "Haunt" "projects/haunt.html")
-        " — Functional, hackable static site generator")
-     (p ,(anchor "Chickadee" "projects/chickadee.html")
-        " — Game development toolkit for Guile Scheme")
-     (p ,(anchor "guile-SDL2" "projects/guile-sdl2.html")
-        " — SDL2 bindings for Guile Scheme")
-     (p ,(anchor "guile-syntax-highlight" "projects/guile-syntax-highlight.html")
-        " — Syntax highlighting library for Guile Scheme")
-     (p ,(anchor "guile-websocket" "projects/guile-websocket.html")
-        " — WebSocket library for Guile Scheme")
-     (p ,(anchor "Shroud" "projects/shroud.html")
-        " — GPG-based password manager (inactive)")
-     (p ,(anchor "Sly" "projects/sly.html")
-        " — Functional reactive game engine (abandoned)")
-     (p ,(anchor "srt2vtt" "projects/srt2vtt.html")
-        " — SRT to WebVTT subtitle converter"))))
+(define collections
+  `(("Recent Blog Posts" "index.html" ,posts/reverse-chronological)))
 
 (site #:title "dthompson"
       #:domain "dthompson.us"
@@ -69,12 +40,15 @@ this website.")
       '((author . "David Thompson")
         (email  . "davet@gnu.org"))
       #:readers (list commonmark-reader*)
-      #:builders (list (blog #:theme dthompson-theme #:collections %collections
+      #:builders (list (blog #:theme dthompson-theme
+                             #:collections collections
+                             #:post-prefix post-prefix
                              #:posts-per-page 10)
-                       (atom-feed)
-                       (atom-feeds-by-tag)
-                       about-page
-                       projects-page
+                       (redirects dthompson:redirects)
+                       (atom-feed #:blog-prefix post-prefix)
+                       (atom-feeds-by-tag #:blog-prefix post-prefix)
+                       (flat-pages "pages"
+                                   #:template (theme-layout dthompson-theme))
                        chickadee-page
                        sly-page
                        guile-sdl2-page
@@ -92,4 +66,5 @@ this website.")
                        (static-directory "manuals"))
       #:publishers (list (rsync-publisher #:destination "/var/www/blog"
                                           #:user "publish"
-                                          #:host "dthompson.us")))
+                                          #:host "dthompson.us"))
+      #:make-slug post-slug-v2)