X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/f1bebae9f4ca77ef3e1b4d3036933f29a0da1ac0..f70fa87182a51b1fdaa8b1592f54dc2c83343f70:/keyboard.plp?ds=inline diff --git a/keyboard.plp b/keyboard.plp index d40c434..e4ba72d 100644 --- a/keyboard.plp +++ b/keyboard.plp @@ -1,23 +1,41 @@ <(common.inc.plp)><: -my $mode = lc($Request || 'altgr'); -my $include = "$mode.eng"; +$Request ||= 'altgr/windows'; +my $mode = lc $Request; +my $include = "keyboard/$mode.eng"; 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 = ( + '', + '', + !$showkeys ? '' : + $showkeys eq 'ghost' ? '' : (), + '', +); +if ($Request =~ /^altgr/ and open my $cssinc, '<', 'keyboard/altgr.css') { + local $/; + my $data = readline $cssinc; + push @keystyle, ""; +} + 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 )], - keys => 1, data => ["$include.inc.pl"], + raw => \@keystyle, }); %{$info} or Abort( @@ -33,20 +51,21 @@ say "