diff options
| -rw-r--r-- | app/app.lisp | 4 | ||||
| -rw-r--r-- | lib/client.lisp | 7 | ||||
| -rw-r--r-- | oneliners.cli.asd | 4 |
3 files changed, 9 insertions, 6 deletions
diff --git a/app/app.lisp b/app/app.lisp index c9372c8..0684824 100644 --- a/app/app.lisp +++ b/app/app.lisp @@ -19,7 +19,7 @@ (in-package :oneliners.cli.app) ;;; VERSION -(defparameter +ol-version+ "0.7.0") +(defparameter +ol-version+ "0.7.1") ;;; HELP TEXTS (defparameter +oneliners-variables-help-text+ @@ -346,7 +346,7 @@ than the users." (:invite (cli:request-invite-code)) (:login - (help-and-quit-unless "login" (= 3 (length args))) + (help-and-quit-unless "login" (= 2 (length args))) (apply 'cli:login args)) (:logout (cli:revoke-access)) diff --git a/lib/client.lisp b/lib/client.lisp index 61c3130..b39e0ac 100644 --- a/lib/client.lisp +++ b/lib/client.lisp @@ -280,8 +280,11 @@ running the body. If such a oneliner can be found." (api:request-with (:body (oneliner-to-json-body local) :content-type "application/json") - (api:patch--oneliner-entry-edit (oneliner-id ol) :token (api-token)) - ;(merge-oneliners (list new-item)) ;;TODO: this is broken, wait for API update. + (let ((updated + (jonathan:parse + (api:patch--oneliner-entry-edit (oneliner-id ol) :token (api-token))))) + (merge-oneliners (list updated))) + (format t "Edits accepted~%"))))))) ;;TODO: need to sync cache here. diff --git a/oneliners.cli.asd b/oneliners.cli.asd index 1bc60c8..af94496 100644 --- a/oneliners.cli.asd +++ b/oneliners.cli.asd @@ -1,5 +1,5 @@ (defsystem "oneliners.cli" - :version "alpha-0.6.1" + :version "alpha-0.7.1" :author "Colin Okay" :license "AGPLv3" :depends-on ("trivial-clipboard" @@ -28,7 +28,7 @@ choice.") (defsystem "oneliners.cli/app" - :version "alpha-0.6.1" + :version "alpha-0.7.1" :author "Colin Okay" :license "AGPLv3" :depends-on ("net.didierverna.clon" |