From 559171a34fe1f42d05fa33cc2e05c40163d3d118 Mon Sep 17 00:00:00 2001 From: Masataro Asai Date: Sun, 27 Oct 2019 18:47:58 -0400 Subject: [PATCH] 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 `` 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*.