Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ansi-test
cl-bench
Commits
b8dc0bb7
Commit
b8dc0bb7
authored
May 22, 2016
by
Daniel Kochmański
Browse files
report: improve html tables
parent
ec2cfefa
Changes
1
Hide whitespace changes
Inline
Side-by-side
report/html-report.lisp
View file @
b8dc0bb7
...
...
@@ -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
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment