From 9adf79a65b19dd38ef7926f60b10723dc177ec4c Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 24 Oct 2020 14:22:09 +0200 Subject: [PATCH] - [gemini] fixed a regression, display again source of a gemini file. --- src/gemini-viewer.lisp | 1 + src/program-events.lisp | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/gemini-viewer.lisp b/src/gemini-viewer.lisp index 22772d6..c16168a 100644 --- a/src/gemini-viewer.lisp +++ b/src/gemini-viewer.lisp @@ -560,6 +560,7 @@ (when-let* ((metadata (message-window:metadata window)) (source (gemini-metadata-source-file metadata)) (last (misc:safe-last-elt (gemini-metadata-history metadata)))) + (misc:dbg "source ~a" source) (setf (message-window:source-text window) source) (draw window) (ui:info-message (format nil (_ "Viewing source of: ~a") last)))) diff --git a/src/program-events.lisp b/src/program-events.lisp index 83aa369..60b0738 100644 --- a/src/program-events.lisp +++ b/src/program-events.lisp @@ -983,7 +983,7 @@ (gemini-viewer:append-metadata-source window-metadata source)) (progn (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))))) (defmethod process-event ((object gemini-got-line-event))