git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
c9e24e1
)
termcol: hover title with decimal r,g,b values
author
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 4 Dec 2009 19:48:17 +0000
(19:48 +0000)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 4 Dec 2009 19:54:06 +0000
(19:54 +0000)
termcol.plp
patch
|
blob
|
history
diff --git
a/termcol.plp
b/termcol.plp
index ee27125c8856b8dcd9c426ccb3bd18bec785b0d9..5a0306afc66c92727ea34ca7655a59dd0db03222 100644
(file)
--- a/
termcol.plp
+++ b/
termcol.plp
@@
-35,8
+35,9
@@
sub colcell {
my $rgb48 = '';
$rgb48 .= sprintf '%02X', $_ for @rgb[0..2];
my $inverse = sprintf('%X', luminance(@rgb)/255 < .3 ? 12 : 0) x 3;
my $rgb48 = '';
$rgb48 .= sprintf '%02X', $_ for @rgb[0..2];
my $inverse = sprintf('%X', luminance(@rgb)/255 < .3 ? 12 : 0) x 3;
- return sprintf '<td style="%s; padding:0 1ex">%s<td style="%s">%s<td style="%s">%s'."\n",
- "background:#$rgb48; color:#$inverse",
+ return sprintf '<td title="%s" style="%s">%s<td style="%s">%s<td style="%s">%s'."\n",
+ join(',', map { int } @rgb[0..2]),
+ "background:#$rgb48; color:#$inverse; padding:0 1ex",
$id,
"background:#000; color:#$rgb48",
$rgb24,
$id,
"background:#000; color:#$rgb48",
$rgb24,