From 13077e36e40f86a1b5a626f7b8fde7e4dcedced3 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 14 Aug 2023 01:08:34 -0500 Subject: [PATCH] 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 1047616f..88c509a7 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)