marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak link handling.

Browse source
This commit is contained in:
Brit Butler 2012-08-21 22:15:25 -04:00
parent 98ae73ddd3
commit ada2e397ae
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/indices.lisp
View file

@ -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)

2
src/posts.lisp
View file

@ -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."

2
themes/hyde/base.tmpl
View file

@ -15,7 +15,7 @@
<body>
<div class="navigation">
{$navigation |noAutoescape}
{$title}
<a href="{$siteroot}">{$title}</a>
</div>
<div id="content">
{$content |noAutoescape}