a447df807b
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.
31 lines
1.3 KiB
Common Lisp
31 lines
1.3 KiB
Common Lisp
(in-package :coleslaw)
|
|
|
|
(defclass post (content)
|
|
((title :initarg :title :reader title-of)
|
|
(author :initarg :author :reader author-of)
|
|
(excerpt :initarg :excerpt :reader excerpt-of)
|
|
(format :initarg :format :reader post-format))
|
|
(:default-initargs :author nil :excerpt nil))
|
|
|
|
(defmethod initialize-instance :after ((object post) &key)
|
|
(with-slots (url title author excerpt format text) object
|
|
(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
|
|
:limit 2)))
|
|
text post-content
|
|
author (or author (author *config*))))))
|
|
|
|
(defmethod render ((object post) &key prev next)
|
|
(funcall (theme-fn 'post) (list :config *config*
|
|
:post object
|
|
:prev prev
|
|
:next next)))
|
|
|
|
(defmethod publish ((doc-type (eql (find-class 'post))))
|
|
(loop for (next post prev) on (append '(nil) (by-date (find-all 'post)))
|
|
while post do (write-document post nil :prev prev :next next)))
|