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

Fix excerpt generation

Browse source 
Excerpt must be set before text is set, since text may be needed to
generate the excerpt and it should not be already rendered.
This commit is contained in:
Alfredo Beaumont 2017-03-23 23:51:55 +01:00
parent ef451c4df4
commit e1ab552e8f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/posts.lisp
View file

@ -11,11 +11,11 @@
(with-slots (url title author excerpt format text) object (with-slots (url title author excerpt format text) object
(setf url (compute-url object (slugify title)) (setf url (compute-url object (slugify title))
format (make-keyword (string-upcase format)) format (make-keyword (string-upcase format))
text (render-text text format)
excerpt (or excerpt excerpt (or excerpt
(first (split (excerpt-sep *config*) (first (split (excerpt-sep *config*)
(render-text text format) (render-text text format)
:limit 2))) :limit 2)))
text (render-text text format)
author (or author (author *config*))))) author (or author (author *config*)))))
(defmethod render ((object post) &key prev next) (defmethod render ((object post) &key prev next)