|
|
|
|
20
|
|
20
|
|
21
|
(defmethod initialize-instance :after ((object page) &key)
|
21
|
(defmethod initialize-instance :after ((object page) &key)
|
22
|
;; Expect all static-pages to be written in Markdown for now.
|
22
|
;; Expect all static-pages to be written in Markdown for now.
|
23
|
- (with-slots (url text) object
|
|
|
|
|
23
|
+ (with-slots (url coleslaw::text) object
|
24
|
(setf url (make-pathname :defaults url)
|
24
|
(setf url (make-pathname :defaults url)
|
25
|
- text (render-text text :md))))
|
|
|
|
|
25
|
+ coleslaw::text (render-text coleslaw::text :md))))
|
26
|
|
26
|
|
27
|
(defmethod render ((object page) &key next prev)
|
27
|
(defmethod render ((object page) &key next prev)
|
28
|
;; For the time being, we'll re-use the normal post theme.
|
28
|
;; For the time being, we'll re-use the normal post theme.
|