diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-03 21:44:06 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-05 15:41:27 +0100 |
| commit | 6d11e60a7a0b661e0241dcd8372de53edbfbf27f (patch) | |
| tree | b93facfc3c50660f7560deabe69cf7b6458758ef /lisp/mastodon-http.el | |
| parent | 1c1e8281d22fe6cd0fb40925fb5efa22c11e7dd3 (diff) | |
Revert "remove unused --append-query-string"
This reverts commit e2fd67b16104ab772a4ef962613cb9f3cb3cea52.
Diffstat (limited to 'lisp/mastodon-http.el')
| -rw-r--r-- | lisp/mastodon-http.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index eebfa85..e3efabe 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -175,6 +175,13 @@ SILENT means don't message." (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." |