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 (parent:
02ad375
)
termcol: drop unused foreground/background declarations
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 16 Jun 2010 19:28:08 +0000
(19:28 +0000)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 16 Jun 2010 19:29:48 +0000
(19:29 +0000)
termcol.plp
patch
|
blob
|
history
diff --git
a/termcol.plp
b/termcol.plp
index b018685f9794fc3207cc329821b8d938ad2a5da2..275fba690b6f081558607aa90b5d4a226a67a06e 100644
(file)
--- a/
termcol.plp
+++ b/
termcol.plp
@@
-52,22
+52,18
@@
my %col = (
reverse hidden/,
],
html => [
reverse hidden/,
],
html => [
- qw/000000 CCCCCC/,
qw/000000 800000 008000 808000 000080 800080 008080 C0C0C0
808080 FF0000 00FF00 FFFF00 0000FF FF00FF 00FFFF FFFFFF/,
],
cga => [
qw/000000 800000 008000 808000 000080 800080 008080 C0C0C0
808080 FF0000 00FF00 FFFF00 0000FF FF00FF 00FFFF FFFFFF/,
],
cga => [
- qw/000000 CCCCCC/,
qw/000000 AA0000 00AA00 AA5500 0000AA AA00AA 00AAAA AAAAAA
555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF/,
],
xterm => [
qw/000000 AA0000 00AA00 AA5500 0000AA AA00AA 00AAAA AAAAAA
555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF/,
],
xterm => [
- qw/000000 CCCCCC/,
qw/000000 CC0000 00CC00 CCCC00 4682B4 CC00CC 00CCCC E5E5E5
4C4C4C FF0000 00FF00 FFFF00 1E90FF FF00FF 00FFFF FFFFFF/,
],
tango => [
qw/000000 CC0000 00CC00 CCCC00 4682B4 CC00CC 00CCCC E5E5E5
4C4C4C FF0000 00FF00 FFFF00 1E90FF FF00FF 00FFFF FFFFFF/,
],
tango => [
- qw/000000 CCCCCC/,
qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/,
],
qw/2E3436 CC0000 4E9A06 C4A000 3465A4 75507B 06989A D3D7CF
555753 EF2929 8AE234 FCE94F 729FCF AD7FA8 34E2E2 EEEEEC/,
],
@@
-80,7
+76,6
@@
my %col = (
grey red lime yellow blue fuchsia cyan white/,
],
xkcd => [
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/,
],
@@
-90,7
+85,7
@@
for my $term (qw/cga xterm tango html xkcd/) {
print '<table>', "\n";
printf "<caption>%s</caption>\n", $col{"-$term"}[0] || $term;
for my $num (0 .. 15) {
print '<table>', "\n";
printf "<caption>%s</caption>\n", $col{"-$term"}[0] || $term;
for my $num (0 .. 15) {
- my $rgb = $col{$term}[$num
+ 2
];
+ my $rgb = $col{$term}[$num];
my $name = $col{"-$term"}[$num + 1] || $num;
$name = [ $name, ['#333'] ] if $term eq 'xkcd';
print '<tr>', colcell($name, $rgb);
my $name = $col{"-$term"}[$num + 1] || $num;
$name = [ $name, ['#333'] ] if $term eq 'xkcd';
print '<tr>', colcell($name, $rgb);