diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-08-05 09:50:42 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-08-05 09:50:42 -0500 |
| commit | 9a9f629068b4ffe7173bc92f12080685743dc6ab (patch) | |
| tree | d62379dc9eabadfc6c7c0f907e16894511376c00 /app/show.lisp | |
| parent | f116178dcf8b450c76400e2a0fbd2991f2c227b4 (diff) | |
[add] defhandler macro for app package.
Diffstat (limited to 'app/show.lisp')
| -rw-r--r-- | app/show.lisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/app/show.lisp b/app/show.lisp index 1ed3493..2270e67 100644 --- a/app/show.lisp +++ b/app/show.lisp @@ -2,11 +2,9 @@ (in-package :oneliners.cli.app) -(defun show/handler (cmd) - (a:if-let (ident - (parse-identifier (first (cli:command-arguments cmd)))) - (ol:print-item-explanation ident) - (cli:print-usage-and-exit cmd t))) +(defhandler show/handler (id) + (ol:print-item-explanation (parse-identifier id))) + (defun show/command () (cli:make-command |