|
@@ -3,8 +3,6 @@
|
3
|
3
|
(:export #:enable)
|
4
|
4
|
(:import-from :coleslaw #:*config*
|
5
|
5
|
#:content
|
6
|
|
- #:content-text
|
7
|
|
- #:page-url
|
8
|
6
|
#:find-all
|
9
|
7
|
#:render
|
10
|
8
|
#:publish
|
|
@@ -15,13 +13,12 @@
|
15
|
13
|
(in-package :coleslaw-static-pages)
|
16
|
14
|
|
17
|
15
|
(defclass page (content)
|
18
|
|
- ((title :initarg :title :reader title-of)
|
19
|
|
- (url :initarg :url :reader page-url)))
|
|
16
|
+ ((title :initarg :title :reader coleslaw::title-of)))
|
20
|
17
|
|
21
|
18
|
(defmethod initialize-instance :after ((object page) &key)
|
22
|
19
|
;; Expect all static-pages to be written in Markdown for now.
|
23
|
|
- (with-slots (url coleslaw::text) object
|
24
|
|
- (setf url (make-pathname :defaults url)
|
|
20
|
+ (with-slots (coleslaw::url coleslaw::text) object
|
|
21
|
+ (setf coleslaw::url (make-pathname :defaults coleslaw::url)
|
25
|
22
|
coleslaw::text (render-text coleslaw::text :md))))
|
26
|
23
|
|
27
|
24
|
(defmethod render ((object page) &key next prev)
|