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

report: improve html tables

parent ec2cfefa
...@@ -43,7 +43,8 @@ ...@@ -43,7 +43,8 @@
(: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 (* 4 best)) "#b4b")
((> value (* 2 best)) :red) ((> value (* 2 best)) :red)
((> value (* 1.6 best)) :orange) ((> value (* 1.6 best)) :orange)
((> value (* 1.25 best)) "#4b4") ((> value (* 1.25 best)) "#4b4")
...@@ -51,7 +52,7 @@ ...@@ -51,7 +52,7 @@
(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