diff options
| author | Jürgen Hötzel <juergen@hoetzel.info> | 2018-08-18 12:37:49 +0200 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2019-03-04 22:44:28 -0500 |
| commit | 0bfb7f843b508c78de94d534a67a6967a22bb95b (patch) | |
| tree | 23a08885944cc1744c08c72209b9f5455bbec7a6 | |
| parent | 585a2dd79f6f929378237c3a678cf43efdf37407 (diff) | |
Use the email address of the current user as default (#203)
* Use the email address of the current user as default
| -rw-r--r-- | lisp/mastodon-auth.el | 2 | ||||
| -rw-r--r-- | test/mastodon-auth-tests.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el index 593562b..71469cf 100644 --- a/lisp/mastodon-auth.el +++ b/lisp/mastodon-auth.el @@ -72,7 +72,7 @@ if you are happy with unencryped storage use e.g. \"~/authinfo\"." `(("client_id" . ,(plist-get (mastodon-client) :client_id)) ("client_secret" . ,(plist-get (mastodon-client) :client_secret)) ("grant_type" . "password") - ("username" . ,(read-string "Email: ")) + ("username" . ,(read-string "Email: " user-mail-address)) ("password" . ,(read-passwd "Password: ")) ("scope" . "read write follow")) nil diff --git a/test/mastodon-auth-tests.el b/test/mastodon-auth-tests.el index 5108f9a..7daa4db 100644 --- a/test/mastodon-auth-tests.el +++ b/test/mastodon-auth-tests.el @@ -6,7 +6,7 @@ (let ((mastodon-auth-source-file "") (mastodon-instance-url "https://instance.url")) (mock (mastodon-client) => '(:client_id "id" :client_secret "secret")) - (mock (read-string "Email: ") => "foo@bar.com") + (mock (read-string "Email: " user-mail-address) => "foo@bar.com") (mock (read-passwd "Password: ") => "password") (mock (mastodon-http--post "https://instance.url/oauth/token" '(("client_id" . "id") |