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

(zilch statusbar): misc fixes

Browse source
This commit is contained in:
puck 2024-10-04 16:05:46 +00:00
parent ba58f94843
commit e86317583d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/src/statusbar.sld
View file

@ -137,14 +137,14 @@
(mutex-unlock! out-mutex))) (mutex-unlock! out-mutex)))
(define (handle-log-event event data) (define (handle-log-event event data)
(cond (cond
((eqv? event 'next) (bypass-write (string->utf8 data))) ((eqv? event 'next) (bypass-write (string->utf8 (string-copy data 0 (- (string-length data) 1)))))
((eqv? event 'write) (bypass-write (string->utf8 data))) ((eqv? event 'write) (bypass-write (string->utf8 data))) ; TODO(puck): is this ever called?
((eqv? event 'error) (error data)) ((eqv? event 'error) (error data))
((and (eqv? event 'activity-start) (eq? (list-ref data 3) 104)) (set! last-builds-activity-id (list-ref data 1))) ((and (eqv? event 'activity-start) (eq? (list-ref data 3) 104)) (set! last-builds-activity-id (list-ref data 1)))
((and (eqv? event 'activity-start) (eq? (list-ref data 3) 105)) ((and (eqv? event 'activity-start) (eq? (list-ref data 3) 105))
(set! build-activity-mapping (set! build-activity-mapping
(mapping-set! build-activity-mapping (list-ref data 1) (mapping-set! build-activity-mapping (list-ref data 1)
(string-drop-while (vector-ref (list-ref data 5) 0) (lambda (f) (not (char=? f #\-))))))) (string-drop (string-drop-while (vector-ref (list-ref data 5) 0) (lambda (f) (not (char=? f #\-)))) 1))))
((eqv? event 'activity-start) (set! last-activity-start-id (list-ref data 1)) (set! last-activity-start (list-ref data 4)) (rerender-status-bar)) ((eqv? event 'activity-start) (set! last-activity-start-id (list-ref data 1)) (set! last-activity-start (list-ref data 4)) (rerender-status-bar))
((eqv? event 'activity-stop) ((eqv? event 'activity-stop)
(set! build-activity-mapping (mapping-delete! build-activity-mapping data))) (set! build-activity-mapping (mapping-delete! build-activity-mapping data)))