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

Render post content at read time, not write time.

Browse source
This commit is contained in:
Brit Butler 2012-08-22 00:44:44 -04:00
parent db1f8c9b7a
commit 3642094d2b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/posts.lisp
View file

@ -58,7 +58,8 @@
(setf (getf args :tags) (cl-ppcre:split ", " (getf args :tags))
(getf args :format) (make-keyword (string-upcase (getf args :format))))
(apply 'make-instance 'post
(append args (list :content (read-line in nil)
(append args (list :content (render-content (read-line in nil)
(getf args :format))
:slug (slugify (getf args :title))))))))
(defun write-post (post &key prev next)
@ -68,8 +69,7 @@
(list :title (post-title post)
:tags (taglinks (post-tags post))
:date (post-date post)
:content (render-content (post-content post)
(post-format post))
:content (post-content post)
:prev prev
:next next))))