phundrak
/
appwrite.el
mirror of https://github.com/Phundrak/appwrite.el.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add possibility to add extra HTTP headers

This commit is contained in:
Lucien Cartier-Tilet 2022-07-13 18:52:58 +02:00
parent 03b73f6fbb
commit d9fdb3e2a3
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
appwrite.el
View File

@ -117,7 +117,8 @@ the API."
(content-type "application/json") (content-type "application/json")
payload-alist-p payload-alist-p
asyncp asyncp
callback) callback
extra-headers)
"Perform a method METHOD to API with PAYLOAD as its payload. "Perform a method METHOD to API with PAYLOAD as its payload.
CONTENT-TYPE is whichever miime-type is being used. CONTENT-TYPE is whichever miime-type is being used.
@ -135,6 +136,9 @@ If ASYNCP is t, `appwrite--post-api' will be asynchronous.
CALLBACK must then be set as it will be called once the request CALLBACK must then be set as it will be called once the request
finishes. See `url-retrieve'. finishes. See `url-retrieve'.
EXTRA-HEADERS is a list of pairs to append to
`url-request-extra-headers'.
The function returns a pair composed of the HTTP status code as The function returns a pair composed of the HTTP status code as
its car. The cdr is a hash table from the response answer if its car. The cdr is a hash table from the response answer if
Content-Type in the headers is \"application/json\"." Content-Type in the headers is \"application/json\"."
@ -143,6 +147,10 @@ Content-Type in the headers is \"application/json\"."
(url-request-extra-headers `(("X-Appwrite-key" . ,appwrite-api-key) (url-request-extra-headers `(("X-Appwrite-key" . ,appwrite-api-key)
("X-Appwrite-Project" . ,appwrite-project) ("X-Appwrite-Project" . ,appwrite-project)
("Content-type" . ,content-type))) ("Content-type" . ,content-type)))
(url-request-extra-headers (if extra-headers
(append url-request-extra-headers
extra-headers)
url-request-extra-headers))
(url-request-data (cond ((not (string= content-type "application/json")) (url-request-data (cond ((not (string= content-type "application/json"))
payload) payload)
((appwrite--plistp payload) ((appwrite--plistp payload)