: # included from keyboard.plp use 5.014; use warnings; use utf8; my $dirbase = 'keyboard/altgr'; my $indexfile = "$dirbase/index"; Html({ title => "altgr keyboard cheat sheets", version => '1.3', 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 => "$dirbase/thumb/ibm-m.jpg", stylesheet => [qw( light dark circus mono red )], data => ["$dirbase/index.inc.plp", "$indexfile.inc.pl"], raw => <<'.', . }); :>
Overview of available key layouts with AltGr or similar modifier keys.
<: my $idx = Data($indexfile); my @incs; push @incs, @{ $idx->{$_} } for @{ $idx->{default} }; my @sample = split /(?VERSION(3.00); use List::Util qw( uniq max sum ); my %caticon = ( legacy => qq{\N{TOP HAT}}, windows => qq{\x{1FA9F}}, # \N{WINDOW} macos => qq{\N{RED APPLE}}, xorg => qq{\N{PENGUIN}}, ); printf ''; print " | $_" for @sample; say ' | |
---|---|---|
' : ' | "; print join ' ', map { $caticon{$_} // () } split m{/}, $table->{category} // ''; say ''; if (my $keys = eval { my $keydata = Data("$dirbase/$inc.eng"); Shiar_Sheet::Keyboard->new($keydata) }) { $keys->print_key('', $_, ($keys->{def}{''}{$_} // ['ni']) =~ s/ mode\S*//r) for @sample; } say ' |