From 130ae266f51f63ac423a65b17749a4d38dda1018 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 14 Mar 2022 19:36:18 -0500 Subject: Added a --verbose / -v option to RUN --- app/app.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'app') diff --git a/app/app.lisp b/app/app.lisp index 9b313db..eef9b89 100644 --- a/app/app.lisp +++ b/app/app.lisp @@ -136,6 +136,9 @@ Their meaning is as follows: :default-value 1 :typespec 'integer :description "How many seconds to wait for standard output before giving up.") + (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 "draft" :description "Indicates that you wish to run a draft of a oneliner identified by IDENTIFIER.")) (group (:header "CLIPPING ONELINERS" :hidden t) @@ -293,6 +296,7 @@ than the users." (:run (help-and-quit-unless "run" id-or-name) (cli:run-item id-or-name (rest args) + :verbose (getopt :long-name "verbose") :timeout (getopt :long-name "timeout") :draftp (getopt :long-name "draft"))) (:clip -- cgit v1.2.3