Commit b8dc0bb7 authored by Daniel Kochmański's avatar Daniel Kochmański

report: improve html tables

parent ec2cfefa
......@@ -43,15 +43,16 @@
(:tr (:th (cl-who:str b))
(dolist (r results)
(flet ((cell-color (value best)
(cond ((> value (* 4 best)) "#b4b")
((> value (* 2 best)) :red)
((> value (* 1.6 best)) :orange)
((> value (* 1.25 best)) "#4b4")
((<= value (* 1.25 best)) :green)))
(cond ((= value -1) "#fff")
((> value (* 4 best)) "#b4b")
((> value (* 2 best)) :red)
((> value (* 1.6 best)) :orange)
((> value (* 1.25 best)) "#4b4")
((<= value (* 1.25 best)) :green)))
(cell-style (color)
(format nil "background-color: ~A;" color)))
(cl-who:htm (:td :style (cell-style (cell-color r best))
(cl-who:str r)))
(when r (cl-who:str r))))
)))
)))))))
benchmarks))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment