From f116178dcf8b450c76400e2a0fbd2991f2c227b4 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 5 Aug 2022 08:58:35 -0500
Subject: [wip] [refactor] [add] subcommands.

---
 app/show.lisp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 app/show.lisp

(limited to 'app/show.lisp')

diff --git a/app/show.lisp b/app/show.lisp
new file mode 100644
index 0000000..1ed3493
--- /dev/null
+++ b/app/show.lisp
@@ -0,0 +1,16 @@
+;;;; show.lisp
+
+(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)))
+
+(defun show/command ()
+  (cli:make-command
+   :name "show"
+   :usage "<IDENTIFIER>"
+   :description "show detailed information about a oneliner"
+   :handelr #'show/handler ))
-- 
cgit v1.2.3