+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;
+}
+