X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d633423013d3cfb34c674454fa402a11561c2eac..98a8228ac6651509dfe58a871594b5cc22cee553:/keyboard/altgr/index.inc.plp diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp index e4ed3d8..fd36e60 100644 --- a/keyboard/altgr/index.inc.plp +++ b/keyboard/altgr/index.inc.plp @@ -1,12 +1,14 @@ <: # included from keyboard.plp use 5.014; use warnings; +use utf8; -my @incs = glob 'keyboard/altgr/*.eng.inc.pl'; +my $dirbase = 'keyboard/altgr'; +my $indexfile = "$dirbase/index"; Html({ title => "altgr keyboard cheat sheets", - version => '1.0', + version => '1.3', description => [ "Overview of alternate keyboard modes,", "offering extended Unicode characters if a modifier key", @@ -15,13 +17,92 @@ Html({ keywords => [qw' sheet cheat reference overview keyboard altgr option '], + image => "$dirbase/thumb/ibm-m.jpg", stylesheet => [qw( light dark circus mono red )], - data => ['keyboard/altgr/index.inc.plp', @incs], + data => ["$dirbase/index.inc.plp", "$indexfile.inc.pl"], raw => <<'.', . @@ -30,25 +111,76 @@ img { :>
Representative images of available layouts -with AltGr or similar modifier keys.
- -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 ' |