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

Closes #145

Browse source 
Before calling RENDER-TEXT, we have to ensure that the FORMAT slot is a
keyword. This bug was introduced in
a6164f0bc0

Thanks to Masataro Asai (Guicho) for reporting the bug.
This commit is contained in:
Javier Olaechea 2017-11-12 20:36:08 -05:00
parent a6164f0bc0
commit a447df807b
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/posts.lisp
View file

@ -9,9 +9,10 @@
(defmethod initialize-instance :after ((object post) &key)
(with-slots (url title author excerpt format text) object
(let ((post-content (render-text text format)))
(let (post-content)
(setf url (compute-url object (slugify title))
format (make-keyword (string-upcase format))
post-content (render-text text format)
excerpt (or excerpt
(first (split (excerpt-sep *config*)
post-content