X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b55f16d857eb0de23413f042f61462c06f7f14e7..HEAD:/keyboard.plp diff --git a/keyboard.plp b/keyboard.plp index a2c2f2e..fa2aaf2 100644 --- a/keyboard.plp +++ b/keyboard.plp @@ -4,6 +4,11 @@ $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; @@ -17,11 +22,6 @@ my @keystyle = ( $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",