From 8ba6552132fab6daef1f2b10adf932c87947e2ec Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 13 Mar 2022 14:31:12 -0500 Subject: can run the edit command on drafts with --redraft --- app/app.lisp | 8 ++++++-- lib/client.lisp | 2 +- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/app/app.lisp b/app/app.lisp index 01a88ca..08e203e 100644 --- a/app/app.lisp +++ b/app/app.lisp @@ -123,7 +123,11 @@ export EDITOR=/usr/bin/zile (group (:header "EDITING ONELINERS" :hidden t) (text :contents "Usage: ol edit ") (text :contents " ") - (text :contents "Interactively alter a oneliner and uplaod it to the server.")) + (text :contents "Interactively alter a oneliner and uplaod it to the server.") + (text :contents " ") + (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) (text :contents "Usage: ol publish ") (text :contents " ") @@ -232,7 +236,7 @@ than the users." (:new (cli:add-new-oneliner)) (:edit - (cli:edit-item id-or-name (getopt :long-name "draft"))) + (cli:edit-item id-or-name (getopt :long-name "redraft"))) (:publish (cli::publish-draft id-or-name)) (:flag diff --git a/lib/client.lisp b/lib/client.lisp index 6883b20..233cc42 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -188,7 +188,7 @@ running the body. If such a oneliner can be found." ;; otherwise, format the oneliner as json and make a request ;; to create a new oneliner in the wiki (api:request-with - (:body (oneliner-to-json local) + (:body (oneliner-to-json-body local) :content-type "application/json") (api:post--oneliner :token (api-token)) ;TODO: update api to return the instance created. (format t "Added Oneliner~%")))))) -- cgit v1.2.3