my $defrows = shift || [2, 1, 0];
my @modes = sort keys %{ $self->{def} };
+ print '<ul id="rows">'."\n\n";
+
for (my $row = -1; $row <= $#{ $keyrows{$self->{map}} }; $row++) {
my $keyrow = $row < 0 ? [["\e"]] : $keyrows{$self->{map}}->[$row];
} # basemode
print qq{\t</ul>\n};
} # row
+
+ print "</ul>\n";
}
sub print_legend {
<h2>normal pager (default)</h2>
-<ul id="rows">
-
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'less.eng.inc.pl' or die $@;
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, [1,0]);
:>
-</ul>
<hr>
<h2>index (default)</h2>
-<ul id="rows">
-
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'mplayer.eng.inc.pl' or die $@;
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, [1,0]);
:>
-</ul>
<hr>
<h2>index (default)</h2>
-<ul id="rows">
-
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'mutt.eng.inc.pl' or die $@;
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
:>
-</ul>
<hr>
<h2>normal gameplay</h2>
-<ul id="rows">
-
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'nethack.eng.inc.pl' or die $@;
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows} || '4321-421', [3,2,1,0]);
:>
-</ul>
<hr>
<h2>default emacs mode</h2>
-<ul id="rows">
-
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'readline.eng.inc.pl' or die $@;
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows} || '^x=213', [4,3,2]);
:>
-</ul>
<hr>
<h2>normal mode (default)</h2>
-<ul id="rows">
-
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'screen.inc.pl' or die $! // $@;
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
:>
-</ul>
<hr>
<h2>normal mode (default)</h2>
-<ul id="rows">
-
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'vi.eng.inc.pl' or die $@;
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
:>
-</ul>
<hr>
<h2>normal mode (default)</h2>
-<ul id="rows">
-
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'vimperator.eng.inc.pl' or die $@;
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
:>
-</ul>
<hr>