return $self->keyunalias($keyinfo, $ancestry);
}
+sub print_letter {
+ my $self = shift;
+ my ($key, $mode) = @_;
+
+ return if $key eq '^0';
+ return 'Esc' if $key eq "\e";
+# return $keytrans{$key} if defined $keytrans{$key};
+ my $html = $self->{def}{$mode}{lead} . escapehtml($key);
+ $html =~ s{\^(?=.)}{<small>^</small>}; # element around ctrl-identifier
+ $html =~ s{\+(?=.)}{<small>+</small>}; # meta
+ return $html;
+}
+
sub print_key {
my $self = shift;
my ($mode, $key, $flags) = @_;
($desc, $mnem) = split /\n/, $self->escapedesc($txt);
}
-# $key = $keytrans{$key} if defined $keytrans{$key};
- my $keytxt = $key eq "\e" ? 'Esc' : $self->{def}{$mode}{lead} . escapehtml($key) if $key ne '^0';
+ my $keytxt = $self->print_letter($key, $mode);
$keytxt .= $self->{sign}->{$1} while $flags =~ s/(?:^| )(arg[a-ln-z]?)\b//; # arguments
$keytxt .= "<small>$self->{sign}->{motion}</small>" if $flags =~ s/ ?\bargm\b//; # motion argument
- $keytxt =~ s{\^(?=.)}{<small>^</small>}; # element around ctrl-identifier
- $keytxt =~ s{\+(?=.)}{<small>+</small>}; # meta
my $keyhint = defined($mnem) && qq{ title="$mnem"};
$keytxt = "<b$keyhint>$keytxt</b>";
$keytxt .= ' '.$desc if defined $desc;