use utf8;
-{
+{
key => {
"\e"=> "alt<>/meta",
more => [more => "A small subset is compatible with `more`."],
},
+def => do 'less.inc.pl',
}
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'less.eng.inc.pl' or die $@;
-$info->{def} = do 'less.inc.pl';
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, [1,0]);
use utf8;
-{
+{
key => {
'[' => "slow down 10%",
']' => "speed up 10%",
ext => ["optional" => "Some features depend on setup and/or parameters."],
},
+def => do 'mplayer.inc.pl',
}
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'mplayer.eng.inc.pl' or die $@;
-$info->{def} = do 'mplayer.inc.pl';
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, [1,0]);
arg => ["key<arg>" => "Commands with a dot need an argument afterwards."],
},
+def => do 'mutt.inc.pl',
}
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'mutt.eng.inc.pl' or die $@;
-$info->{def} = do 'mutt.inc.pl';
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
use utf8;
-{
+{
key => {
'b' => "step left down\nnumpad 1",
'j' => "step down\nnumpad 2",
argm => ["key<argm>" => "Requires a direction afterwards."],
},
+def => do 'nethack.inc.pl',
}
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'nethack.eng.inc.pl' or die $@;
-$info->{def} = do 'nethack.inc.pl';
my $keys = Shiar_Sheet::Keyboard->new($info);
$_->{"\e"} = ['me mode'] for values %{ $info->{def} };
# static reset button, even though it's not (officially) in the game
use utf8;
-{
+{
key => {
'+<' => "history start",
'+>' => "history end",
ext => ["bash" => "Default assignment in Bash shells, but not common readline."],
},
+def => do 'readline.inc.pl',
}
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'readline.eng.inc.pl' or die $@;
-$info->{def} = do 'readline.inc.pl';
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows} || '^x=213', [4,3,2]);
arg => ["key<arg>" => "Commands with a dot need a char argument afterwards."],
},
+def => do 'screen.inc.pl',
}
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'screen.eng.inc.pl' or die $@ // $!;
-$info->{def} = do 'screen.inc.pl';
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
'ext new vim7' => ["vim7", "New in vim version 7.x."],
},
+def => do 'vi.inc.pl',
}
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'vi.eng.inc.pl' or die $@;
-$info->{def} = do 'vi.inc.pl';
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
use utf8;
{
-
key => {
'~' => "open home<>dir",
'@' => "play macro",
args => ["key<args>" => "Commands with two dots require variable arguments afterwards."],
},
+def => do 'vimperator.inc.pl',
}
<:
use Shiar_Sheet::Keyboard 2;
my $info = do 'vimperator.eng.inc.pl' or die $@;
-$info->{def} = do 'vimperator.inc.pl';
$_->{"\e"} = ['mv mode', "normal mode"] for values %{ $info->{def} };
delete $info->{def}->{''}->{"\e"};
my $keys = Shiar_Sheet::Keyboard->new($info);