cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-30 04:14:47 +01:00
Code Issues

- gave focus back to message window when closing link window in gemini mode.

Browse Source
This commit is contained in:
cage 2020-06-28 11:46:24 +02:00
parent 62d3356e78
commit 4aae454fb1
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ui-goodies.lisp
View File

@ -750,6 +750,12 @@ Force the checking for new message in the thread the selected message belong."
(setf ,window-to-close nil) (setf ,window-to-close nil)
(focus-to-thread-window))) (focus-to-thread-window)))
(defmacro close-window-and-return-to-message (window-to-close)
`(progn
(win-close ,window-to-close)
(setf ,window-to-close nil)
(focus-to-message-window)))
(defun cancel-send-message () (defun cancel-send-message ()
"Cancel sending operation" "Cancel sending operation"
(close-window-and-return-to-threads specials:*send-message-window*)) (close-window-and-return-to-threads specials:*send-message-window*))
@ -952,7 +958,9 @@ Browse and optionally open the links the text of the message window contains."
(defun close-open-message-link-window () (defun close-open-message-link-window ()
(when (message-window:display-gemini-text-p specials:*open-message-link-window*) (when (message-window:display-gemini-text-p specials:*open-message-link-window*)
(open-message-link-window:forget-gemini-link-window)) (open-message-link-window:forget-gemini-link-window))
(close-window-and-return-to-threads specials:*open-message-link-window*)) (if (message-window:display-gemini-text-p specials:*message-window*)
(close-window-and-return-to-message specials:*open-message-link-window*)
(close-window-and-return-to-threads specials:*open-message-link-window*)))
(defun prompt-for-username (prompt complete-function event (defun prompt-for-username (prompt complete-function event
notify-starting-message notify-starting-message