puck/zilch
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(zilch statusbar): fix activity glitchiness

Browse source 
Change-Id: Ia8f951c9708a632a5d7b4340cf210d9a6a6a6964
This commit is contained in:
puck 2025-11-24 13:12:36 +00:00
parent 66fa24c69d
commit 57f5e866c2
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/src/statusbar.sld
View file

@ -118,11 +118,12 @@
(set! need-redraw #t))
(define (bypass-write buf)
(mutex-lock! out-mutex)
(write-err-line buf 0 (bytevector-length buf))
(draw-status-bar)
(set! need-redraw #f)
(mutex-unlock! out-mutex))
(when (> (bytevector-length buf) 0)
(mutex-lock! out-mutex)
(write-err-line buf 0 (bytevector-length buf))
(draw-status-bar)
(set! need-redraw #f)
(mutex-unlock! out-mutex)))
(define (close-this-port)
(mutex-lock! out-mutex)
@ -187,7 +188,7 @@
(set! build-activity-mapping
(mapping-set! build-activity-mapping (nix-activity-id data)
(string-drop (string-drop-while (vector-ref (nix-activity-fields data) 0) (lambda (f) (not (char=? f #\-)))) 1))))
((eqv? event 'activity-start) (set! statusbar-msg (nix-activity-string data)) (rerender-status-bar))
((eqv? event 'activity-start) (when (> (string-length (nix-activity-string data)) 0) (set! statusbar-msg (nix-activity-string data)) (rerender-status-bar)))
((eqv? event 'activity-stop)
(set! build-activity-mapping (mapping-delete! build-activity-mapping data)))
((and (eqv? event 'activity-result) (eqv? (nix-activity-type data) 101))