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

report the state/deploy directory verbosely

Browse source
This commit is contained in:
Masataro Asai 2019-10-27 18:47:58 -04:00
parent 7acd0eb951
commit 559171a34f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
cli/cli.lisp
View file

@ -130,10 +130,12 @@ Excerpt separator is `<!--more-->` by default.
(stage))
(defun stage ()
(coleslaw:main *default-pathname-defaults* :deploy nil))
(prog1 (coleslaw:main *default-pathname-defaults* :deploy nil)
(format t "~&Page generated at the staging dir ~a~%" (getf (read-rc) :staging-dir))))
(defun deploy ()
(coleslaw:main *default-pathname-defaults* :deploy t))
(prog1 (coleslaw:main *default-pathname-defaults* :deploy t)
(format t "~&Page deployed at the deploy dir ~a~%" (getf (read-rc) :deploy-dir))))
(defun preview (&optional (path (getf (read-rc) :staging-dir)))
;; clack depends on the global binding of *default-pathname-defaults*.