cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-28 09:37:38 +01:00
Code Issues

- fixed bug that prevented to properly reset links list when in gemini mode.

Browse Source
This commit is contained in:
cage 2020-06-28 12:59:23 +02:00
parent ee862ac62b
commit d1266fa422
3 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/message-window.lisp
View File

@ -37,6 +37,10 @@
(eq (keybindings window)
keybindings:*gemini-message-keymap*))
(defun prepare-for-display-status-mode (window)
(setf (keybindings window)
keybindings:*message-keymap*))
(defgeneric prepare-for-rendering (object))
(defmethod prepare-for-rendering ((object message-window))

1
src/package.lisp
View File

@ -1685,6 +1685,7 @@
:source-text
:metadata
:display-gemini-text-p
:prepare-for-display-status-mode
:scroll-down
:scroll-up
:scroll-end

21
src/ui-goodies.lisp
View File

@ -340,17 +340,16 @@ Metadata includes:
nil)
,@windows-lose-focus)))
(gen-focus-to-window thread-window
specials:*thread-window*
:documentation "Move focus on thread window"
:info-change-focus-message (_ "Focus passed on threads window")
:windows-lose-focus (specials:*open-message-link-window*
specials:*open-attach-window*
specials:*conversations-window*
specials:*tags-window*
specials:*send-message-window*
specials:*message-window*
specials:*follow-requests-window*))
(defun focus-to-thread-window (&key (print-message t))
"move focus on thread window"
(message-window:prepare-for-display-status-mode specials:*message-window*)
(give-focus *thread-window*
(if print-message
(_ "focus passed on threads window")
nil)
*open-message-link-window* *open-attach-window*
*conversations-window* *tags-window* *send-message-window*
*message-window* *follow-requests-window*))
(gen-focus-to-window message-window
specials:*message-window*