From 6a6c2ec8e2ef6cc9fa91f769d7dbe79387529619 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 13 Mar 2022 14:39:55 -0500 Subject: printing drafts --- app/app.lisp | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'app') 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 ") (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 ") + (text :contents " ") + (text :contents "Trashes a draft.")) (group (:header "FLAGGING AND UNFLAGGING ONELINERS" :hidden t) (text :contents "Usage: ol ") (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 -- cgit v1.2.3