diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-13 13:56:49 -0500 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-13 13:56:49 -0500 |
| commit | 7ae6cbff1875ea271fa1724d6e53bc3d3d48dd26 (patch) | |
| tree | 6559b13feda3729cc677cb5d80553dc295b2ccc1 /app/app.lisp | |
| parent | 07183b5bbb4d2e65514e3ec3e7cdf7e421f97749 (diff) | |
support for running drafts; drafts accounted for in with-local-state
Diffstat (limited to 'app/app.lisp')
| -rw-r--r-- | app/app.lisp | 10 |
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 |