From 9a9f629068b4ffe7173bc92f12080685743dc6ab Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 5 Aug 2022 09:50:42 -0500
Subject: [add] defhandler macro for app package.

---
 app/clip.lisp | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'app/clip.lisp')

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
-- 
cgit v1.2.3