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/clip.lisp | |
| parent | f116178dcf8b450c76400e2a0fbd2991f2c227b4 (diff) | |
[add] defhandler macro for app package.
Diffstat (limited to 'app/clip.lisp')
| -rw-r--r-- | app/clip.lisp | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/app/clip.lisp b/app/clip.lisp index 922cacc..ad79589 100644 --- a/app/clip.lisp +++ b/app/clip.lisp @@ -2,12 +2,8 @@ (in-package :oneliners.cli.app) -(defun clip/handler (cmd) - (a:if-let (args (cli:command-arguments cmd)) - (ol::run-item - (parse-identifier (first args)) (rest args) - :force-clip t) - (cli:print-usage-and-exit cmd t))) +(defhandler clip/handler (id . args) + (ol:run-item (parse-identifier id) args :force-clip t)) (defun clip/command () (cli:make-command |