blob: 1ed3493583ae776794bf6e4c2fa464b743f57b44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 ))
|
