aboutsummaryrefslogtreecommitdiff
path: root/app/app.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'app/app.lisp')
-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