aboutsummaryrefslogtreecommitdiff
path: root/app/app.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-13 14:39:55 -0500
committerColin Okay <okay@toyful.space>2022-03-13 14:39:55 -0500
commit6a6c2ec8e2ef6cc9fa91f769d7dbe79387529619 (patch)
tree408b212bf6720fd97c1e264d641a5cbe830f76f5 /app/app.lisp
parent8ba6552132fab6daef1f2b10adf932c87947e2ec (diff)
printing drafts
Diffstat (limited to 'app/app.lisp')
-rw-r--r--app/app.lisp16
1 files changed, 15 insertions, 1 deletions
diff --git a/app/app.lisp b/app/app.lisp
index 08e203e..bac6628 100644
--- a/app/app.lisp
+++ b/app/app.lisp
@@ -128,10 +128,18 @@ export EDITOR=/usr/bin/zile
(text :contents "Options:")
(flag :long-name "redraft"
:description "Indicates that you wish to edit a draft instead of a published oneliner."))
- (group (:header "PUBLISHING ONELINERS" :hidden t)
+ (group (:header "PUBLISHING ONELINER DRAFTS" :hidden t)
(text :contents "Usage: ol publish <DRAFT>")
(text :contents " ")
(text :contents "Submits a draft oneliner to the wiki server, and, when successful, deletes the draft."))
+ (group (:header "DRAFTS LISTING" :hidden t)
+ (text :contents "Usage: ol drafts")
+ (text :contents " ")
+ (text :contents "Prints a listing of current drafts of oneliners yet to be published."))
+ (group (:header "TRASH DRAFT" :hidden t)
+ (text :contents "Usage: ol trash <DRAFT>")
+ (text :contents " ")
+ (text :contents "Trashes a draft."))
(group (:header "FLAGGING AND UNFLAGGING ONELINERS" :hidden t)
(text :contents "Usage: ol <flag | unflag> <IDENTIFIER>")
(text :contents " ")
@@ -179,6 +187,8 @@ export EDITOR=/usr/bin/zile
(text :contents "show")
(text :contents "new")
(text :contents "edit")
+ (text :contents "drafts")
+ (text :contents "trash")
(text :contents "publish")
(text :contents "flag")
(text :contents "lock")
@@ -239,6 +249,10 @@ than the users."
(cli:edit-item id-or-name (getopt :long-name "redraft")))
(:publish
(cli::publish-draft id-or-name))
+ (:trash
+ (cli::drop-draft id-or-name))
+ (:drafts
+ (cli::print-drafts))
(:flag
(cli:flag-item id-or-name))
(:unflag