21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
(define (gutils:get-color-for-state-status state status);; #!key (get-label #f))
;; ((if get-label cadr car)
(case (string->symbol state)
((COMPLETED)
(case (string->symbol status)
((PASS) (list "70 249 73" status))
((WARN WAIVED) (list "255 172 13" status))
((SKIP) (list "230 230 0" status))
(else (list "223 33 49" status))))
;; (if (equal? status "PASS")
;; '("70 249 73" "PASS")
|
|
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
(define (gutils:get-color-for-state-status state status);; #!key (get-label #f))
;; ((if get-label cadr car)
(case (string->symbol state)
((COMPLETED ARCHIVED)
(case (string->symbol status)
((PASS) (list "70 249 73" status))
((WARN WAIVED) (list "255 172 13" status))
((SKIP) (list "230 230 0" status))
(else (list "223 33 49" status))))
;; (if (equal? status "PASS")
;; '("70 249 73" "PASS")
|