From ad33ca61df281351e728931068e094aec967b5f3 Mon Sep 17 00:00:00 2001 From: cage Date: Mon, 11 Jan 2021 19:14:53 +0100 Subject: [PATCH] - [gemini] prevent gemlog window to lose focus when a gemlog is selected. - made gemlog window close when focus passes to thread window. --- src/ui-goodies.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index d4f3ce8..70d1675 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -400,7 +400,9 @@ Metadata includes: *message-window* *follow-requests-window*) (when-window-shown (*chats-list-window*) - (close-chats-list-window))) + (close-chats-list-window)) + (when-window-shown (*gemini-subscription-window*) + (close-gemlog-window))) (gen-focus-to-window message-window *message-window* @@ -1264,8 +1266,7 @@ certificate). :title (db:row-title fields) :subtitle (db:row-subtitle fields) :entries entries))) - (program-events:push-event event) - (focus-to-message-window)))) + (program-events:push-event event)))) (defun gemlog-refresh-all () (with-blocking-notify-procedure ((_ "updating gemlog's subscriptions"))