1 <: # included from keyboard.plp
5 my @incs = glob 'keyboard/altgr/*.eng.inc.pl';
8 title => "altgr keyboard cheat sheets",
11 "Overview of alternate keyboard modes,",
12 "offering extended Unicode characters if a modifier key",
13 "(such as AltGr or option) is pressed.",
16 sheet cheat reference overview keyboard altgr option
18 stylesheet => [qw( light dark circus mono red )],
19 data => ['keyboard/altgr/index.inc.plp', @incs],
31 <h1>Extended keyboards</h1>
33 <p>Representative images of available layouts
34 with AltGr or similar modifier keys.</p>
36 <section class="gallery"><:
38 $inc =~ s/\Q.inc.pl\E$//;
40 printf '<a href="/%s">', $inc =~ s/\.eng$//r;
41 if (my $table = eval { Data($inc) }) {
42 printf '<img src="/%s" />', $_ for $table->{image} || ();
43 $inc = $table->{title};
45 printf '<figcaption>%s</figcaption>', $inc;