Sugar syntax

This commit is contained in:
Miguel de la Cruz 2022-05-22 20:11:46 +02:00
parent 0b553ba4e4
commit a4da8b372f

View file

@ -72,7 +72,7 @@ if the user is not present"
"Log into the Mattermost Server"
(let ((url-request-method "POST")
(url-request-extra-headers '(("Content-Type" . "application/json")))
(url-request-data (json-serialize (list :login_id username :password password))))
(url-request-data (json-serialize `(:login_id ,username :password ,password))))
(with-current-buffer (url-retrieve-synchronously (concat mattermost-server-url "/api/v4/users/login"))
(beginning-of-buffer)
(search-forward "Token: ")