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

plugin: static-pages: allow specifying format

Browse source 
`format' in class `page' defaults to markdown to ensure backward
compatibility.
This commit is contained in:
Daniel Kochmański 2016-03-20 23:21:29 +01:00
parent 9819c279bb
commit 1c585326ab
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
plugins/static-pages.lisp
View file

@ -13,13 +13,16 @@
(in-package :coleslaw-static-pages) (in-package :coleslaw-static-pages)
(defclass page (content) (defclass page (content)
((title :initarg :title :reader coleslaw::title-of))) ((title :initarg :title :reader coleslaw::title-of)
(format :initarg :format :reader coleslaw::page-format))
;; default format is markdown (for backward compatibility)
(:default-initargs :format "md"))
(defmethod initialize-instance :after ((object page) &key) (defmethod initialize-instance :after ((object page) &key)
;; Expect all static-pages to be written in Markdown for now. (with-slots (coleslaw::url coleslaw::text format) object
(with-slots (coleslaw::url coleslaw::text) object
(setf coleslaw::url (make-pathname :defaults coleslaw::url) (setf coleslaw::url (make-pathname :defaults coleslaw::url)
coleslaw::text (render-text coleslaw::text :md)))) format (alexandria:make-keyword (string-upcase format))
coleslaw::text (render-text coleslaw::text format))))
(defmethod render ((object page) &key next prev) (defmethod render ((object page) &key next prev)
;; For the time being, we'll re-use the normal post theme. ;; For the time being, we'll re-use the normal post theme.