mplayer: mpv overrides in separate subpage

[sheet.git] / mplayer.plp

diff --git a/mplayer.plp b/mplayer.plp
index 5620792af02b449b4b5713bfeab6890df0939d04..8397498166d7fcb42ac8581d5ab97ceff344f438 100644 (file)
--- a/mplayer.plp
+++ b/mplayer.plp
@@ -1,5 +1,7 @@
 <(common.inc.plp)><:
 
+my $include = $Request eq 'mpv' ? $Request : 'mplayer';
+
 Html({
        title => 'mplayer cheat sheet',
        version => '1.1',
@@ -21,7 +23,7 @@ Html({
 
 <:
 use Shiar_Sheet::Keyboard 2;
-my $info = do 'mplayer.eng.inc.pl' or die $@;
+my $info = do $include or die $@;
 my $keys = Shiar_Sheet::Keyboard->new($info);
 $keys->map($get{map}) or undef $get{map};
 $keys->print_rows($get{rows}, [1,0]);