mplayer: replace code by keyboard page

Identical results.

diff --git a/mplayer.eng.inc.pl b/mplayer.eng.inc.pl
index 90f35079fe86cd5ce38f69b09deef530555b8378..9568ed8513adaeb09384c5e7a0752fada3b5ddd6 100644 (file)
--- a/mplayer.eng.inc.pl
+++ b/mplayer.eng.inc.pl
@@ -2,11 +2,17 @@ use utf8;
 
 {
 title => 'MPlayer',
+version => '1.3',
 intro => join("\n",
        'Default interface controls for the original MPlayer v1.0 media player.',
        'Mostly inherited by <a href="/mplayer/mpv">mpv</a>.',
 ),
+description => [
+       "Keyboard cheat sheet for the $mode media player,",
+       "overviewing the default controls.",
+],
 keywords => [qw'mpv mplayer mplayer2 media player video audio'],
+rows => [1, 0],
 
 key => {
        '[' => "slow down 10%",

diff --git a/mplayer.plp b/mplayer.plp
index 30c72a9bab57434ccce535198eea80601059b4c0..161be989c49237e34749a41482484a54d695b3c5 100644 (file)
--- a/mplayer.plp
+++ b/mplayer.plp
@@ -1,38 +1,3 @@
 <(common.inc.plp)><:
-
-my $mode = lc($Request || 'mplayer');
-my $include = "$mode.eng";
-
-my $info = eval { Data($include) } || {};
-$mode = $info->{title} // $mode;
-
-Html({
-       title => "\L$mode\E cheat sheet",
-       version => '1.3',
-       description => [
-               "Keyboard cheat sheet for the $mode media player,",
-               "overviewing the default controls."
-       ],
-       keywords => [@{ $info->{keywords} // [] }, qw'
-               sheet cheat reference overview control shortkey keyboard
-       '],
-       stylesheet => [qw( light dark circus mono red )],
-       keys => 1,
-       data => ["$include.inc.pl"],
-});
-
-%{$info} or Abort(
-       "Requested keyboard <q>$mode</q> not available",
-       '404 request not found',
-);
-
-say "<h1>$mode cheat sheet</h1>";
-say "<p>$_</p>" for $info->{intro} // ();
-
-use Shiar_Sheet::Keyboard 2.08;
-my $info = Data($include);
-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 ||= 'mplayer';
+include 'keyboard.plp';

diff --git a/mpv.eng.inc.pl b/mpv.eng.inc.pl
index e3e770d9134be5874918c78fb76b4423af6466fd..67847ff64e8d262d69a914db4229e232609ab78a 100644 (file)
--- a/mpv.eng.inc.pl
+++ b/mpv.eng.inc.pl
@@ -4,11 +4,13 @@ my $legacy = do 'mplayer.eng.inc.pl' or die $@;
 
 {
 title => 'mpv',
+version => '1.3',
 intro => join("\n",
        'Default interface controls for version 0.35 of the mpv media player.',
        'Differences from the original <a href="/mplayer">MPlayer</a> are indicated.',
 ),
 keywords => $legacy->{keywords},
+rows => [1, 0],
 
 key => { %{ $legacy->{key} },
        ',' => "step backward<>s",