<(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 $@;
$showkeys eq 'ghost' ? '<style> .no, .alias {opacity:.5} </style>' : (),
'<script type="text/javascript" src="/keys.js?1.6" async></script>',
);
-if ($include =~ /^altgr/ and open my $cssinc, '<', 'keyboard-altgr.css') {
+if ($Request =~ /^altgr/ and open my $cssinc, '<', 'keyboard/altgr.css') {
local $/;
my $data = readline $cssinc;
push @keystyle, "<style>\n$data</style>";
);
+{
- %{ do 'keyboard.eng.inc.pl' },
+ %{ do 'keyboard/altgr/groups.inc.pl' },
version => '1.3',
title => 'option key',
intro => join("\n",
'Special <a href="/unicode">characters</a>',
"when pressing ⌥ Option (Alt) with Apple's US (or US International) layout",
'on <abbr title="at least in Ventura 13.2">macOS</abbr>.',
- q{Not to be confused with <a href="/keyboard/altgr">Windows'</a> AltGr keys.},
+ q{Not to be confused with <a href="/keyboard/altgr/windows">Windows'</a> AltGr keys.},
),
description => [
"Apple US International keyboard layout table",
$rows{']'} = $rows{'#'};
+{
- %{ do 'keyboard.eng.inc.pl' },
+ %{ do 'keyboard/altgr/groups.inc.pl' },
title => 'UK-extended',
version => '1.0',
intro => join("\n",
} 0 .. $#az;
+{
- %{ do 'keyboard.eng.inc.pl' },
+ %{ do 'keyboard/altgr/groups.inc.pl' },
title => 'altgr',
version => '1.2',
intro => join("\n",
'Special <a href="/unicode">characters</a> returned with the AltGr modifier',
'for the Windows US international layout.',
- 'Similar to <a href="/keyboard/altgr-macos">Apple</a> options.',
+ 'Similar to <a href="/keyboard/altgr/macos">Apple</a> options.',
),
description => [
"Windows US international keyboard layout table",
use utf8;
-my $legacy = do 'mplayer.eng.inc.pl' or die $@;
+my $legacy = do 'keyboard/mplayer.eng.inc.pl' or die $@;
{
title => 'mpv',