diff --git a/src/indices.lisp b/src/indices.lisp index 77190ec..f86ad01 100644 --- a/src/indices.lisp +++ b/src/indices.lisp @@ -33,8 +33,8 @@ (defun write-index (posts filename title &optional prev next) "Write out the HTML for POSTS to FILENAME.html." (let ((content (loop for post in posts - collect (list :url (format nil "~a/posts/~a.html" - (domain *config*) (post-slug post)) + collect (list :url (format nil "~a/posts/~a" + (domain *config*) (post-url post)) :title (post-title post) :date (post-date post) :content (render-content (post-content post) diff --git a/src/posts.lisp b/src/posts.lisp index 151b566..55d5d7c 100644 --- a/src/posts.lisp +++ b/src/posts.lisp @@ -24,7 +24,7 @@ (defun post-url (post) "Return the relative URL for a given post." - (format nil "posts/~a.html" (post-slug post))) + (format nil "~a.html" (post-slug post))) (defun render-posts () "Iterate through the files in the repo to render+write the posts out to disk." diff --git a/themes/hyde/base.tmpl b/themes/hyde/base.tmpl index 8f71deb..b4c90b7 100644 --- a/themes/hyde/base.tmpl +++ b/themes/hyde/base.tmpl @@ -15,7 +15,7 @@
{$navigation |noAutoescape} - {$title} + {$title}
{$content |noAutoescape}