mgdelacroix/mattermost.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Small syntax sugar optimizations

Browse source
This commit is contained in:
Miguel de la Cruz 2022-05-22 18:12:46 +02:00
parent ce0951fc45
commit 9d4bab5a20
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mattermost.el
View file

@ -40,7 +40,7 @@
(defun mattermost-login (username password)
"Log into the Mattermost Server"
(let ((url-request-method "POST")
(url-request-extra-headers `(("Content-Type" . "application/json")))
(url-request-extra-headers '(("Content-Type" . "application/json")))
(url-request-data (json-serialize (list :login_id username :password password))))
(with-current-buffer (url-retrieve-synchronously (concat mattermost-server-url "/api/v4/users/login"))
(beginning-of-buffer)
@ -59,7 +59,7 @@
(url-request-extra-headers `(("Content-Type" . "application/json")))
(url-request-data (if body (json-serialize body))))
(if mattermost-token
(add-to-list 'url-request-extra-headers (cons "Authorization" (concat "Bearer " mattermost-token))))
(add-to-list 'url-request-extra-headers `("Authorization" . ,(concat "Bearer " mattermost-token))))
(with-current-buffer (url-retrieve-synchronously (concat mattermost-server-url "/api/v4" url) t)
(mattermost-parse-json))))