summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
490213a)
Output entire keyboard in Shiar_Sheet::Keyboard::print_rows() as contained
exceptions are gone since commit
v1.4-61-g6d38d53c6c (2012-03-26)
[keys: replace omni-present escape keys].
my $defrows = shift || [2, 1, 0];
my @modes = sort keys %{ $self->{def} };
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];
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
} # basemode
print qq{\t</ul>\n};
} # row
<h2>normal pager (default)</h2>
<h2>normal pager (default)</h2>
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'less.eng.inc.pl' or die $@;
<:
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]);
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, [1,0]);
:>
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'mplayer.eng.inc.pl' or die $@;
<:
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]);
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, [1,0]);
:>
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'mutt.eng.inc.pl' or die $@;
<:
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});
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
:>
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'nethack.eng.inc.pl' or die $@;
<:
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]);
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows} || '4321-421', [3,2,1,0]);
:>
<h2>default emacs mode</h2>
<h2>default emacs mode</h2>
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'readline.eng.inc.pl' or die $@;
<:
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]);
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows} || '^x=213', [4,3,2]);
:>
<h2>normal mode (default)</h2>
<h2>normal mode (default)</h2>
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'screen.inc.pl' or die $! // $@;
<:
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});
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
:>
<h2>normal mode (default)</h2>
<h2>normal mode (default)</h2>
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'vi.eng.inc.pl' or die $@;
<:
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});
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
:>
<h2>normal mode (default)</h2>
<h2>normal mode (default)</h2>
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'vimperator.eng.inc.pl' or die $@;
<:
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});
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
:>