aboutsummaryrefslogtreecommitdiff
path: root/app/app.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'app/app.lisp')
-rw-r--r--app/app.lisp10
1 files changed, 7 insertions, 3 deletions
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 <IDENTIFIER> [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