X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/14080bda5528468fe4dbc5ae3b1a3c62c47a5806..22df5af9280e24267be789edcff52be9c43fd8ca:/keyboard/altgr/index.inc.plp?ds=inline diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp index 75c2cc3..172d931 100644 --- a/keyboard/altgr/index.inc.plp +++ b/keyboard/altgr/index.inc.plp @@ -1,12 +1,13 @@ <: # included from keyboard.plp use 5.014; use warnings; +use utf8; my @incs = glob 'keyboard/altgr/*.eng.inc.pl'; Html({ title => "altgr keyboard cheat sheets", - version => '1.0', + version => '1.2', description => [ "Overview of alternate keyboard modes,", "offering extended Unicode characters if a modifier key", @@ -15,13 +16,92 @@ Html({ 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 => <<'.', . @@ -30,23 +110,73 @@ img { :>
Representative images of available layouts -with AltGr or similar modifier keys.
+Overview of available key layouts with AltGr or similar modifier keys.
+ +<: +my @sample = split /(?<: -for my $inc (@incs) { - $inc =~ s/\Q.inc.pl\E$//; - print ''; + print " | $_" for @sample; + say ' | |
---|---|---|
' : ''; + } + else { + print $title; + print '', "\n\t"; + my $keys = Shiar_Sheet::Keyboard->new($table); + for my $mode ($keys->{mode} ? sort keys %{ $keys->{mode} } : '') { + my %inventory; + $inventory{$_}++ for grep { /^g[2-9]/ } map { s/ (?!ext).*//r } + values %{ $keys->{def}{$mode} }; + print ''; + print "" for $keys->{key}{$mode} =~ s/\s.*//r || (); + for my $g (sort keys %inventory) { + printf ' %s', + $g, $_/$most*100, $_, + join(' ', map { + $keys->{flag}{$_}[0] || 'extra' # legend label of each class + } reverse split / /, $g) + for $inventory{$g}; + } + say ''; + } + print "\t | "; + print join ' ', map { $caticon{$_} // () } split m{/}, $keys->{category}; + say ''; + $keys->print_key('', $_, ($keys->{def}{''}{$_} // 'ni') =~ s/ mode\S*//r) + for @sample; + say ' |