mirror of https://codeberg.org/cage/tinmop/
- [gemini] rendered again the focus mark when a gemini stream has ended.
This commit is contained in:
parent
a34cc83df5
commit
baffa09093
|
@ -370,6 +370,10 @@
|
|||
(maybe-render-toc ()
|
||||
(when (eq (stream-status wrapper-object) :rendering)
|
||||
(ui:open-gemini-toc)))
|
||||
(maybe-render-focus-mark ()
|
||||
(when (eq (stream-status wrapper-object) :rendering)
|
||||
(program-events:with-enqueued-process ()
|
||||
(windows:draw-focus-mark *message-window*))))
|
||||
(maybe-render-links ()
|
||||
(when (eq (stream-status wrapper-object) :rendering)
|
||||
(program-events:with-enqueued-process ()
|
||||
|
@ -448,6 +452,7 @@
|
|||
(progn
|
||||
(maybe-render-toc)
|
||||
(maybe-render-links)
|
||||
(maybe-render-focus-mark)
|
||||
(ui:notify (_ "Gemini document downloading completed"))
|
||||
(setf (stream-status wrapper-object) :completed)
|
||||
(when (and fragment
|
||||
|
|
|
@ -218,13 +218,10 @@
|
|||
(slowness 15))
|
||||
(declare (fixnum index frames slowness))
|
||||
(defun draw-downloading-animation (window)
|
||||
(declare (optimize (debug 0) (speed 2)))
|
||||
(declare (optimize (debug 0) (speed 3)))
|
||||
(let* ((animation-frames (swconf:gemini-downloading-animation))
|
||||
(max (length (the list animation-frames))))
|
||||
(print-text window
|
||||
(elt animation-frames index)
|
||||
0 0
|
||||
:attributes (attribute-bold))
|
||||
(print-text window (elt animation-frames index) 0 0 :attributes (attribute-bold))
|
||||
(incf frames)
|
||||
(when (= (rem frames slowness)
|
||||
0)
|
||||
|
|
|
@ -1824,6 +1824,7 @@
|
|||
:focus-marked-window
|
||||
:in-focus
|
||||
:in-focus-p
|
||||
:draw-focus-mark
|
||||
:border-window
|
||||
:uses-border-p
|
||||
:usable-window-width
|
||||
|
|
|
@ -716,11 +716,14 @@ insetred by the user"
|
|||
(setf (focus-mark object)
|
||||
(make-tui-string value :fgcolor fg :bgcolor bg))))
|
||||
|
||||
(defmethod draw :after ((object focus-marked-window))
|
||||
(definline draw-focus-mark (window)
|
||||
(with-accessors ((in-focus-p in-focus-p)
|
||||
(focus-mark focus-mark)) object
|
||||
(when (in-focus-p object)
|
||||
(print-text object focus-mark 0 0))))
|
||||
(focus-mark focus-mark)) window
|
||||
(when (in-focus-p window)
|
||||
(print-text window focus-mark 0 0))))
|
||||
|
||||
(defmethod draw :after ((object focus-marked-window))
|
||||
(draw-focus-mark object))
|
||||
|
||||
(defclass border-window ()
|
||||
((uses-border-p
|
||||
|
|
Loading…
Reference in New Issue