revert hdurers alist > plist conv in auth.el

2 files changed, 6 insertions, 12 deletions

diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el
index 6729e81..0b0c703 100644
--- a/lisp/mastodon-auth.el
+++ b/lisp/mastodon-auth.el
@@ -73,12 +73,12 @@ If no auth-sources file, runs `mastodon-auth--generate-token-no-storing-credenti
   "Make POST to generate auth token, without using auth-sources file."
   (mastodon-http--post
    (concat mastodon-instance-url "/oauth/token")
-   `(("client_id" ,(plist-get (mastodon-client) :client_id))
-     ("client_secret" ,(plist-get (mastodon-client) :client_secret))
-     ("grant_type" "password")
-     ("username" ,(read-string "Email: " user-mail-address))
-     ("password" ,(read-passwd "Password: "))
-     ("scope" "read write follow"))
+   `(("client_id" . ,(plist-get (mastodon-client) :client_id))
+     ("client_secret" . ,(plist-get (mastodon-client) :client_secret))
+     ("grant_type" . "password")
+     ("username" . ,(read-string "Email: " user-mail-address))
+     ("password" . ,(read-passwd "Password: "))
+     ("scope" . "read write follow"))
    nil
    :unauthenticated))
 
diff --git a/lisp/mastodon-http.el b/lisp/mastodon-http.el
index 052218c..bc48e8d 100644
--- a/lisp/mastodon-http.el
+++ b/lisp/mastodon-http.el
@@ -113,12 +113,6 @@ Authorization header is included by default unless UNAUTHENTICED-P is non-nil."
           (url-retrieve-synchronously url)
         (url-retrieve-synchronously url nil nil mastodon-http--timeout)))))
 
-(defun mastodon-http--read-file-as-string (filename)
-  ""
-  (with-temp-buffer
-    (insert-file-contents filename)
-    (string-to-unibyte (buffer-string))))
-
 (defun mastodon-http--get (url)
   "Make synchronous GET request to URL.