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

Bugfix to RENDER-POSTS.

Browse source
This commit is contained in:
Brit Butler 2012-08-20 10:46:24 -04:00
parent 3736c0862d
commit d571634677
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/posts.lisp
View file

@ -15,8 +15,8 @@
(do-files (file (repo *config*) "post") (do-files (file (repo *config*) "post")
(with-open-file (in file) (with-open-file (in file)
(let ((post (read-post in))) (let ((post (read-post in)))
(setf (gethash (post-slug post) *metadata*) post))) (setf (gethash (post-slug post) *metadata*) post))))
(maphash #'write-post *metadata*))) (maphash #'write-post *metadata*))
(defun read-post (stream) (defun read-post (stream)
"Make a POST instance based on the data from STREAM." "Make a POST instance based on the data from STREAM."