diff options
| -rw-r--r-- | app/app.lisp | 8 | ||||
| -rw-r--r-- | 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 <IDENTIFIER>") (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 <DRAFT>") (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~%")))))) |