diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-15 16:29:53 -0500 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-15 16:29:53 -0500 |
| commit | 3a19876d855ec8d2279293892e24716b28c4b48a (patch) | |
| tree | 174ee078917e30c5a90d24fcbfbff94673709bfc /app/app.lisp | |
| parent | fbce85871c6e995ece00e3136cf7dfdeeeff2bb7 (diff) | |
added --confirm option. refactored run-item & co to accomodate
Diffstat (limited to 'app/app.lisp')
| -rw-r--r-- | app/app.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/app/app.lisp b/app/app.lisp index 5139208..93181a8 100644 --- a/app/app.lisp +++ b/app/app.lisp @@ -139,6 +139,9 @@ Their meaning is as follows: (flag :long-name "verbose" :short-name "v" :description "Prints a message indicating the oneliner text that is about to be run prior to execution.") + (flag :long-name "confirm" + :short-name "c" + :description "Prompts the user for confirmation before running. Implies --verbose.") (flag :long-name "draft" :description "Indicates that you wish to run a draft of a oneliner identified by IDENTIFIER.")) (group (:header "CLIPPING ONELINERS" :hidden t) @@ -298,6 +301,7 @@ than the users." (help-and-quit-unless "run" id-or-name) (cli:run-item id-or-name (rest args) :verbose (getopt :long-name "verbose") + :confirm (getopt :long-name "confirm") :timeout (getopt :long-name "timeout") :draftp (getopt :long-name "draft"))) (:clip |