114
115
116
117
118
119
120
121
122
123
124
125
126
|
(failper (- 100 passper))
(run-key ;; (string-substitute ;; %2F = /
;; "-" "%2D"
;;(string-substitute "/" "%2F" (conc col-key "/" row-key) 'all)
(string-substitute "[/]" "_x_" (conc col-key "/" row-key) 'all)
;; 'all)))
))
(s:td 'style (conc "background: linear-gradient(to right, green " passper "%, red " failper "%);")
(s:a 'href (s:link-to "run" 'target run-key)
(conc total "/" pass "/" fail "/" other))))
(s:td ""))))
a-keys)))
b-keys))))))))
|
|
|
|
114
115
116
117
118
119
120
121
122
123
124
125
126
|
(failper (- 100 passper))
(run-key ;; (string-substitute ;; %2F = /
;; "-" "%2D"
;;(string-substitute "/" "%2F" (conc col-key "/" row-key) 'all)
(string-substitute "[/]" "_x_" (conc col-key "/" row-key) 'all)
;; 'all)))
))
(s:td 'style (conc "background: -webkit-linear-gradient(left, green " passper "%, red); background: -o-linear-gradient(right, green " passper "%, red); background: -moz-linear-gradient(right, green " passper "%, red); background: linear-gradient(to right, green " passper "%, red);")
(s:a 'href (s:link-to "run" 'target run-key)
(conc total "/" pass "/" fail "/" other))))
(s:td ""))))
a-keys)))
b-keys))))))))
|