X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/77ac3d52d89913a79cca834d882c54a58c15a488..d66fb2e242cd73e7a3b5c3980d7491080fc5f8d1:/keyboard.plp?ds=inline diff --git a/keyboard.plp b/keyboard.plp index f1d5634..36ccaca 100644 --- a/keyboard.plp +++ b/keyboard.plp @@ -1,55 +1,37 @@ <(common.inc.plp)><: +my $mode = lc($Request || 'keyboard'); +my $include = "$mode.eng"; + +my $info = eval { Data($include) } || {}; +$mode = $info->{title} // $mode; + Html({ - title => 'keyboard cheat sheet', - version => '1.0', + title => "\L$mode\E keyboard cheat sheet", + version => $info->{version} || '0.1', + description => $info->{description} // + ["Keyboard cheat sheet for the default controls of $mode."], + keywords => [@{ $info->{keywords} // [] }, qw' + sheet cheat reference overview keyboard control commands shortkey + '], stylesheet => [qw( light dark circus mono red )], keys => 1, + data => ["$include.inc.pl"], }); -:> -
$modenot available", + '404 request not found', +); -<: -use Shiar_Sheet::Keyboard 2; -my $usint = [ - [ 'a' .. 'z'], - [qw(à B ¢ à à F G H à J Šà µ à à à à ® § à à V à X à Ã)], - [qw(á b © ð é f g h à j Šø µ ñ ó ö ä ® à þ ú v Ã¥ x ü æ)], - [qw(à ı à ð ´ Ì Ë Ì£ Ë Â½  à ¾ Ë Ã â Å â° / Ë Â¨ â â Ë Â¼ ¸)], - [qw(Ã¥ ⫠ç â ´ Æ Â© Ë ^ â ° ¬ µ ~ ø Ï Å Â® à â ¨ â â â Â¥ Ω)], -]; +say "
$_
" for $info->{intro} // (); +say "