[add] defhandler macro for app package.

1 files changed, 5 insertions, 8 deletions

diff --git a/app/run.lisp b/app/run.lisp
index 987ecad..556b719 100644
--- a/app/run.lisp
+++ b/app/run.lisp
@@ -24,14 +24,11 @@
     :key :confirm
     :description "prompts the user for confirmation before running the command")))
 
-(defun run/handler (cmd)
-  (a:if-let (args (cli:command-arguments cmd))
-    (ol::run-item
-     (first args) (rest args)
-     :verbose (cli:getopt cmd :verbose)
-     :confirm (cli:getopt cmd :confirm)
-     :timeout (cli:getopt cmd :timeout))
-    (cli:print-usage-and-exit cmd t)))
+(defhandler run/handler (id . args)
+  (ol:run-item (parse-identifier id) args
+               :verbose (cli:getopt *cmd* :verbose)
+               :confirm (cli:getopt *cmd* :confirm)
+               :timeout (cli:getopt *cmd* :timeout)))
 
 (defparameter +run/examples+
   '(("Run a hypothetical command called echo-stuff with positional arguments" .