aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--app/app.lisp8
-rw-r--r--lib/client.lisp2
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~%"))))))