git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
digraphs: comment program version in vim include
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index a78a90c043d72c2d811aa742f2e5f8983408277a..18123a61e127c8640681152c3ad25231f78f4eb0 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-32,20
+32,23
@@
my @chars = (
['a'..'m'], ['n'..'z'],
);
my @chars2 = (['_'], @chars); # trailing character (extended set)
['a'..'m'], ['n'..'z'],
);
my @chars2 = (['_'], @chars); # trailing character (extended set)
+my @columns = !exists $get{split} ? \@chars2 :
+ ([@chars2[0, 1, 3, 4, 6]], [@chars2[2, 5, 7]]);
+for my $colchars (@columns) {
print '<table class="glyphs dimap"><col>';
print '<table class="glyphs dimap"><col>';
-print qq'<colgroup span="$_">' for map {scalar @$_} @
chars2
;
+print qq'<colgroup span="$_">' for map {scalar @$_} @
{$colchars}
;
print "</colgroup><col>\n";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th>↳";
print "</colgroup><col>\n";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th>↳";
- print '<th>', EscapeHTML($_) for map {@$_} @
chars2
;
+ print '<th>', EscapeHTML($_) for map {@$_} @
{$colchars}
;
print "<th> \n";
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
print '<tr><th>', EscapeHTML($c1);
print "<th> \n";
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
print '<tr><th>', EscapeHTML($c1);
- for my $c2 (map {@$_} @
chars2
) {
+ for my $c2 (map {@$_} @
$colchars
) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
print '<td>';
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
print '<td>';
@@
-63,7
+66,7
@@
for my $c1group (@chars) {
my @class = ('X', grep {$_} $prop, $script);
$glyph = EscapeHTML($glyph);
my @class = ('X', grep {$_} $prop, $script);
$glyph = EscapeHTML($glyph);
- $glyph = "<span>$glyph</span>" if $
prop
=~ /\bZs\b/;
+ $glyph = "<span>$glyph</span>" if $
script
=~ /\bZs\b/;
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), EscapeHTML($desc), $glyph;
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), EscapeHTML($desc), $glyph;
@@
-72,13
+75,15
@@
for my $c1group (@chars) {
}
}
print "</table>\n";
}
}
print "</table>\n";
+print '<hr>' if exists $get{split};
+}
:>
<div class="legend">
<table class="glyphs"><tr>
<td class="X Cc">control
:>
<div class="legend">
<table class="glyphs"><tr>
<td class="X Cc">control
- <td class="X Zs"><span>spac
ing
</span>
- <td class="X Mn">
modifier
- <td class="X Sk">spacing
modifier
+ <td class="X Zs"><span>spac
e
</span>
+ <td class="X Mn">
combining
+ <td class="X Sk">spacing
modifier
<td class="X Pf">quote
<td class="X Po">punctuation
<td class="X So">symbol
<td class="X Pf">quote
<td class="X Po">punctuation
<td class="X So">symbol