aboutsummaryrefslogtreecommitdiff
path: root/app/clip.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'app/clip.lisp')
-rw-r--r--app/clip.lisp8
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