git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: fix utf8 io layer of cgi output
[sheet.git]
/
termcol.plp
diff --git
a/termcol.plp
b/termcol.plp
index 1ea1a83353afefc1a9d00d5a2908585b0ac5a107..92844a50e86ccf2b0337205a3473abd943299ced 100644
(file)
--- a/
termcol.plp
+++ b/
termcol.plp
@@
-42,37
+42,43
@@
sub colcell {
my %col = (
-html => [
my %col = (
-html => [
+ sprintf('<a title="%s" href="%s">html</a>',
+ 'HTML keywords (inherited by CSSā„2.1 and SVG), mostly identical to X11',
+ 'http://www.w3.org/TR/css3-color/#html4',
+ ),
qw/black maroon green olive navy purple cyan silver
gray red lime yellow blue fuchsia aqua white/,
qw/reset bold dim italic underline blink fastblink
reverse hidden/,
],
html => [
qw/black maroon green olive navy purple cyan silver
gray red lime yellow blue fuchsia aqua white/,
qw/reset bold dim italic underline blink fastblink
reverse hidden/,
],
html => [
- qw/000000 CCCCCC/,
qw/000000 800000 008000 808000 000080 800080 008080 C0C0C0
808080 FF0000 00FF00 FFFF00 0000FF FF00FF 00FFFF FFFFFF/,
],
qw/000000 800000 008000 808000 000080 800080 008080 C0C0C0
808080 FF0000 00FF00 FFFF00 0000FF FF00FF 00FFFF FFFFFF/,
],
+# -cga => linux console, kde?
cga => [
cga => [
- qw/000000 CCCCCC/,
qw/000000 AA0000 00AA00 AA5500 0000AA AA00AA 00AAAA AAAAAA
555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF/,
],
qw/000000 AA0000 00AA00 AA5500 0000AA AA00AA 00AAAA AAAAAA
555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF/,
],
+# -xterm => rxvt except for blues
xterm => [
xterm => [
- qw/000000 CCCCCC/,
qw/000000 CC0000 00CC00 CCCC00 4682B4 CC00CC 00CCCC E5E5E5
4C4C4C FF0000 00FF00 FFFF00 1E90FF FF00FF 00FFFF FFFFFF/,
],
qw/000000 CC0000 00CC00 CCCC00 4682B4 CC00CC 00CCCC E5E5E5
4C4C4C FF0000 00FF00 FFFF00 1E90FF FF00FF 00FFFF FFFFFF/,
],
+# -tango => default Gnome theme
tango => [
tango => [
- qw/000000 CCCCCC/,
qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/,
],
-xkcd => [
qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/,
],
-xkcd => [
+ sprintf('<a title="%s" href="%s">xkcd</a>',
+ 'human averages in xkcd survey results',
+ 'http://blog.xkcd.com/2010/05/03/color-survey-results/',
+ ),
qw/black maroon green olive navy purple teal silver
grey red lime yellow blue fuchsia cyan white/,
],
xkcd => [
qw/black maroon green olive navy purple teal silver
grey red lime yellow blue fuchsia cyan white/,
],
xkcd => [
- 0,0,
qw/000000 650021 15b01a 6e750e 01153e 7e1e9c 029386 c5c9c7
929591 e50000 aaff32 ffff14 0343df ed0dd9 00ffff ffffff/,
],
qw/000000 650021 15b01a 6e750e 01153e 7e1e9c 029386 c5c9c7
929591 e50000 aaff32 ffff14 0343df ed0dd9 00ffff ffffff/,
],
@@
-80,10
+86,10
@@
my %col = (
for my $term (qw/cga xterm tango html xkcd/) {
print '<table>', "\n";
for my $term (qw/cga xterm tango html xkcd/) {
print '<table>', "\n";
- print
"<caption>$term</caption>\n"
;
+ print
f "<caption>%s</caption>\n", $col{"-$term"}[0] || $term
;
for my $num (0 .. 15) {
for my $num (0 .. 15) {
- my $rgb = $col{$term}[$num
+ 2
];
- my $name = $col{"-$term"}[$num] || $num;
+ my $rgb = $col{$term}[$num];
+ my $name = $col{"-$term"}[$num
+ 1
] || $num;
$name = [ $name, ['#333'] ] if $term eq 'xkcd';
print '<tr>', colcell($name, $rgb);
}
$name = [ $name, ['#333'] ] if $term eq 'xkcd';
print '<tr>', colcell($name, $rgb);
}