cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- allowed, again, nil value for some message window data when loading a gemini resource.

Browse Source
This commit is contained in:
cage 2021-03-27 09:41:44 +01:00
parent 16c131e952
commit 57776623aa
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/program-events.lisp
View File

@ -1065,12 +1065,9 @@
(push new-row reversed-rows)) (push new-row reversed-rows))
(setf rows (reverse reversed-rows)))) (setf rows (reverse reversed-rows))))
(progn (progn
(when rendered-text (setf (message-window:source-text win) rendered-text)
(setf (message-window:source-text win) rendered-text)) (setf (gemini-viewer:gemini-metadata-source-file window-metadata) source)
(when source (setf (gemini-viewer:gemini-metadata-links window-metadata) links)))))
(setf (gemini-viewer:gemini-metadata-source-file window-metadata) source))
(when links
(setf (gemini-viewer:gemini-metadata-links window-metadata) links))))))
(defmethod process-event ((object gemini-got-line-event)) (defmethod process-event ((object gemini-got-line-event))
(with-accessors ((response payload) (with-accessors ((response payload)