mirror of https://codeberg.org/cage/tinmop/
- moved macro up in the cource to prevent a warning.
This commit is contained in:
parent
f8f05a49ab
commit
efed58ac04
|
@ -348,6 +348,12 @@ Metadata includes:
|
||||||
(push-event (make-instance 'search-next-event
|
(push-event (make-instance 'search-next-event
|
||||||
:priority +maximum-event-priority+)))
|
: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 ()
|
(defun thread-open-selected-message ()
|
||||||
"Open selected message"
|
"Open selected message"
|
||||||
(let ((new-title-event (make-instance 'program-events:change-window-title-event
|
(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)
|
(win-close focused)
|
||||||
(focus-to-message-window))))
|
(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)
|
(defmacro close-window-and-return-to-message (window-to-close)
|
||||||
(with-gensyms (focused)
|
(with-gensyms (focused)
|
||||||
`(let ((,focused (main-window:focused-window *main-window*)))
|
`(let ((,focused (main-window:focused-window *main-window*)))
|
||||||
|
|
Loading…
Reference in New Issue