main, cli: add build-template-and-print func; fix mapcar args; add build-one command

1 files changed, 11 insertions, 3 deletions

diff --git a/tempest.lisp b/tempest.lisp
index 02bc03b..6d279c9 100644
--- a/tempest.lisp
+++ b/tempest.lisp
@@ -25,12 +25,18 @@
           target-file))
       NIL)))
 
+(defun build-template-and-print (name)
+  (let ((built (build-template name)))
+    (if built 
+      (format t "built ~a~%" built)
+      (format t "ignore ~a, not a valid tempest file.~%" name))))
+
 (defun build (dir)
   (cl-fad:walk-directory dir
     (lambda (path-name)
       (let ((name (namestring path-name)))
         (when (str:ends-with-p ".lisp" name :ignore-case T)
-          (build-template name))))))
+          (build-template-and-print name))))))
 
 ;; TODO handle frequent/simultaneous events, only build once
 ;; TODO handle :MOVE event, delete old one and create new one 
@@ -48,10 +54,12 @@
 
 (defun run (subcommand &rest args)
   (cond ((equal subcommand "build")
-         (mapcar 'build args))
+         (mapcar 'build (car args)))
+        ((equal subcommand "build-one")
+         (mapcar 'build-template-and-print (car args)))
         ;; TODO support watching multiple dirs
         ((equal subcommand "watch")
-         (watch (car args)))))
+         (watch (car (car args))))))
 
 (defun main ()
   (let ((cli-args (cdr sb-ext:*posix-argv*)))