commit 559171a34fe1f42d05fa33cc2e05c40163d3d118 Masataro Asai <guicho2.71828@gmail.com> 2019-10-27 18:47:58 -0400 report the state/deploy directory verbosely
cli/cli.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/cli/cli.lisp b/cli/cli.lisp index 9fb1bc8..ab31512 100644 --- a/cli/cli.lisp +++ b/cli/cli.lisp @@ -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*.