<: # included from keyboard.plp
use 5.014;
use warnings;
+use utf8;
my @incs = glob 'keyboard/altgr/*.eng.inc.pl';
require Shiar_Sheet::Keyboard;
use List::Util qw( uniq max );
+my %caticon = (
+ legacy => "\N{TOP HAT}",
+ windows => "\x{1FA9F}", # \N{WINDOW}
+ macos => "\N{RED APPLE}",
+ xorg => "\N{PENGUIN}",
+);
+
printf '<section class="%s">', @sample ? 'section' : 'gallery';
if (@sample) {
print '<table class="big keys cmp">';
- print '<thead><tr><th>';
+ print '<thead><tr><th colspan=2>';
print "<th>$_" for @sample;
say '</tr></thead>';
}
}
say '</span>';
}
+ print "\t<th>";
+ print join '<br>', map { $caticon{$_} // () } split m{/}, $keys->{category};
+ say '';
$keys->print_key('', $_, $keys->{def}{''}{$_} // 'ni') for @sample;
say '</tr>';
}