cli: run command and parse cli args

1 files changed, 11 insertions, 0 deletions

diff --git a/tempest.lisp b/tempest.lisp
index a0ecb22..02bc03b 100644
--- a/tempest.lisp
+++ b/tempest.lisp
@@ -46,3 +46,14 @@
           (format t "Built ~a, because of ~a~%" built-file change)
           nil)))))
 
+(defun run (subcommand &rest args)
+  (cond ((equal subcommand "build")
+         (mapcar 'build args))
+        ;; TODO support watching multiple dirs
+        ((equal subcommand "watch")
+         (watch (car args)))))
+
+(defun main ()
+  (let ((cli-args (cdr sb-ext:*posix-argv*)))
+    (run (car cli-args) (cdr cli-args))))
+