浏览代码

Alphabetize config slots, docs TODO about content types.

Brit Butler 11 年之前
父节点
当前提交
9a86d48314
共有 3 个文件被更改,包括 7 次插入6 次删除
  1. 1 0
      docs/hacking.md
  2. 1 1
      src/coleslaw.lisp
  3. 5 5
      src/config.lisp

+ 1 - 0
docs/hacking.md

39
 limitations. Chiefly, the association between Content Types, their
39
 limitations. Chiefly, the association between Content Types, their
40
 template, and their inclusion in an INDEX is presently ad-hoc.
40
 template, and their inclusion in an INDEX is presently ad-hoc.
41
 
41
 
42
+// TODO: Write something about class-names as file-extension/eql-specializers!
42
 ### Current Content Types & Indexes
43
 ### Current Content Types & Indexes
43
 
44
 
44
 There are 5 INDEX subclasses at present: TAG-INDEX, DATE-INDEX,
45
 There are 5 INDEX subclasses at present: TAG-INDEX, DATE-INDEX,

+ 1 - 1
src/coleslaw.lisp

19
   (let ((result (call-next-method)))
19
   (let ((result (call-next-method)))
20
     (if (pathname-type result)
20
     (if (pathname-type result)
21
         result
21
         result
22
-        (make-pathname :type (page-ext *config*) :defaults result))))
22
+        (make-pathname :type "html" :defaults result))))
23
 
23
 
24
 (defun page-path (object)
24
 (defun page-path (object)
25
   "The path to store OBJECT at once rendered."
25
   "The path to store OBJECT at once rendered."

+ 5 - 5
src/config.lisp

6
    (domain          :initarg :domain         :accessor domain)
6
    (domain          :initarg :domain         :accessor domain)
7
    (feeds           :initarg :feeds          :accessor feeds)
7
    (feeds           :initarg :feeds          :accessor feeds)
8
    (license         :initarg :license        :accessor license)
8
    (license         :initarg :license        :accessor license)
9
+   (page-ext        :initarg :page-ext       :accessor page-ext       :initform "html")
9
    (plugins         :initarg :plugins        :accessor plugins)
10
    (plugins         :initarg :plugins        :accessor plugins)
10
    (repo            :initarg :repo           :accessor repo)
11
    (repo            :initarg :repo           :accessor repo)
12
+   (routing         :initarg :routing        :accessor routing)
13
+   (separator       :initarg :separator      :accessor separator      :initform ";;;;;")
11
    (sitenav         :initarg :sitenav        :accessor sitenav)
14
    (sitenav         :initarg :sitenav        :accessor sitenav)
12
    (staging-dir     :initarg :staging-dir    :accessor staging-dir    :initform "/tmp/coleslaw/")
15
    (staging-dir     :initarg :staging-dir    :accessor staging-dir    :initform "/tmp/coleslaw/")
13
-   (posts-dir       :initarg :posts-dir      :accessor posts-dir      :initform "posts")
14
-   (separator       :initarg :separator      :accessor separator      :initform ";;;;;")
15
-   (page-ext        :initarg :page-ext       :accessor page-ext       :initform "html")
16
-   (title           :initarg :title          :accessor title)
17
-   (theme           :initarg :theme          :accessor theme)))
16
+   (theme           :initarg :theme          :accessor theme)
17
+   (title           :initarg :title          :accessor title)))
18
 
18
 
19
 (define-condition unknown-config-section-error (error)
19
 (define-condition unknown-config-section-error (error)
20
   ((text :initarg :text :reader text)))
20
   ((text :initarg :text :reader text)))