Unverified Commit fa44707c authored by Philip Kaludercic's avatar Philip Kaludercic 🌝
Browse files

changed default post slug

parent 1f2c60d1
...@@ -11,7 +11,8 @@ ...@@ -11,7 +11,8 @@
(local micronews paged-blog) (local micronews paged-blog)
(local theme) (local theme)
(local common) (local common)
(local pages)) (local pages)
(srfi srfi-19))
(define* (static-page name title sxml #:key (theme local-site-theme)) (define* (static-page name title sxml #:key (theme local-site-theme))
(lambda (site posts) (lambda (site posts)
...@@ -20,9 +21,14 @@ ...@@ -20,9 +21,14 @@
((theme-layout theme) site title sxml) ((theme-layout theme) site title sxml)
sxml->html)))) sxml->html))))
(define (local-post-slug post)
(string-append (date->string (post-date post) "~s-")
(basename (post-file-name post) ".md")))
(site #:title "#faui2k17" (site #:title "#faui2k17"
#:domain "faui2k17.de" #:domain "faui2k17.de"
#:readers (list commonmark-reader) #:readers (list commonmark-reader)
#:make-slug local-post-slug
#:builders (list (paged-blog #:theme local-site-theme #:builders (list (paged-blog #:theme local-site-theme
#:prefix "post") #:prefix "post")
(atom-feed #:blog-prefix "post") (atom-feed #:blog-prefix "post")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment