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

Add staging config option. Tweak defaults.

Browse source
This commit is contained in:
Brit Butler 2012-08-21 19:05:57 -04:00
parent 1c0a037bac
commit 43501458c1
2 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
src/coleslaw.lisp
View file

@ -23,33 +23,34 @@ on files that match the given extension."
(defun render-page (path html)
"Populate the base template with the provided HTML and write it out to PATH."
(ensure-directories-exist path)
(with-open-file (out path
:direction :output
:if-does-not-exist :create)
(let ((content (funcall (theme-fn "BASE")
(list :title (title *config*)
:siteroot (domain *config*)
:navigation (sitenav *config*)
:content html
:head-inject (apply #'concatenate 'string
(gethash :head *injections*))
:body-inject (apply #'concatenate 'string
(gethash :body *injections*))
:license (license *config*)
:credits (author *config*)))))
(write-line content out))))
(let ((filepath (merge-pathnames path (staging *config*))))
(ensure-directories-exist filepath)
(with-open-file (out path
:direction :output
:if-does-not-exist :create)
(let ((content (funcall (theme-fn "BASE")
(list :title (title *config*)
:siteroot (domain *config*)
:navigation (sitenav *config*)
:content html
:head-inject (apply #'concatenate 'string
(gethash :head *injections*))
:body-inject (apply #'concatenate 'string
(gethash :body *injections*))
:license (license *config*)
:credits (author *config*)))))
(write-line content out)))))
(defun compile-blog ()
"Compile the blog to a staging directory in /tmp."
(let ((staging #p"/tmp/coleslaw/"))
(let ((staging (staging *config*)))
; TODO: More incremental compilation? Don't regen whole blog unnecessarily.
(when (probe-file staging)
(delete-directory-and-files staging))
(ensure-directories-exist staging)
(with-current-directory staging
(let ((css-dir (app-path "themes/~a/css/" (theme *config*)))
(static-dir (merge-pathnames "static/" (repo *config*))))
(let ((css-dir (app-path "themes/~a/css" (theme *config*)))
(static-dir (merge-pathnames "static" (repo *config*))))
(dolist (dir (list css-dir static-dir))
(when (probe-file dir)
(run-program "cp" `("-R" ,(namestring dir) ".")))))

3
src/config.lisp
View file

@ -4,10 +4,11 @@
((author :initarg :author :initform "" :accessor author)
(domain :initarg :domain :initform "" :accessor domain)
(interval :initarg :interval :initform 600 :accessor interval)
(license :initarg :license :initform "" :accessor license)
(license :initarg :license :initform "CC-BY-SA" :accessor license)
(plugins :initarg :plugins :initform '() :accessor plugins)
(repo :initarg :repo :initform #p"/" :accessor repo)
(sitenav :initarg :sitenav :initform "" :accessor sitenav)
(staging :initarg :staging :initform #p"/tmp/coleslaw/" :accessor staging)
(title :initarg :title :initform "" :accessor title)
(theme :initarg :theme :initform "hyde" :accessor theme)))