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) (defun mattermost-login (username password)
"Log into the Mattermost Server" "Log into the Mattermost Server"
(let ((url-request-method "POST") (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)))) (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")) (with-current-buffer (url-retrieve-synchronously (concat mattermost-server-url "/api/v4/users/login"))
(beginning-of-buffer) (beginning-of-buffer)
@ -59,7 +59,7 @@
(url-request-extra-headers `(("Content-Type" . "application/json"))) (url-request-extra-headers `(("Content-Type" . "application/json")))
(url-request-data (if body (json-serialize body)))) (url-request-data (if body (json-serialize body))))
(if mattermost-token (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) (with-current-buffer (url-retrieve-synchronously (concat mattermost-server-url "/api/v4" url) t)
(mattermost-parse-json)))) (mattermost-parse-json))))