[elpa] externals/ement f2b5831c4c 2/2: Add/Change: History lists for user IDs in ement-connect

[ELPA Syncer]

branch: externals/ement
commit f2b5831c4c6ab77a7078b0327194a856900314ae
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Add/Change: History lists for user IDs in ement-connect
    
    Fixes #122.
---
 README.org | 2 +-
 ement.el   | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 5e6a5f62b0..bc4d651230 100644
--- a/README.org
+++ b/README.org
@@ -297,7 +297,7 @@ Ement.el doesn't support encrypted rooms natively, but it 
can be used transparen
 *Additions*
 
 + Face ~ement-room-quote~, applied to quoted parts of replies.
-+ Commands that read a string from the minibuffer in ~ement-room~ buffers use 
separate history list variables.
++ Commands that read a string from the minibuffer in ~ement-room~ buffers and 
~ement-connect~ user ID prompts use separate history list variables.
 
 *Fixes*
 
diff --git a/ement.el b/ement.el
index 4ac4af4492..e4349cb386 100644
--- a/ement.el
+++ b/ement.el
@@ -106,6 +106,9 @@ by users; ones who do so should know what they're doing.")
 (defvar ement-read-receipt-idle-timer nil
   "Idle timer used to update read receipts.")
 
+(defvar ement-connect-user-id-history nil
+  "History list of user IDs entered into `ement-connect'.")
+
 ;; From other files.
 (defvar ement-room-avatar-max-width)
 (defvar ement-room-avatar-max-height)
@@ -210,7 +213,7 @@ the port, e.g.
   \"http://localhost:8080\"";
   (interactive (if current-prefix-arg
                    ;; Force new session.
-                   (list :user-id (read-string "User ID: "))
+                   (list :user-id (read-string "User ID: " nil 
'ement-connect-user-id-history))
                  ;; Use known session.
                  (unless ement-sessions
                    ;; Read sessions from disk.
@@ -219,7 +222,7 @@ the port, e.g.
                      (error (display-warning 'ement (format "Unable to read 
session data from disk (%s).  Prompting to log in again."
                                                             
(error-message-string err))))))
                  (cl-case (length ement-sessions)
-                   (0 (list :user-id (read-string "User ID: ")))
+                   (0 (list :user-id (read-string "User ID: " nil 
'ement-connect-user-id-history)))
                    (1 (list :session (cdar ement-sessions)))
                    (otherwise (list :session (ement-complete-session))))))
   (let (sso-server-process)
@@ -332,7 +335,7 @@ Ement: SSO login accepted; session token received.  
Connecting to Matrix server.
         ;; Start password login flow.  Prompt for user ID and password
         ;; if not given (i.e. if not called interactively.)
         (unless user-id
-          (setf user-id (read-string "User ID: ")))
+          (setf user-id (read-string "User ID: " nil 
'ement-connect-user-id-history)))
         (setf session (new-session))
         (when (ement-api session "login" :then #'flows-callback)
           (message "Ement: Checking server's login flows..."))))))