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

- [gemini] fixed bug that prevented visit the same link more than once.

This commit is contained in:
cage 2020-12-21 14:35:59 +01:00
parent 43da313bd8
commit 7b957adfcf
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/open-message-link-window.lisp
View File

@ -69,11 +69,14 @@
(defun open-message-link (url enqueue) (defun open-message-link (url enqueue)
(if (string-starts-with-p gemini-constants:+gemini-scheme+ url) (if (string-starts-with-p gemini-constants:+gemini-scheme+ url)
(let ((event (make-instance 'program-events:gemini-push-behind-downloading-event (progn
:priority program-events:+maximum-event-priority+))) (let ((program-events:*process-events-immediately* t)
(gemini-viewer:ensure-just-one-stream-rendering) (event (make-instance 'program-events:gemini-push-behind-downloading-event
(program-events:push-event event) :priority program-events:+maximum-event-priority+)))
(gemini-viewer:request url :enqueue enqueue)) (gemini-viewer:ensure-just-one-stream-rendering)
(program-events:push-event event))
(gemini-viewer:request url :enqueue enqueue
:use-cached-file-if-exists t))
(os-utils:xdg-open url))) (os-utils:xdg-open url)))
(defclass open-links-window () (defclass open-links-window ()
@ -170,8 +173,8 @@
(gemini-parser:name a))) (gemini-parser:name a)))
(safe-subseq (links object) (safe-subseq (links object)
row-selected-index)))) row-selected-index))))
(call-next-method) ; seatch in urls (call-next-method) ; search in urls
(when position-header ;; but if han header has been found, it wins (when position-header ; but if an header has been found, it wins
(unselect-all object) (unselect-all object)
(select-row object (+ saved-selected-index position-header)) (select-row object (+ saved-selected-index position-header))
(when redraw (when redraw