diff options
Diffstat (limited to 'app')
| -rw-r--r-- | app/modify.lisp | 2 | ||||
| -rw-r--r-- | app/run.lisp | 6 | ||||
| -rw-r--r-- | app/show.lisp | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/app/modify.lisp b/app/modify.lisp index 0b5e53d..0b02371 100644 --- a/app/modify.lisp +++ b/app/modify.lisp @@ -33,7 +33,7 @@ (defhandler modify/unflag/handler (id) (ol::unflag-item (parse-identifier id))) -(defun modify/unflag/comnand () +(defun modify/unflag/command () (cli:make-command :name "unflag" :usage "<IDENTIFIER>" diff --git a/app/run.lisp b/app/run.lisp index 556b719..16dbde6 100644 --- a/app/run.lisp +++ b/app/run.lisp @@ -4,20 +4,20 @@ (defun run/options () (list - (make-option + (cli:make-option :integer :short-name #\t :long-name "timeout" :key :timeout :initial-value 1 :description "Seconds to wait for output before giving up.") - (make-option + (cli:make-option :flag :short-name #\v :long-name "verbose" :key :verbose :description "echoes the oneliner text that is about to be run") - (make-option + (cli:make-option :flag :short-name #\c :long-name "confirm" diff --git a/app/show.lisp b/app/show.lisp index 2270e67..336e8e6 100644 --- a/app/show.lisp +++ b/app/show.lisp @@ -11,4 +11,4 @@ :name "show" :usage "<IDENTIFIER>" :description "show detailed information about a oneliner" - :handelr #'show/handler )) + :handler #'show/handler )) |