git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
termcol: named function to parse table data
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index 2b3446bd329affdba8f8fc603c83bd6c89f373f7..12f76c81e621562835120daff6ec383786151ebe 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 => '
1.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{: ; < = > ?}],