diff options
Diffstat (limited to 'app/show.lisp')
-rw-r--r-- | app/show.lisp | 16 |
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 )) |