git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
apl: click to expand all descriptions
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index 718915dab4ed935c213ddefd96709ebf5bec7d2c..54097cb0bd788228c22ed223602bb8bb1e3119d3 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-32,6
+32,13
@@
are available as <a href="/digraphs.vim">ex commands</a>.</p>
my $di = do 'digraphs.inc.pl'
or die "Error loading digraphs data: ", $@ // $!;
my $di = do 'digraphs.inc.pl'
or die "Error loading digraphs data: ", $@ // $!;
+if (exists $get{v}) {
+ # show characters for inverted mnemonics (vim alternatives)
+ $di->{ substr($_, 1, 1) . substr($_, 0, 1) } ||=
+ [ $di->{$_}->[0], '', 'l0 ex', '', $di->{$_}->[4] ]
+ for grep { ref $di->{$_} } keys %{$di};
+}
+
my @chars = (
[qw{! " % ' ( ) * + , - . /}],
['0'..'9'], [qw{: ; < = > ?}],
my @chars = (
[qw{! " % ' ( ) * + , - . /}],
['0'..'9'], [qw{: ; < = > ?}],
@@
-116,7
+123,19
@@
for my $c1group (@chars) {
print "</table>\n";
print '<hr>' if exists $get{split};
}
print "</table>\n";
print '<hr>' if exists $get{split};
}
+
+if (exists $get{xorg}) {
:>
:>
+<div class="legend">
+ <table class="glyphs"><tr>
+ <td class="X l5">matching RFC-1345
+ <td class="X l3">matching proposal
+ <td class="X l2">unique to Xorg
+ <td class="X l1">conflict
+ <td class="X l0 ex">duplicate
+ </table>
+</div>
+<: } else { :>
<div class="legend">
<table class="glyphs"><tr>
<td class="X Cc">control
<div class="legend">
<table class="glyphs"><tr>
<td class="X Cc">control
@@
-149,3
+168,4
@@
print '<hr>' if exists $get{split};
</table>
</div>
</table>
</div>
+<: }