printing drafts

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