cripslock

commit 05c190cb618365216a876992fd8234f78a908d49
parent 6a00cdb30156d02b71351816a306153ec236bb43
Author: Daniel Barlow <dan@telent.net>
Date:   Sun, 27 Jul 2025 21:58:44 +0100

allow sliug header in frontmatter

Diffstat:
M
site.fnl
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/site.fnl b/site.fnl
@@ -105,12 +105,13 @@
           (with-open [f (io.open fullname)]
             (let [fields (frontmatter f)
                   title (or fields.subject fields.title)
-                  slug (slug-for title)]
+                  slug (or fields.slug (slug-for title))
               (values slug
                       (doto fields
                         (tset :path name)
                         (tset :full-path fullname)
                         (tset :url-path (.. "/" slug))
+                        (tset :slug slug)
                         (tset :title title)
                         (tset :body-offset (f:seek :cur 0))
                         (tset :date (and fields.date (parse-timestamp fields.date)))))))))))