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:
61672b1
)
cc: improve abbreviations; show options legend
author
Mischa POSLAWSKY
<perl@shiar.org>
Sun, 18 Oct 2009 14:28:51 +0000
(14:28 +0000)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sun, 18 Oct 2009 14:28:51 +0000
(14:28 +0000)
base.css
patch
|
blob
|
history
cc.plp
patch
|
blob
|
history
diff --git
a/base.css
b/base.css
index bfce8a2568bc3164dca2ae7364c8069e5be20861..b56604553895f31032df0d794bfbb014a5e23b12 100644
(file)
--- a/
base.css
+++ b/
base.css
@@
-305,7
+305,7
@@
td.Mn {background: #ACC} /* modifier */
td.Cc, td.Cf {color: #666; background: #BBB} /* control */
td.Zs {background: #ACB} /* space */
td.Zs span {background: #EEE}
td.Cc, td.Cf {color: #666; background: #BBB} /* control */
td.Zs {background: #ACB} /* space */
td.Zs span {background: #EEE}
-td.Co {background: #
A99
} /* private */
+td.Co {background: #
DCC
} /* private */
td.Xi, td.Cs {background: #CCC} /* invalid */
td.Xd {color: #844} /* deprecated */
td.Xr {color: #888} /* reserved (digraph reverse or proposal) */
td.Xi, td.Cs {background: #CCC} /* invalid */
td.Xd {color: #844} /* deprecated */
td.Xr {color: #888} /* reserved (digraph reverse or proposal) */
diff --git
a/cc.plp
b/cc.plp
index b36d7446ae1128c7d8d4f73b549d5e5a3aaaee88..afd10edcffb242df0f9e96df96d123957e28ad95 100644
(file)
--- a/
cc.plp
+++ b/
cc.plp
@@
-42,7
+42,7
@@
sub quote {
printf '<table class="mcmap">';
print '<col><colgroup span="26">';
for my $section (qw{thead}) {
printf '<table class="mcmap">';
print '<col><colgroup span="26">';
for my $section (qw{thead}) {
- print "<$section><tr><th>�
�
";
+ print "<$section><tr><th>�
�
";
print '<th>', $_ for 'a' .. 'z';
print "\n";
}
print '<th>', $_ for 'a' .. 'z';
print "\n";
}
@@
-69,13
+69,13
@@
sub quote {
s/ republic\b//gi;
s/ islands?\b//gi;
s/\bthe //g;
s/ republic\b//gi;
s/ islands?\b//gi;
s/\bthe //g;
- s/ and / & /g;
+ s/ and / & /g
and s/(?<=.)[a-z ]+//g
;
s/\bsaint /st /gi;
s/\bsaint /st /gi;
- s/South /S-/g;
- s/North /N-/g;
+ s/South
(?:ern)?
/S-/g;
+ s/North
(?:ern)?
/N-/g;
s/New /n./g;
s/(\S)(\S+)-/$1-/g; # strip most chars preceding dash
s/New /n./g;
s/(\S)(\S+)-/$1-/g; # strip most chars preceding dash
- s/(\S{4}[b-df-hj-np-tv-xz])(\
S
{2,})/$1./g; # abbreviate (at consonant)
+ s/(\S{4}[b-df-hj-np-tv-xz])(\
w
{2,})/$1./g; # abbreviate (at consonant)
$_ = quote($_);
}
$name =~ s/([^,]*), (.*)/$2 $1/;
$_ = quote($_);
}
$name =~ s/([^,]*), (.*)/$2 $1/;
@@
-102,6
+102,16
@@
sub quote {
<td class="">reserved
<td class="X Co">user-assigned
</table>
<td class="">reserved
<td class="X Co">user-assigned
</table>
+
+ <div class="right">
+ <ul class="legend legend-set">
+ <li><strong>show</strong>
+ <em><:= exists $get{show} ? 'flag images' : 'english names' :></em><:=
+ !exists $get{show} && ' by default' :>
+ <li>default <strong>style</strong> is
+ <:= defined $get{style} && 'set to ' :><em><:= $style :></em>
+ </ul>
+ </div>
</div>
<p class="footer">
</div>
<p class="footer">