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

Rearrange source a bit.

Browse source
This commit is contained in:
Brit Butler 2014-04-28 14:10:27 -04:00
parent 44e82382f3
commit 0b7795270f
1 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
src/documents.lisp
View file

@ -7,25 +7,8 @@
(defvar *site* (make-hash-table :test #'equal) (defvar *site* (make-hash-table :test #'equal)
"An in-memory database to hold all site documents, keyed on page-url.") "An in-memory database to hold all site documents, keyed on page-url.")
(defun add-document (doc)
"Add DOC to the in-memory database. Error if a matching entry is present."
(let ((url (page-url doc)))
(if (gethash url *site*)
(error "There is already an existing document with the url ~a" url)
(setf (gethash url *site*) doc))))
;; Class Methods ;; Class Methods
(defun find-all (doc-type)
"Return a list of all instances of a given DOC-TYPE."
(loop for val being the hash-values in *site*
when (typep val doc-type) collect val))
(defun purge-all (doc-type)
"Remove all instances of DOC-TYPE from memory."
(dolist (obj (find-all doc-type))
(remhash (page-url obj) *site*)))
(defgeneric publish (doc-type) (defgeneric publish (doc-type)
(:documentation "Write pages to disk for all documents of the given DOC-TYPE.")) (:documentation "Write pages to disk for all documents of the given DOC-TYPE."))
@ -55,6 +38,15 @@
(defgeneric render (document &key &allow-other-keys) (defgeneric render (document &key &allow-other-keys)
(:documentation "Render the given DOCUMENT to HTML.")) (:documentation "Render the given DOCUMENT to HTML."))
;; Helper Functions
(defun add-document (doc)
"Add DOC to the in-memory database. Error if a matching entry is present."
(let ((url (page-url doc)))
(if (gethash url *site*)
(error "There is already an existing document with the url ~a" url)
(setf (gethash url *site*) doc))))
(defun write-document (document &optional theme-fn &rest render-args) (defun write-document (document &optional theme-fn &rest render-args)
"Write the given DOCUMENT to disk as HTML. If THEME-FN is present, "Write the given DOCUMENT to disk as HTML. If THEME-FN is present,
use it as the template passing any RENDER-ARGS." use it as the template passing any RENDER-ARGS."
@ -62,3 +54,13 @@ use it as the template passing any RENDER-ARGS."
(apply #'render-page document theme-fn render-args) (apply #'render-page document theme-fn render-args)
(render-page document nil)))) (render-page document nil))))
(write-file (page-path obj) html))) (write-file (page-path obj) html)))
(defun find-all (doc-type)
"Return a list of all instances of a given DOC-TYPE."
(loop for val being the hash-values in *site*
when (typep val doc-type) collect val))
(defun purge-all (doc-type)
"Remove all instances of DOC-TYPE from memory."
(dolist (obj (find-all doc-type))
(remhash (page-url obj) *site*)))