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

Alphabetize config slots, docs TODO about content types.

Browse source
This commit is contained in:
Brit Butler 2014-04-10 16:46:07 -04:00
parent 39687805f5
commit 9a86d48314
3 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
docs/hacking.md
View file

@ -39,6 +39,7 @@ generator. Content Types were added in 0.8 as a step towards making
limitations. Chiefly, the association between Content Types, their
template, and their inclusion in an INDEX is presently ad-hoc.
// TODO: Write something about class-names as file-extension/eql-specializers!
### Current Content Types & Indexes
There are 5 INDEX subclasses at present: TAG-INDEX, DATE-INDEX,

2
src/coleslaw.lisp
View file

@ -19,7 +19,7 @@
(let ((result (call-next-method)))
(if (pathname-type result)
result
(make-pathname :type (page-ext *config*) :defaults result))))
(make-pathname :type "html" :defaults result))))
(defun page-path (object)
"The path to store OBJECT at once rendered."

10
src/config.lisp
View file

@ -6,15 +6,15 @@
(domain :initarg :domain :accessor domain)
(feeds :initarg :feeds :accessor feeds)
(license :initarg :license :accessor license)
(page-ext :initarg :page-ext :accessor page-ext :initform "html")
(plugins :initarg :plugins :accessor plugins)
(repo :initarg :repo :accessor repo)
(routing :initarg :routing :accessor routing)
(separator :initarg :separator :accessor separator :initform ";;;;;")
(sitenav :initarg :sitenav :accessor sitenav)
(staging-dir :initarg :staging-dir :accessor staging-dir :initform "/tmp/coleslaw/")
(posts-dir :initarg :posts-dir :accessor posts-dir :initform "posts")
(separator :initarg :separator :accessor separator :initform ";;;;;")
(page-ext :initarg :page-ext :accessor page-ext :initform "html")
(title :initarg :title :accessor title)
(theme :initarg :theme :accessor theme)))
(theme :initarg :theme :accessor theme)
(title :initarg :title :accessor title)))
(define-condition unknown-config-section-error (error)
((text :initarg :text :reader text)))