From 9a86d48314b340d9b07f51c9646bcc254f5cc452 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Thu, 10 Apr 2014 16:46:07 -0400 Subject: [PATCH] Alphabetize config slots, docs TODO about content types. --- docs/hacking.md | 1 + src/coleslaw.lisp | 2 +- src/config.lisp | 10 +++++----- 3 files changed, 7 insertions(+), 6 deletions(-) diff --git a/docs/hacking.md b/docs/hacking.md index 055d3d1..701d7cb 100644 --- a/docs/hacking.md +++ b/docs/hacking.md @@ -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, diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index cd21c44..8f4f910 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -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." diff --git a/src/config.lisp b/src/config.lisp index 74fbcdb..478af1a 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -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)))