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) (defun write-index (posts filename title &optional prev next)
"Write out the HTML for POSTS to FILENAME.html." "Write out the HTML for POSTS to FILENAME.html."
(let ((content (loop for post in posts (let ((content (loop for post in posts
collect (list :url (format nil "~a/posts/~a.html" collect (list :url (format nil "~a/posts/~a"
(domain *config*) (post-slug post)) (domain *config*) (post-url post))
:title (post-title post) :title (post-title post)
:date (post-date post) :date (post-date post)
:content (render-content (post-content post) :content (render-content (post-content post)

2
src/posts.lisp
View file

@ -24,7 +24,7 @@
(defun post-url (post) (defun post-url (post)
"Return the relative URL for a given 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 () (defun render-posts ()
"Iterate through the files in the repo to render+write the posts out to disk." "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> <body>
<div class="navigation"> <div class="navigation">
{$navigation |noAutoescape} {$navigation |noAutoescape}
{$title} <a href="{$siteroot}">{$title}</a>
</div> </div>
<div id="content"> <div id="content">
{$content |noAutoescape} {$content |noAutoescape}