mirror of https://codeberg.org/cage/tinmop/
Compare commits
2 Commits
f8f05a49ab
...
efed27fc64
Author | SHA1 | Date |
---|---|---|
cage | efed27fc64 | |
cage | efed58ac04 |
|
@ -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
|
||||
|
@ -355,6 +361,8 @@ Metadata includes:
|
|||
:window *message-window*)))
|
||||
(push-event new-title-event)
|
||||
(with-enqueued-process ()
|
||||
(when (gopher-window:gopher-window-p specials:*gopher-window*)
|
||||
(close-window-and-return-to-threads specials:*gopher-window*))
|
||||
(setf (windows:keybindings specials:*message-window*)
|
||||
keybindings:*message-keymap*)
|
||||
(thread-window:open-message *thread-window*))))
|
||||
|
@ -1284,12 +1292,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*)))
|
||||
|
|
Loading…
Reference in New Issue