Parcourir la Source

Fix symbols in static pages plugin some more.

Brit Butler il y a 10 ans
Parent
commit
8273efe00e
1 fichiers modifiés avec 3 ajouts et 6 suppressions
  1. 3 6
      plugins/static-pages.lisp

+ 3 - 6
plugins/static-pages.lisp

@@ -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)