X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/3bfa29782285fd9a9fefcaf21fa0aa7df776d88b..fca88ab2c458a7ae367bfede7d2ddce2e0458f97:/mplayer.plp diff --git a/mplayer.plp b/mplayer.plp index 110018e..9e97d71 100644 --- a/mplayer.plp +++ b/mplayer.plp @@ -1,51 +1,31 @@ <(common.inc.plp)><: +my $mode = $Request eq 'mpv' ? $Request : 'MPlayer'; +my $include = "\L$mode.eng"; + Html({ - title => 'mplayer cheat sheet', - version => '1.1', + title => "\L$mode\E cheat sheet", + version => '1.2', description => [ - "Keyboard cheat sheet for the MPlayer media player,", + "Keyboard cheat sheet for the $mode media player,", "overviewing the default controls." ], keywords => [qw' - mplayer video media sheet cheat reference overview control shortkey keyboard + mpv mplayer mplayer2 media player video audio + sheet cheat reference overview control shortkey keyboard '], stylesheet => [qw( light dark circus mono red )], keys => 1, + data => ["$include.inc.pl"], }); -:> -

MPlayer cheat sheet

- -

index (default)

+say "

$mode cheat sheet

"; +say ''; -<: -use Shiar_Sheet::Keyboard 2; -my $info = do 'mplayer.eng.inc.pl' or die $@; +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_legend('legend-types', [qw( g1 g2 g4 g6 g7 g9 )]) :> -
- -
-<: $keys->print_legend('legend-options', [qw( arg ext )]) :> - - -
-
+$keys->print_legends(\%get);