Browse Source

Fix symbols in static pages plugin some more.

Brit Butler 10 years ago
parent
commit
8273efe00e
1 changed files with 3 additions and 6 deletions
  1. 3 6
      plugins/static-pages.lisp

+ 3 - 6
plugins/static-pages.lisp

3
   (:export #:enable)
3
   (:export #:enable)
4
   (:import-from :coleslaw #:*config*
4
   (:import-from :coleslaw #:*config*
5
                           #:content
5
                           #:content
6
-                          #:content-text
7
-                          #:page-url
8
                           #:find-all
6
                           #:find-all
9
                           #:render
7
                           #:render
10
                           #:publish
8
                           #:publish
15
 (in-package :coleslaw-static-pages)
13
 (in-package :coleslaw-static-pages)
16
 
14
 
17
 (defclass page (content)
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
 (defmethod initialize-instance :after ((object page) &key)
18
 (defmethod initialize-instance :after ((object page) &key)
22
   ;; Expect all static-pages to be written in Markdown for now.
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
           coleslaw::text (render-text coleslaw::text :md))))
22
           coleslaw::text (render-text coleslaw::text :md))))
26
 
23
 
27
 (defmethod render ((object page) &key next prev)
24
 (defmethod render ((object page) &key next prev)