Change 'make-slug function

1 files changed, 8 insertions, 0 deletions

diff --git a/haunt.scm b/haunt.scm
index d171f98..7fd9355 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -72,6 +72,14 @@
       #:default-metadata
       '((author . "Jakob L. Kreuze")
         (email  . "zerodaysfordays@sdf.lonestar.org"))
+      #:make-slug (lambda (post)
+                    (let* ((file-name (post-file-name post))
+                           (splice-start (+ (string-rindex file-name
+                                                           (cut char=? <> #\/))
+                                            1))
+                           (splice-end (string-rindex file-name
+                                                      (cut char=? <> #\.))))
+                      (substring file-name splice-start splice-end)))
       #:readers (list html-reader-prime)
       #:builders (list (blog #:theme jakob-theme #:collections %collections)
                        (article-aliases %aliases)