DeCarabas/Init-Files
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Report errors from the Quip API

Browse source
This commit is contained in:
John Doty 2017-10-08 06:37:32 -07:00
parent d97f56cd4b
commit 8f28925a6a
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
site-lisp/quip.el
View file

@ -22,6 +22,12 @@ Get it from https://fb.quip.com/api/personal-token."
:type 'string :type 'string
:group 'quip-api) :group 'quip-api)
(defun quip--handle-error (result)
"Report an error if RESULT contains one."
(when (alist-get 'error result)
(error "Quip error: %s" (alist-get 'error_description result)))
result)
(defun quip-invoke-json (path method params) (defun quip-invoke-json (path method params)
"Make a request to the Quip API, and return the parsed JSON from the response. "Make a request to the Quip API, and return the parsed JSON from the response.
@ -43,7 +49,7 @@ base URL and adds the necessary headers."
(with-current-buffer (url-retrieve-synchronously url) (with-current-buffer (url-retrieve-synchronously url)
(goto-char (point-min)) (goto-char (point-min))
(re-search-forward "^$") (re-search-forward "^$")
(json-read)))) (quip--handle-error (json-read)))))
(defun quip-new-document (content &optional format) (defun quip-new-document (content &optional format)
"Create a new Quip document with the provided CONTENT. "Create a new Quip document with the provided CONTENT.