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

- [gemini] removed waiting for rendering of a page before going back in browsing history.

This commit is contained in:
cage 2020-10-01 16:48:59 +02:00
parent ce61ab6537
commit 0f1587bf14
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/program-events.lisp
View File

@ -956,6 +956,7 @@
(defclass gemini-back-event (program-event) ())
(defmethod process-event ((object gemini-back-event))
(push-downloading-behind)
(gemini-viewer:history-back specials:*message-window*))
(defclass gemini-got-line-event (program-event)
@ -1024,13 +1025,16 @@
(defclass gemini-push-behind-downloading-event (program-event) ())
(defmethod process-event ((object gemini-push-behind-downloading-event))
(defun push-downloading-behind ()
(map-events (lambda (a)
(when (typep a 'gemini-got-line-event)
(setf (skip-rendering a) t)
(setf (priority a) +minimum-event-priority+))
a)))
(defmethod process-event ((object gemini-push-behind-downloading-event))
(push-downloading-behind))
(defclass gemini-enqueue-download-event (program-event) ())
(defmethod process-event ((object gemini-enqueue-download-event))