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

report: improve html tables

parent ec2cfefa
...@@ -43,15 +43,16 @@ ...@@ -43,15 +43,16 @@
(:tr (:th (cl-who:str b)) (:tr (:th (cl-who:str b))
(dolist (r results) (dolist (r results)
(flet ((cell-color (value best) (flet ((cell-color (value best)
(cond ((> value (* 4 best)) "#b4b") (cond ((= value -1) "#fff")
((> value (* 2 best)) :red) ((> value (* 4 best)) "#b4b")
((> value (* 1.6 best)) :orange) ((> value (* 2 best)) :red)
((> value (* 1.25 best)) "#4b4") ((> value (* 1.6 best)) :orange)
((<= value (* 1.25 best)) :green))) ((> value (* 1.25 best)) "#4b4")
((<= value (* 1.25 best)) :green)))
(cell-style (color) (cell-style (color)
(format nil "background-color: ~A;" color))) (format nil "background-color: ~A;" color)))
(cl-who:htm (:td :style (cell-style (cell-color r best)) (cl-who:htm (:td :style (cell-style (cell-color r best))
(cl-who:str r))) (when r (cl-who:str r))))
))) )))
))))))) )))))))
benchmarks)) 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