From 38a6c2d475b572e54a6435e0ec6df2c183fdc6d3 Mon Sep 17 00:00:00 2001 From: Masataro Asai Date: Sun, 27 Oct 2019 13:41:57 -0400 Subject: [PATCH] [minor api change] coleslaw:main takes keywords, can now skip the deploy --- src/coleslaw.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index 895569e..d53d2e7 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -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."