Sugar syntax
This commit is contained in:
parent
0b553ba4e4
commit
a4da8b372f
1 changed files with 1 additions and 1 deletions
|
@ -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: ")
|
||||
|
|
Loading…
Reference in a new issue