marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix symbols in static pages plugin some more.

Browse source
This commit is contained in:
Brit Butler 2014-11-09 20:30:38 -05:00
parent 558e2d1e0d
commit 8273efe00e
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
plugins/static-pages.lisp
View file

@ -3,8 +3,6 @@
(:export #:enable)
(:import-from :coleslaw #:*config*
#:content
#:content-text
#:page-url
#:find-all
#:render
#:publish
@ -15,13 +13,12 @@
(in-package :coleslaw-static-pages)
(defclass page (content)
((title :initarg :title :reader title-of)
(url :initarg :url :reader page-url)))
((title :initarg :title :reader coleslaw::title-of)))
(defmethod initialize-instance :after ((object page) &key)
;; Expect all static-pages to be written in Markdown for now.
(with-slots (url coleslaw::text) object
(setf url (make-pathname :defaults url)
(with-slots (coleslaw::url coleslaw::text) object
(setf coleslaw::url (make-pathname :defaults coleslaw::url)
coleslaw::text (render-text coleslaw::text :md))))
(defmethod render ((object page) &key next prev)