changed default post slug

haunt.scm

@@ -11,7 +11,8 @@
 			 (local micronews paged-blog)
 			 (local theme)
 			 (local common)
-			 (local pages))
+			 (local pages)
+			 (srfi srfi-19))
 
 (define* (static-page name title sxml #:key (theme local-site-theme))
   (lambda (site posts)
@@ -20,9 +21,14 @@
 				((theme-layout theme) site title sxml)
 				sxml->html))))
 
+(define (local-post-slug post)
+  (string-append (date->string (post-date post) "~s-")
+				 (basename (post-file-name post) ".md")))
+
 (site #:title "#faui2k17"
       #:domain "faui2k17.de"
       #:readers (list commonmark-reader)
+	  #:make-slug local-post-slug
       #:builders (list (paged-blog #:theme local-site-theme
 								   #:prefix "post")
 					   (atom-feed #:blog-prefix "post")