diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-17 11:49:49 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-17 12:05:15 +0100 |
| commit | 0996c7eabfd89e6bb5fa3c9f2558c9d6ac23a44b (patch) | |
| tree | 2d0f5ece6ed9cc27f0bacb17a8aa8ef3920459bd /lisp/mastodon-http.el | |
| parent | 0bd8213302e4cbeb8483a2bef47f09cf2d8e9da2 (diff) | |
refactor array params into -http--build-array-args-alist
Diffstat (limited to 'lisp/mastodon-http.el')
| -rw-r--r-- | lisp/mastodon-http.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el index 66707b7..a127427 100644 --- a/lisp/mastodon-http.el +++ b/lisp/mastodon-http.el @@ -121,6 +121,11 @@ Unless UNAUTHENTICATED-P is non-nil." args "&")) +(defun mastodon-http--build-array-args-alist (param-str array) + "Return parameters alist using PARAM-STR and ARRAY param values." + (cl-loop for x in array + collect (cons param-str x))) + (defun mastodon-http--post (url args headers &optional unauthenticated-p) "POST synchronously to URL with ARGS and HEADERS. |