diff options
| author | mousebot <mousebot@riseup.net> | 2021-05-16 14:43:34 +0200 |
|---|---|---|
| committer | mousebot <mousebot@riseup.net> | 2021-05-16 14:43:34 +0200 |
| commit | a34f569583ead91893468c4080502b1a89d23988 (patch) | |
| tree | b84b2f0782a5ac2a14e67f39acaaca746f098a3a /lisp/mastodon-http.el | |
| parent | e1269b9fbf87013a9909cfced340fa47f43dc33a (diff) | |
clean-up edits after flycheck/bytecompile.
Diffstat (limited to 'lisp/mastodon-http.el')
| -rw-r--r-- | lisp/mastodon-http.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 3fe47c9..58f6c7e 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -115,11 +115,12 @@ Pass response buffer to CALLBACK function." (url-retrieve-synchronously url)))) (defun mastodon-http--get-json (url) - "Make GET request to URL. Return JSON response" + "Make GET request to URL. Return JSON response." (with-current-buffer (mastodon-http--get url) (mastodon-http--process-json))) (defun mastodon-http--process-json () + "Process JSON response." (goto-char (point-min)) (re-search-forward "^$" nil 'move) (let ((json-string @@ -134,7 +135,7 @@ Pass response buffer to CALLBACK function." (defun mastodon-http--get-async (url &optional callback &rest cbargs) "Make GET request to URL. -Pass response buffer to CALLBACK function." +Pass response buffer to CALLBACK function with args CBARGS." (let ((url-request-method "GET") (url-request-extra-headers `(("Authorization" . ,(concat "Bearer " |