git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sc: substitute 0 values by dash
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index 2b3446bd329affdba8f8fc603c83bd6c89f373f7..4c45044c97f122ba8c0e3feeb3ba078c42aecb1a 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-3,7
+3,7
@@
use 5.010; # state
Html({
title => 'digraph cheat sheet',
Html({
title => 'digraph cheat sheet',
- version => 'v1.
0
',
+ version => 'v1.
1
',
description => [
"Complete table of digraph characters from RFC-1345.",
],
description => [
"Complete table of digraph characters from RFC-1345.",
],
@@
-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{: ; < = > ?}],