keys: load flags dependency within descriptions include
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 18 Jun 2017 11:03:12 +0000 (13:03 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 17 Jul 2017 15:13:43 +0000 (17:13 +0200)
Complete setup from a single include, as both are closely related
and should not be distinctly selected.

16 files changed:
less.eng.inc.pl
less.plp
mplayer.eng.inc.pl
mplayer.plp
mutt.eng.inc.pl
mutt.plp
nethack.eng.inc.pl
nethack.plp
readline.eng.inc.pl
readline.plp
screen.eng.inc.pl
screen.plp
vi.eng.inc.pl
vi.plp
vimperator.eng.inc.pl
vimperator.plp

index 92610e9..131bf4d 100644 (file)
@@ -1,6 +1,6 @@
 use utf8;
-{
 
+{
 key => {
        "\e"=> "alt<>/meta",
 
@@ -127,4 +127,5 @@ flag => {
        more => [more => "A small subset is compatible with `more`."],
 },
 
+def => do 'less.inc.pl',
 }
index e195056..582eef4 100644 (file)
--- a/less.plp
+++ b/less.plp
@@ -23,7 +23,6 @@ Html({
 <:
 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]);
index a035b96..0cd0783 100644 (file)
@@ -1,6 +1,6 @@
 use utf8;
-{
 
+{
 key => {
        '[' => "slow down 10%",
        ']' => "speed up 10%",
@@ -67,4 +67,5 @@ flag => {
        ext => ["optional" => "Some features depend on setup and/or parameters."],
 },
 
+def => do 'mplayer.inc.pl',
 }
index a45063c..110018e 100644 (file)
@@ -22,7 +22,6 @@ Html({
 <:
 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]);
index 08e1e2e..c67cb3b 100644 (file)
@@ -222,4 +222,5 @@ flag => {
        arg => ["key<arg>" => "Commands with a dot need an argument afterwards."],
 },
 
+def => do 'mutt.inc.pl',
 }
index 11ff474..3ab95a0 100644 (file)
--- a/mutt.plp
+++ b/mutt.plp
@@ -22,7 +22,6 @@ Html({
 <:
 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});
index 62fed64..95e84af 100644 (file)
@@ -1,6 +1,6 @@
 use utf8;
-{
 
+{
 key => {
        'b' =>   "step left down\nnumpad 1",
        'j' =>        "step down\nnumpad 2",
@@ -152,4 +152,5 @@ flag => {
        argm => ["key<argm>" => "Requires a direction afterwards."],
 },
 
+def => do 'nethack.inc.pl',
 }
index ae595b6..9c4c62d 100644 (file)
@@ -22,7 +22,6 @@ Html({
 <:
 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
index ecf467c..87eb061 100644 (file)
@@ -1,6 +1,6 @@
 use utf8;
-{
 
+{
 key => {
        '+<' => "history start",
        '+>' => "history end",
@@ -98,4 +98,5 @@ flag => {
        ext => ["bash" => "Default assignment in Bash shells, but not common readline."],
 },
 
+def => do 'readline.inc.pl',
 }
index 53dc76f..ed5f366 100644 (file)
@@ -22,7 +22,6 @@ Html({
 <:
 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]);
index e0cdb5c..e13cb1b 100644 (file)
@@ -78,4 +78,5 @@ flag => {
        arg => ["key<arg>" => "Commands with a dot need a char argument afterwards."],
 },
 
+def => do 'screen.inc.pl',
 }
index aeed949..c6feb72 100644 (file)
@@ -23,7 +23,6 @@ Html({
 <:
 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});
index 1a80065..03eabf3 100644 (file)
@@ -478,4 +478,5 @@ flag => {
        'ext new vim7' => ["vim7", "New in vim version 7.x."],
 },
 
+def => do 'vi.inc.pl',
 }
diff --git a/vi.plp b/vi.plp
index 750bbcf..203fdc8 100644 (file)
--- a/vi.plp
+++ b/vi.plp
@@ -22,7 +22,6 @@ Html({
 <:
 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});
index e1630b5..2457fdb 100644 (file)
@@ -1,6 +1,5 @@
 use utf8;
 {
-
 key => {
        '~' => "open home<>dir",
        '@' => "play macro",
@@ -151,4 +150,5 @@ flag => {
        args => ["key<args>" => "Commands with two dots require variable arguments afterwards."],
 },
 
+def => do 'vimperator.inc.pl',
 }
index 638c411..3fb7ba5 100644 (file)
@@ -23,7 +23,6 @@ Html({
 <:
 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);