aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-15 16:29:53 -0500
committerColin Okay <okay@toyful.space>2022-03-15 16:29:53 -0500
commit3a19876d855ec8d2279293892e24716b28c4b48a (patch)
tree174ee078917e30c5a90d24fcbfbff94673709bfc /app
parentfbce85871c6e995ece00e3136cf7dfdeeeff2bb7 (diff)
added --confirm option. refactored run-item & co to accomodate
Diffstat (limited to 'app')
-rw-r--r--app/app.lisp4
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