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

[minor api change] coleslaw:main takes keywords, can now skip the deploy

Browse source
This commit is contained in:
Masataro Asai 2019-10-27 13:41:57 -04:00
parent 5f32be57f7
commit 38a6c2d475
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/coleslaw.lisp
View file

@ -3,16 +3,19 @@
(defvar *last-revision* nil
"The git revision prior to the last push. For use with GET-UPDATED-FILES.")
(defun main (repo-dir &optional oldrev)
"Load the user's config file, then compile and deploy the blog stored
in REPO-DIR. Optionally, OLDREV is the revision prior to the last push."
(defun main (repo-dir &key oldrev (deploy t))
"Load the user's config file, compile the blog in REPO-DIR into STAGING-DIR,
and optionally deploy the blog to DEPLOY-DIR.
OLDREV -- the git revision prior to the last push.
DEPLOY -- when non-nil, perform the deploy. (default: t)"
(load-config repo-dir)
(setf *last-revision* oldrev)
(load-content)
(compile-theme (theme *config*))
(let ((dir (staging-dir *config*)))
(compile-blog dir)
(deploy dir)))
(when deploy
(deploy dir))))
(defun load-content ()
"Load all content stored in the blog's repo."