: # included from keyboard.plp use 5.014; use warnings; my @incs = glob 'keyboard/altgr/*.eng.inc.pl'; Html({ title => "altgr keyboard cheat sheets", version => '1.1', description => [ "Overview of alternate keyboard modes,", "offering extended Unicode characters if a modifier key", "(such as AltGr or option) is pressed.", ], keywords => [qw' sheet cheat reference overview keyboard altgr option '], image => 'data/keyboard/thumb/ibm-m.jpg', stylesheet => [qw( light dark circus mono red )], data => ['keyboard/altgr/index.inc.plp', @incs], raw => <<'.', . }); :>
Overview of available key layouts with AltGr or similar modifier keys.
<: my @sample = split /(?', @sample ? 'section' : 'gallery'; if (@sample) { print ''; print " | $_" for @sample; say ' |
---|---|
' : '';
}
else {
print $title;
print '';
my $keys = Shiar_Sheet::Keyboard->new($table);
print ' ', join(' ', map { $keys->{key}{$_} =~ s/\s.*//r } grep {$_} keys %{$_}) for $keys->{mode} || (); $keys->print_key('', $_, $keys->{def}{''}{$_} // 'ni') for @sample; say ' |