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

- fixed 'refresh-gemini-message-window', was always appending contents.

This commit is contained in:
cage 2021-04-05 16:28:52 +02:00
parent fc1aa5f1e6
commit a0d566fb71
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/program-events.lisp
View File

@ -1096,21 +1096,22 @@
(defun refresh-gemini-message-window (links source rendered-text ir-rows append-text)
(let* ((win specials:*message-window*)
(window-metadata (message-window:metadata win)))
(misc:dbg "append ~a ~a" append-text rendered-text)
(with-accessors ((rows message-window::rows)) win
(let ((new-rows (message-window:text->rendered-lines-rows win
ir-rows))
(reversed-rows (reverse rows)))
(loop for new-row in new-rows do
(push new-row reversed-rows))
(setf rows (reverse reversed-rows))
(message-window:append-source-text win rendered-text :prepare-for-rendering nil)
(if append-text
(progn
(loop for new-row in new-rows do
(push new-row reversed-rows))
(gemini-viewer:append-metadata-link window-metadata links)
(gemini-viewer:append-metadata-source window-metadata source))
(gemini-viewer:append-metadata-source window-metadata source)
(setf rows (reverse reversed-rows)))
(progn
(setf (gemini-viewer:gemini-metadata-source-file window-metadata) source)
(setf (gemini-viewer:gemini-metadata-links window-metadata) links)))))))
(setf (gemini-viewer:gemini-metadata-links window-metadata) links)
(setf rows new-rows)))))))
(defmethod process-event ((object gemini-got-line-event))
(with-accessors ((response payload)