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)) (stage))
(defun 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 () (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))) (defun preview (&optional (path (getf (read-rc) :staging-dir)))
;; clack depends on the global binding of *default-pathname-defaults*. ;; clack depends on the global binding of *default-pathname-defaults*.