From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 2 Nov 2023 23:26:46 +0000 (+0100)
Subject: keyboard: replace all similar pages
X-Git-Tag: v1.15~11
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/0372b24101f35d395b29cbccebfc0f6048549cb2

keyboard: replace all similar pages

Add metadata for identical results as subpages.
Do not relocate existing pages yet though.
---

diff --git a/less.eng.inc.pl b/less.eng.inc.pl
index fed0bd2..9000189 100644
--- a/less.eng.inc.pl
+++ b/less.eng.inc.pl
@@ -2,6 +2,14 @@ use utf8;
 
 {
 # less v418
+title => 'Less',
+version => '1.1',
+description => [
+	"Default bindings of the less pager.",
+	"Clearly shows how much it's more than more.",
+],
+keywords => [qw' less keys pager more options '],
+rows => [1, 0],
 
 key => {
 	"\e"=> "alt<>/meta",
diff --git a/less.plp b/less.plp
index e40d37c..ef99eb3 100644
--- a/less.plp
+++ b/less.plp
@@ -1,30 +1,3 @@
-<(common.inc.plp)><:
-
-Html({
-	title => 'less cheat sheet',
-	version => '1.1',
-	description => [
-		"Default bindings of the less pager.",
-		"Clearly shows how much it's more than more.",
-	],
-	keywords => [qw'
-		less sheet cheat keys pager more
-		shortkey reference keyboard commands options overview
-	'],
-	stylesheet => [qw( light dark circus mono red )],
-	keys => 1,
-});
-
-:>
-<h1>Less cheat sheet</h1>
-
-<h2>normal pager (default)</h2>
-
 <:
-use Shiar_Sheet::Keyboard 2.07;
-my $info = Data('less.eng');
-my $keys = Shiar_Sheet::Keyboard->new($info);
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows}, [1,0]);
-$keys->print_legends(\%get);
-
+$Request = 'less';
+Include 'keyboard.plp';
diff --git a/mplayer.plp b/mplayer.plp
index 161be98..013f7df 100644
--- a/mplayer.plp
+++ b/mplayer.plp
@@ -1,3 +1,3 @@
-<(common.inc.plp)><:
-$Request ||= 'mplayer';
-include 'keyboard.plp';
+<:
+$Request = $ENV{PATH_INFO} eq '/mpv' ? 'mpv' : 'mplayer';
+Include 'keyboard.plp';
diff --git a/mutt.eng.inc.pl b/mutt.eng.inc.pl
index 2c58283..0cf57e2 100644
--- a/mutt.eng.inc.pl
+++ b/mutt.eng.inc.pl
@@ -59,6 +59,14 @@ my %commondef = (
 );
 
 {
+title => 'Mutt',
+version => '1.2',
+description => [
+	"Cheat sheet for the Mutt e-mail client,",
+	"showing the default binding for each key.",
+],
+keywords => [qw' mutt MUA email client '],
+
 key => {
 	%commonkey,
 
diff --git a/mutt.plp b/mutt.plp
index 09918ee..57f1f13 100644
--- a/mutt.plp
+++ b/mutt.plp
@@ -1,29 +1,3 @@
-<(common.inc.plp)><:
-
-Html({
-	title => 'mutt cheat sheet',
-	version => '1.2',
-	description => [
-		"Cheat sheet for the Mutt e-mail client,",
-		"showing the default binding for each key.",
-	],
-	keywords => [qw'
-		mutt MUA email client sheet cheat reference overview commands keyboard
-	'],
-	stylesheet => [qw( light dark circus mono red )],
-	keys => 1,
-});
-
-:>
-<h1>Mutt cheat sheet</h1>
-
-<h2>index (default)</h2>
-
 <:
-use Shiar_Sheet::Keyboard 2;
-my $info = Data('mutt.eng');
-my $keys = Shiar_Sheet::Keyboard->new($info);
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows});
-$keys->print_legends(\%get);
-
+$Request = 'mutt';
+Include 'keyboard.plp';
diff --git a/nethack.eng.inc.pl b/nethack.eng.inc.pl
index e54a639..af32fe4 100644
--- a/nethack.eng.inc.pl
+++ b/nethack.eng.inc.pl
@@ -1,6 +1,15 @@
 use utf8;
 
 {
+title => 'NetHack',
+version => '1.1',
+description => [
+	"Keyboard overview sheet for the Nethack console RPG game,",
+	"describing the default controls.",
+],
+keywords => [qw' nethack rogue game controls '],
+rows => [3, 2, 1, 0],
+
 key => {
 	'b' =>   "step left down\nnumpad 1",
 	'j' =>        "step down\nnumpad 2",
diff --git a/nethack.plp b/nethack.plp
index 5e676d9..474fa10 100644
--- a/nethack.plp
+++ b/nethack.plp
@@ -1,31 +1,4 @@
-<(common.inc.plp)><:
-
-Html({
-	title => 'nethack cheat sheet',
-	version => '1.1',
-	description => [
-		"Keyboard overview sheet for the Nethack console RPG game,",
-		"describing the default controls.",
-	],
-	keywords => [qw'
-		nethack rogue game control controls sheet reference overview keyboard
-	'],
-	stylesheet => [qw( light dark circus mono red )],
-	keys => 1,
-});
-
-:>
-<h1>NetHack cheat sheet</h1>
-
-<h2>normal gameplay</h2>
-
 <:
-use Shiar_Sheet::Keyboard 2;
-my $info = Data('nethack.eng');
-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
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows} || '4321-421', [3,2,1,0]);
-$keys->print_legends(\%get);
-
+$Request = 'nethack';
+$get{rows} ||= '4321-421';
+Include 'keyboard.plp';
diff --git a/screen.eng.inc.pl b/screen.eng.inc.pl
index 7198b25..f1ad1b3 100644
--- a/screen.eng.inc.pl
+++ b/screen.eng.inc.pl
@@ -2,6 +2,13 @@ use utf8;
 
 {
 # screen version 4.00.03jw4
+title => 'Screen',
+version => '1.1',
+description => [
+	"Interactive cheat sheet for the Screen terminal manager,",
+	"describing the function of each key.",
+],
+keywords => [qw' screen terminal window manager '],
 
 key => {
 	'a' => "literal a",
diff --git a/screen.plp b/screen.plp
index 3e61f0b..1223a5a 100644
--- a/screen.plp
+++ b/screen.plp
@@ -1,30 +1,3 @@
-<(common.inc.plp)><:
-
-Html({
-	title => 'screen cheat sheet',
-	version => '1.1',
-	description => [
-		"Interactive cheat sheet for the Screen terminal manager,",
-		"describing the function of each key.",
-	],
-	keywords => [qw'
-		screen sheet cheat reference overview commands keyboard
-		terminal window manager
-	'],
-	stylesheet => [qw( light dark circus mono red )],
-	keys => 1,
-});
-
-:>
-<h1>Screen cheat sheet</h1>
-
-<h2>normal mode (default)</h2>
-
 <:
-use Shiar_Sheet::Keyboard 2;
-my $info = Data('screen.eng');
-my $keys = Shiar_Sheet::Keyboard->new($info);
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows});
-$keys->print_legends(\%get);
-
+$Request = 'screen';
+Include 'keyboard.plp';
diff --git a/vi.eng.inc.pl b/vi.eng.inc.pl
index 6188702..58ac2f3 100644
--- a/vi.eng.inc.pl
+++ b/vi.eng.inc.pl
@@ -7,6 +7,14 @@ my @motions = qw(
 );
 
 {
+title => 'vi/vim',
+version => 1.5,
+description => [
+	"Interactive cheat sheet for vi text editors, notably Vim,",
+	"describing each key in various modes.",
+],
+keywords => [qw' vi vim nvi '],
+
 key => {
 
 	"\e"=> "normal mode",
diff --git a/vi.plp b/vi.plp
index bd30d8c..669f428 100644
--- a/vi.plp
+++ b/vi.plp
@@ -1,29 +1,3 @@
-<(common.inc.plp)><:
-
-Html({
-	title => 'vi cheat sheet',
-	version => '1.5',
-	description => [
-		"Interactive cheat sheet for vi text editors, notably Vim,",
-		"describing each key in various modes.",
-	],
-	keywords => [qw'
-		vi vim nvi sheet cheat reference overview commands keyboard
-	'],
-	stylesheet => [qw( light dark circus mono red )],
-	keys => 1,
-});
-
-:>
-<h1>vi/vim cheat sheet</h1>
-
-<h2>normal mode (default)</h2>
-
 <:
-use Shiar_Sheet::Keyboard 2.08;
-my $info = Data('vi.eng');
-my $keys = Shiar_Sheet::Keyboard->new($info);
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows});
-$keys->print_legends(\%get);
-
+$Request = 'vi';
+Include 'keyboard.plp';
diff --git a/vimperator.eng.inc.pl b/vimperator.eng.inc.pl
index 4fc3771..5338ecd 100644
--- a/vimperator.eng.inc.pl
+++ b/vimperator.eng.inc.pl
@@ -1,6 +1,14 @@
 use utf8;
 # vimperator v3.16.0
 {
+title => 'Vimperator',
+version => '1.3',
+description => [
+	"Interactive cheat sheet for the Vimperator (or Pentadactyl)",
+	"Firefox extension, describing the function of each key.",
+],
+keywords => [qw'vimperator firefox pentadactyl vim browser vimfx vimium cvim'],
+
 key => {
 	'~' => "open home<>dir",
 	'@' => "play macro",
diff --git a/vimperator.plp b/vimperator.plp
index 624f412..50baa1b 100644
--- a/vimperator.plp
+++ b/vimperator.plp
@@ -1,30 +1,3 @@
-<(common.inc.plp)><:
-
-Html({
-	title => 'vimperator cheat sheet',
-	version => '1.3',
-	description => [
-		"Interactive cheat sheet for the Vimperator (or Pentadactyl)",
-		"Firefox extension, describing the function of each key.",
-	],
-	keywords => [qw'
-		vimperator firefox pentadactyl vim sheet cheat reference overview
-		commands keyboard browser vimfx vimium cvim
-	'],
-	stylesheet => [qw( light dark circus mono red )],
-	keys => 1,
-});
-
-:>
-<h1>Vimperator cheat sheet</h1>
-
-<h2>normal mode (default)</h2>
-
 <:
-use Shiar_Sheet::Keyboard 2.07;
-my $info = Data('vimperator.eng');
-my $keys = Shiar_Sheet::Keyboard->new($info);
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows});
-$keys->print_legends(\%get);
-
+$Request = 'vimperator';
+Include 'keyboard.plp';