<(common.inc.plp)><:
- our $VERSION = 'v1.0';
- use Shiar_Sheet::KeySigns qw(%sign);
-
-:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
- "http://www.w3.org/TR/html4/loose.dtd">
-<html>
-
-<head>
-<meta http-equiv="content-type" content="<:= $header{content_type} :>">
-<title>keyboard cheat sheet</title>
-<:= stylesheet(qw'light dark circus mono red terse') :>
-<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
-<!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:
- our $showkeys = exists $get{keys} && $get{keys} ne '0';
- print "\n".'<style type="text/css"> .no {visibility:hidden} </style>'
- unless $showkeys;
- print "\n".'<style type="text/css"> .no, .alias {opacity:.5} </style>'
- if $showkeys and $get{keys} eq 'ghost';
-:>
-<script type="text/javascript" src="/keys.js"></script>
-
-<body id="keyboard">
-
-<h1>keyboard cheat sheet</h1>
-
-<h2>normal mode (default)</h2>
-
-<ul id="rows">
+$Request ||= 'altgr/windows';
+my $mode = lc $Request;
+my $include = "keyboard/$mode.eng";
+
+if (-e (my $page = "keyboard/$Request/index.inc.plp")) {
+ Include $page;
+ exit;
+}
+
+my $info = eval { Data($include) } || {};
+warn "error in $include: ", @{$@} if ref $@;
+$mode = $info->{title} // $mode;
+
+my $showkeys //= !exists $get{keys} ? undef :
+ ($get{keys} ne '0' && ($get{keys} || 'always'));
+my @keystyle = (
+ '<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->',
+ '<!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]-->',
+ !$showkeys ? '<style> .no {visibility:hidden} </style>' :
+ $showkeys eq 'ghost' ? '<style> .no, .alias {opacity:.5} </style>' : (),
+ '<script type="text/javascript" src="/keys.js?1.6" async></script>',
+);
+
+Html({
+ title => "\L$mode\E keyboard cheat sheet",
+ version => $info->{version} || '0.1',
+ canonical => -e "$Request.plp" ? "/$Request" : undef, # historic shorthand
+ description => $info->{description} //
+ ["Keyboard cheat sheet for the default controls of $mode."],
+ keywords => [@{ $info->{keywords} // [] }, qw'
+ sheet cheat reference overview keyboard control commands shortkey
+ '],
+ image => $info->{image},
+ stylesheet => [qw( light dark circus mono red )],
+ data => ["$include.inc.pl"],
+ raw => \@keystyle,
+});
-<li class="row">
- <ul class="keys omni">
- <li class="mo chr27" onclick="setmode()"><b>Esc</b> normal mode
- <!-- not as static anymore, but never bothered; just see ^[ -->
- </ul>
-</li>
+%{$info} or Abort(
+ "Requested keyboard <q>$mode</q> not available",
+ '404 request not found',
+);
-<:
-our %sign;
-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 "<h1>$mode keyboard</h1>";
+say "<p>$_</p>" for $info->{intro} // ();
+say "<h2>", $info->{mode}->{''}, " (default)</h2>"
+ if $info->{mode} and %{ $info->{mode} } > 1;
-my $keys = Shiar_Sheet::Keyboard->new({
- def => {
- '' => {
- map { $_ => [''] } @{ $usint->[0] }
- },
- },
- key => {
- map {
- my $i = ord($_) - ord('a');
- $_ => ["$usint->[1]->[$i]<br>$usint->[2]->[$i]"]
- } 'a'..'z'
- },
-});
+use Shiar_Sheet::Keyboard 3.00;
+my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows}, [0]);
-:>
-</ul>
+$keys->print_rows($get{rows} || $info->{moderows}, $info->{rows});
+
+{
+ say "<hr/>\n";
+ say '<div class="help">';
-<hr>
+ use List::MoreUtils qw( part );
+ my @gflags = part {/^g\d/} sort keys %{ $keys->{flag} };
-<div class="help">
- <div class="left">
- <dl class="legend legend-types">
- <dt class="ci">info
- <dd>Info command: shows/does something without altering anything.
- <dt class="pm">motion
- <dt class="po">positioning
- <dd>Other movement (jumps, window (re)positioning).
- <dt class="co">command
- <dd>Direct action command.
- <dt class="mi">ins mode
- <dd>Enters Insert or Replace mode.
- <dt class="mo">mode
- <dd>Enters a different mode.
- <dt class="mv">vis mode
- <dd>Enters Visual or Select mode.
- <dt class="me">key cmd
- <dd>Additional key commands (click for overview).
- </dl>
- </div>
+ say "\t", '<div class="left">';
+ $keys->print_legend('legend-types', $gflags[1]);
+ say "\t</div>\n";
- <div class="right">
- <dl class="legend legend-options">
- </dl>
+ say "\t", '<div class="right">';
+ $keys->print_legend('legend-options', $gflags[0]);
+ say '';
- <ul class="legend legend-set">
- <li>keyboard <strong>map</strong> is
- <:= $get{map} ? 'set to ' : '' :><em><:= $keys->{map} :></em>
- <li><strong>keys</strong> are
- <em><:= $showkeys ? 'always shown' : 'hidden if unassigned' :></em><:=
- !exists $get{keys} && ' by default' :>
- <li>default <strong>style</strong> is
- <:= defined $get{style} && 'set to ' :><em><:= $style :></em>
- </ul>
- </div>
-</div>
+ say "\t\t", '<ul class="legend legend-set">';
-<p class="footer">
- <a href="/" rel="home">sheet.shiar.nl</a>/vim.<a href="/source/vim.plp"
- rel="code" title="Written in Perl">plp</a>
- <a href="http://git.shiar.nl/sheet.git/history/HEAD:/vim.plp"
- rel="vcs-git" title="Git repository"><:= $VERSION :></a>
- created by <a href="http://shiar.nl/" rel="author">Shiar</a> <:= $sign{sep} :>
- <a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="copyright"
- title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
-</p>
+ say "\t\t<li>keyboard <strong>map</strong> is ",
+ ($get{map} ? 'set to ' : ''), "<em>$keys->{map}</em>";
+ say "\t\t<li><strong>keys</strong> are ",
+ "<em>", ($showkeys ? 'always shown' : 'hidden if unassigned'), "</em>",
+ (!defined $showkeys && ' by default');
+ say "\t\t<li>default <strong>style</strong> is ",
+ (defined $get{style} && 'set to '), "<em>$style</em>";
-</html>
+ say "\t\t</ul>";
+ say "\t</div>\n";
+ say "</div>\n";
+}