X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/3a7275da51685956fb31799df6d8f625c0a4dd15..c220aefcb516eca666444356555d21599f1e3a87:/digraphs.plp diff --git a/digraphs.plp b/digraphs.plp index 2b3446b..54097cb 100644 --- a/digraphs.plp +++ b/digraphs.plp @@ -32,6 +32,13 @@ are available as ex commands.

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{: ; < = > ?}],