From 7ae6cbff1875ea271fa1724d6e53bc3d3d48dd26 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 13 Mar 2022 13:56:49 -0500 Subject: support for running drafts; drafts accounted for in with-local-state --- app/app.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'app') diff --git a/app/app.lisp b/app/app.lisp index ea11a5e..86c7328 100644 --- a/app/app.lisp +++ b/app/app.lisp @@ -104,7 +104,9 @@ export EDITOR=/usr/bin/zile :argument-name "SECONDS" :default-value 1 :typespec 'integer - :description "How many seconds to wait for standard output before giving up.")) + :description "How many seconds to wait for standard output before giving up.") + (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) (text :contents "Usage: ol clip [ARGS...]") (text :contents " ") @@ -214,10 +216,12 @@ than the users." (getopt :long-name "newest"))) (:run (cli:run-item id-or-name (rest args) - :timeout (getopt :long-name "timeout"))) + :timeout (getopt :long-name "timeout") + :draftp (getopt :long-name "draft"))) (:clip (cli:run-item id-or-name (rest args) - :force-clip t)) + :force-clip t + :draftp (getopt :long-name "draft"))) (:show (cli:print-item-explanation id-or-name)) (:new -- cgit v1.2.3