1.1--- a/lisp/bin/skel.lisp Thu Aug 08 23:01:20 2024 -0400
1.2+++ b/lisp/bin/skel.lisp Sat Aug 10 00:30:45 2024 -0400
1.3@@ -4,7 +4,7 @@
1.4 ;; level. :INPUT :WAIT :OUTPUT
1.5 (in-package :std-user)
1.6 (defpkg :bin/skel
1.7- (:use :cl :std :cli/clap
1.8+ (:use :cl :std :cli/clap :cli/clap/vars
1.9 :vc :sb-ext :skel :log
1.10 :dat/sxp #+tools :skel/tools/viz)
1.11 (:import-from :cli/shell :*shell-input*)
1.12@@ -231,11 +231,11 @@
1.13 :name "skel"
1.14 :version #.(format nil "0.1.1:~A" (read-line (sb-ext:process-output (vc:run-hg-command "id" '("-i") :stream))))
1.15 :description "A hacker's project compiler."
1.16- :thunk skc-show
1.17+ :thunk 'skc-show
1.18 :opts ((:name "help" :global t :description "print this message"
1.19- :thunk skc-help)
1.20- (:name "version" :global t :description "print version"
1.21- :thunk skc-version)
1.22+ :thunk skc-help)
1.23+ (:name "version" :global t :description "print version"
1.24+ :thunk skc-version)
1.25 (:name "level" :global t :description "set log level (warn,info,debug,trace)"
1.26 :thunk skc-level)
1.27 (:name "config" :global t :description "set a custom skel user config" :kind file)
1.28@@ -243,7 +243,7 @@
1.29 (:name "output" :global t :description "output target" :kind string))
1.30 :cmds ((:name init
1.31 :description "initialize a skelfile in the current directory"
1.32- :opts ((:name "name" :description "project name" :kind string))
1.33+ :opts (:name "name" :description "project name" :kind string)
1.34 :thunk skc-init)
1.35 (:name new
1.36 :description "make a new skel project"