|
|
|
|
13
|
(setf (content-slug object) (slugify title)
|
13
|
(setf (content-slug object) (slugify title)
|
14
|
format (make-keyword (string-upcase format))
|
14
|
format (make-keyword (string-upcase format))
|
15
|
text (render-content text format)
|
15
|
text (render-content text format)
|
16
|
- author (if author
|
|
|
17
|
- author
|
|
|
18
|
- (author *config*)))))
|
|
|
|
|
16
|
+ author (or author (author *config*)))))
|
19
|
|
17
|
|
20
|
(defmethod render ((object post) &key prev next)
|
18
|
(defmethod render ((object post) &key prev next)
|
21
|
(funcall (theme-fn 'post) (list :config *config*
|
19
|
(funcall (theme-fn 'post) (list :config *config*
|