haunt.scm, local/theme.scm: fixed some local links

haunt.scm

@@ -22,7 +22,7 @@
                 sxml->html))))
 
 (define (local-post-slug post)
-  (string-append (date->string (post-date post) "~Y/~m/")
+  (string-append (date->string (post-date post) "/~Y/~m/")
                  (basename (post-file-name post) ".md")))
 
 (site #:title "#faui2k17"

local/theme.scm

@@ -36,7 +36,7 @@
            (span ,@(if (and site prefix)
                        `(" "
                          ,(link "Permalink"
-                                (format #f "/~a/~a.html"
+                                (format #f "~a/~a.html"
                                         prefix (site-post-slug site post)))
                          " | ")
                        '(""))