branch: externals/ement
commit 13077e36e40f86a1b5a626f7b8fde7e4dcedced3
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Change: (ement-connect) Show message when browsing externally
---
ement.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/ement.el b/ement.el
index 1047616f1a..88c509a74d 100644
--- a/ement.el
+++ b/ement.el
@@ -295,10 +295,11 @@ Ement: SSO login accepted; session token received.
Connecting to Matrix server.
(run-at-time 120 nil (lambda ()
(when (process-live-p
sso-server-process)
(delete-process
sso-server-process))))
- (funcall browse-url-secondary-browser-function
- (concat (ement-server-uri-prefix
(ement-session-server session))
-
"/_matrix/client/r0/login/sso/redirect?redirectUrl=http://localhost:";
- (number-to-string
ement-sso-server-port))))
+ (let ((url (concat (ement-server-uri-prefix
(ement-session-server session))
+
"/_matrix/client/r0/login/sso/redirect?redirectUrl=http://localhost:";
+ (number-to-string
ement-sso-server-port))))
+ (funcall browse-url-secondary-browser-function
url)
+ (message "Browsing to single sign-on page
<%s>..." url)))
(flows-callback
(data) (let ((flows (cl-loop for flow across (map-elt data
'flows)
for type = (map-elt flow 'type)
