cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- reset the message window's title when opening a post and the message 

window is displaying a gemini page;
- removed unused argument.
This commit is contained in:
cage 2022-10-14 12:53:44 +02:00
parent 0604a1d8d0
commit f2b457e578
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ui-goodies.lisp
View File

@ -342,9 +342,14 @@ Metadata includes:
(defun thread-open-selected-message () (defun thread-open-selected-message ()
"Open selected message" "Open selected message"
(setf (windows:keybindings specials:*message-window*) (let ((new-title-event (make-instance 'program-events:change-window-title-event
keybindings:*message-keymap*) :payload (message-window::message-window-title)
(thread-window:open-message *thread-window*)) :window *message-window*)))
(push-event new-title-event)
(with-enqueued-process ()
(setf (windows:keybindings specials:*message-window*)
keybindings:*message-keymap*)
(thread-window:open-message *thread-window*))))
(defun thread-mark-delete-selected-message () (defun thread-mark-delete-selected-message ()
"Mark selected message for deletion" "Mark selected message for deletion"
@ -2266,7 +2271,7 @@ Currently the only recognized protocols are gemini and kami."
(multiple-value-bind (host port type selector) (multiple-value-bind (host port type selector)
(gopher-parser:parse-iri trimmed-url) (gopher-parser:parse-iri trimmed-url)
(gopher-window::make-request host port type selector)) (gopher-window::make-request host port type selector))
(error (e) (error-message (_ "Invalid gopher address.")))))) (error () (error-message (_ "Invalid gopher address."))))))
(t (t
(open-gemini-address trimmed-url)))))) (open-gemini-address trimmed-url))))))
(if (null address) (if (null address)