aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-03 21:44:06 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-03 21:44:36 +0100
commitf678fc83f777ef40e948c176b1343e4de3764856 (patch)
tree69514fed9c1a537b545735e26ac9643c33f2e6ef /lisp
parent2d25c1546c3d011b8b494c02277ac64eb91340d3 (diff)
Revert "remove unused --append-query-string"
This reverts commit e2fd67b16104ab772a4ef962613cb9f3cb3cea52.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-http.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el
index f32ccd4..f73fd6b 100644
--- a/lisp/mastodon-http.el
+++ b/lisp/mastodon-http.el
@@ -173,6 +173,13 @@ Pass response buffer to CALLBACK function."
(with-temp-buffer
(mastodon-http--url-retrieve-synchronously url))))
+(defun mastodon-http--append-query-string (url params)
+ "Append PARAMS to URL as query strings and return it.
+
+PARAMS should be an alist as required by `url-build-query-string'."
+ (let ((query-string (url-build-query-string params)))
+ (concat url "?" query-string)))
+
;; search functions:
(defun mastodon-http--process-json-search ()
"Process JSON returned by a search query to the server."