cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-08 07:08:39 +01:00
Code Issues

- moved macro up in the cource to prevent a warning.

Browse Source
This commit is contained in:
cage 2024-10-13 19:51:15 +02:00
parent f8f05a49ab
commit efed58ac04
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ui-goodies.lisp
View File

@ -348,6 +348,12 @@ Metadata includes:
(push-event (make-instance 'search-next-event
:priority +maximum-event-priority+)))
(defmacro close-window-and-return-to-threads (window-to-close)
`(progn
(win-close ,window-to-close)
(setf ,window-to-close nil)
(focus-to-thread-window)))
(defun thread-open-selected-message ()
"Open selected message"
(let ((new-title-event (make-instance 'program-events:change-window-title-event
@ -1284,12 +1290,6 @@ It an existing file path is provided the command will refuse to run."
(win-close focused)
(focus-to-message-window))))
(defmacro close-window-and-return-to-threads (window-to-close)
`(progn
(win-close ,window-to-close)
(setf ,window-to-close nil)
(focus-to-thread-window)))
(defmacro close-window-and-return-to-message (window-to-close)
(with-gensyms (focused)
`(let ((,focused (main-window:focused-window *main-window*)))