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

- prevented rendering gemini files in the message window when a toot is shown.

This commit is contained in:
cage 2021-05-15 10:35:09 +02:00
parent 088e760503
commit 3b92318814
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/program-events.lisp
View File

@ -1120,11 +1120,12 @@
(source gemini-client:source)
(links gemini-client:links)
(text-rendering-theme gemini-client:text-rendering-theme)) response
(when (and (gemini-viewer:downloading-allowed-p wrapper-object)
(not (skip-rendering-p object)))
(let* ((win specials:*message-window*)
(ir-line (gemini-parser:sexp->text-rows parsed-file
text-rendering-theme)))
(let* ((win specials:*message-window*)
(ir-line (gemini-parser:sexp->text-rows parsed-file
text-rendering-theme)))
(when (and (gemini-viewer:downloading-allowed-p wrapper-object)
(not (skip-rendering-p object))
(message-window:display-gemini-text-p win))
(setf (windows:keybindings win)
keybindings:*gemini-message-keymap*)
(refresh-gemini-message-window links source ir-line append-text)