aboutsummaryrefslogtreecommitdiff
path: root/app/show.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-08-05 08:58:35 -0500
committerColin Okay <colin@cicadas.surf>2022-08-05 08:58:35 -0500
commitf116178dcf8b450c76400e2a0fbd2991f2c227b4 (patch)
tree67fcc6a6e7035eb0b1929e495bceca2dc4fa564b /app/show.lisp
parent5c590a614544c977964692e41b0e5c19043b142c (diff)
[wip] [refactor] [add] subcommands.
Diffstat (limited to 'app/show.lisp')
-rw-r--r--app/show.lisp16
1 files changed, 16 insertions, 0 deletions
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 ))