summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d018b1f)
Represent some control combinations by recognisable symbols for function
keys equivalent in most terminal environments as they are commonly used.
May help people discover easier access.
Enter, tab, and escape should match for all current applications (except
vimperator for an insignificant alias). Delete and backspace represent
VT100/xterm and ASCII characters, but are different in VT220-based emulators
<http://www.macfreek.nl/memory/Backspace_and_Delete_key_reversed>.
In such cases ^h is distinct from backspace, but likely still works the same
for current occurrences where this is the intended behaviour.
In cases this does not work, the original bindings can still be easily
ascertained from surrounding keys, so should not pose much of a problem.
# add first two cases of each row again with each char prepended by + (alt)
push @$_, map { [map {"+$_"} @$_] } @$_[0,1] for map {@$_} values %keyrows;
# add first two cases of each row again with each char prepended by + (alt)
push @$_, map { [map {"+$_"} @$_] } @$_[0,1] for map {@$_} values %keyrows;
-my %keytrans = qw(
- ^@ NUL ^a SOH ^b STX ^c ETX ^d EOT ^e ENQ ^f ACK ^g BEL
- ^h BS ^i tab ^j LF ^k VT ^l FF ^m CR ^n SO ^o SI
- ^p DLE ^q DC1 ^r DC2 ^s DC3 ^t DC4 ^u NAK ^v SYN ^w ETB
- ^x CAN ^y EM ^z SUB ^[ ESC ^\ FS ^] GS ^^ RS ^_ US
- ^? DEL
+my %keytrans = (
+ '^h' => "\x{232B}", # BS
+ '^i' => "\x{21E5}", # TAB
+ '^m' => "\x{21B5}", # CR
+ '^?' => "\x{2326}", # DEL
+ '^[' => "\x{238B}", # ESC
return if $key eq '^0';
return 'Esc' if $key eq "\e";
return if $key eq '^0';
return 'Esc' if $key eq "\e";
-# return $keytrans{$key} if defined $keytrans{$key};
+ 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
my $html = $self->{def}{$mode}{lead} . escapehtml($key);
$html =~ s{\^(?=.)}{<small>^</small>}; # element around ctrl-identifier
$html =~ s{\+(?=.)}{<small>+</small>}; # meta