1
2
3
4
5
6
7
8
|
1
2
3
4
5
6
7
8
|
-
+
|
;;======================================================================
';;======================================================================
;; Copyright 2006-2012, Matthew Welland.
;;
;; This file is part of Megatest.
;;
;; Megatest is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
|
81
82
83
84
85
86
87
88
89
|
81
82
83
84
85
86
87
88
89
90
91
92
|
-
+
+
+
+
|
(case (string->symbol status)
((CLEAN-FAIL CLEAN-CHECK CLEAN-ABORT) (list "200 130 13" status)) ;; orange requested for these
(else (list "60 235 63" status))))
((DIRTY-BETTER) (list "160 255 153" status))
((DIRTY-WORSE) (list "165 42 42" status))
((BOTH-BAD) (list "180 33 49" status))
(else (list "192 192 192" state))))
(else (list
;; "192 192 192"
"222 222 221"
state))))
|