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