1.1--- a/lisp/bin/skel.lisp	Sun Sep 15 19:34:00 2024 -0400
     1.2+++ b/lisp/bin/skel.lisp	Sun Sep 15 22:23:16 2024 -0400
     1.3@@ -174,10 +174,9 @@
     1.4     (t (skel-simple-error "unknown VC type"))))
     1.5 
     1.6 (defcmd skc-commit
     1.7-  ;; (debug! *optc* *argc*)
     1.8   (case (sk-vc-meta-kind (sk-vc (find-skelfile #P"." :load t)))
     1.9-    (:git (run-git-command "commit" *args* t))
    1.10-    (:hg (run-hg-command "commit" *args* t))
    1.11+    (:git (run-git-command "commit" (append '("-m") *args*) t))
    1.12+    (:hg (run-hg-command "commit" (when *opts* ) t))
    1.13     (t (skel-simple-error "unknown VC type"))))
    1.14 
    1.15 (defcmd skc-make
    1.16@@ -227,7 +226,8 @@
    1.17       (sb-impl::toplevel-repl nil))))
    1.18 
    1.19 (defcmd skc-new
    1.20-  (trace! *args* *opts*))
    1.21+  (println *args*) 
    1.22+  (println *opts*))
    1.23 
    1.24 (define-cli *skel-cli*
    1.25   :name "skel"
    1.26@@ -275,7 +275,7 @@
    1.27           :thunk skc-view)
    1.28 	 (:name make
    1.29 	  :description "build project targets"
    1.30-	  :opts ((:name "target" :description "target to build" :kind string))
    1.31+          :opts ((:name "target" :description "target to build" :kind string))
    1.32 	  :thunk skc-make)
    1.33 	 (:name run
    1.34 	  :description "run a script or command"
    1.35@@ -330,7 +330,8 @@
    1.36           :thunk skc-clone)
    1.37 	 (:name commit
    1.38 	  :description "commit changes to the project vc"
    1.39-          :thunk skc-commit)
    1.40+          :thunk skc-commit
    1.41+          :opts ((:name "message" :description "commit message" :kind string)))
    1.42 	 (:name edit
    1.43 	  :description "edit a project file in emacs."
    1.44           :thunk skc-edit)