cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-11 07:30:34 +01:00
Code Issues

- [gemini] fixed a regression, display again source of a gemini file.

Browse Source
This commit is contained in:
cage 2020-10-24 14:22:09 +02:00
parent a8b5524fcb
commit 9adf79a65b
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/gemini-viewer.lisp
View File

@ -560,6 +560,7 @@
(when-let* ((metadata (message-window:metadata window)) (when-let* ((metadata (message-window:metadata window))
(source (gemini-metadata-source-file metadata)) (source (gemini-metadata-source-file metadata))
(last (misc:safe-last-elt (gemini-metadata-history metadata)))) (last (misc:safe-last-elt (gemini-metadata-history metadata))))
(misc:dbg "source ~a" source)
(setf (message-window:source-text window) source) (setf (message-window:source-text window) source)
(draw window) (draw window)
(ui:info-message (format nil (_ "Viewing source of: ~a") last)))) (ui:info-message (format nil (_ "Viewing source of: ~a") last))))

2
src/program-events.lisp
View File

@ -983,7 +983,7 @@
(gemini-viewer:append-metadata-source window-metadata source)) (gemini-viewer:append-metadata-source window-metadata source))
(progn (progn
(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) rendered-text) (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)))))
(defmethod process-event ((object gemini-got-line-event)) (defmethod process-event ((object gemini-got-line-event))