hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-05 17:21:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix: (ement-connect) Prompt for password if not given

Browse source 
See #17.
This commit is contained in:
Adam Porter 2021-08-10 09:54:29 -05:00
parent c486bb91b4
commit 92d851ec6e
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ement.el
View file

@ -137,6 +137,8 @@ again; otherwise, use a saved session if `ement-save-session' is
enabled and a saved session is available, or prompt to log in if enabled and a saved session is available, or prompt to log in if
not enabled or available. not enabled or available.
If PASSWORD is not specified, the user will be prompted for it.
If URI-PREFIX is specified, it should be the prefix of the If URI-PREFIX is specified, it should be the prefix of the
server's API URI, including protocol, hostname, and optionally server's API URI, including protocol, hostname, and optionally
the port, e.g. the port, e.g.
@ -193,6 +195,8 @@ the port, e.g.
(setf ement-sessions (list session)) (setf ement-sessions (list session))
(ement--sync (car ement-sessions))) (ement--sync (car ement-sessions)))
;; Start password login flow. ;; Start password login flow.
(unless password
(setf password (read-passwd (format "Password for %s: " user-id))))
(setf session (new-session)) (setf session (new-session))
(when (ement-api session "login" :then #'flows-callback) (when (ement-api session "login" :then #'flows-callback)
(message "Ement: Checking server's login flows..."))))) (message "Ement: Checking server's login flows...")))))