no warnings 'uninitialized'; # save some useless checks for more legible code
use Carp;
-our $VERSION = '2.07';
+our $VERSION = '2.08';
my @casedesc = (undef, qw/shift ctrl meta/, 'shift meta');
my @rowdesc = qw(numeric top home bottom);
if (not defined $flags) {
$flags = $key eq '^0' ? 'ni' : 'no';
}
- elsif ($flags =~ s/^=//) { # alias
- $desc = $self->{sign}->{alias};
- $desc .= $flags eq "\e" ? 'esc' : $flags;
- $flags = $self->keyunalias($flags) . ' alias';
+ elsif ($flags =~ s/^=(\S+)\s?//) { # alias
+ my $ref = $1;
+ $desc = $self->{sign}->{alias} . ($ref eq "\e" ? 'esc' : $ref);
+ $flags = join ' ', $self->keyunalias($ref), 'alias', $flags;
}
if (my $txt = $self->{key}->{$mode.$key}) {
($desc, $mnem) = split /\n/, $self->escapedesc($txt);
print '<table id="rows" class="keys">'."\n\n";
+print_row:
for (my $row = -1; $row <= $#{ $keyrows{$self->{map}} }; $row++) {
my $keyrow = $row < 0 ? [["\e"]] : $keyrows{$self->{map}}->[$row];
+# grep {
+# defined $self->{def}->{''}->{$_} or defined $self->{def}->{g}->{$_}
+# } map { @{$_} } @{$keyrow} or next;
+
printf qq{<tbody class="row row%d">\n}, $row+1;
for my $basemode (@modes) {
my @moderows = split /\s+/,