X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5e5c8c02671606278065bad0398b1f236df3b030..e37bc4efe627399c7f6b851f56440fa18e3ab4dd:/keyboard.plp?ds=sidebyside diff --git a/keyboard.plp b/keyboard.plp index b23e2f2..f4ede94 100644 --- a/keyboard.plp +++ b/keyboard.plp @@ -2,7 +2,7 @@ Html({ title => 'keyboard cheat sheet', - version => '1.1', + version => '1.2', description => [ "Windows US international keyboard layout table", "with the AltGr modifier key.", @@ -45,10 +45,10 @@ my $keys = Shiar_Sheet::Keyboard->new({ my @row = @{$_}; my $class = ( !defined $row[2] || $row[0] eq $row[2] ? 1 # identical + : $row[2] =~ /\A\p{Mn}+\z/ ? 8 # combining accent : NFKD($row[2]) =~ $row[0] ? 2 # decomposed equivalent : $row[2] =~ /^\p{Latin}/ ? 4 # latin script : unidecode($row[2]) =~ /^\W*\Q$row[0]/ ? 5 # transliterated - : $row[2] =~ /^\p{Mn}/ ? 8 # combining accent : 7 ); $row[0] => "g$class" @@ -61,11 +61,12 @@ my $keys = Shiar_Sheet::Keyboard->new({ } @usint }, flag => { - g1 => ['unaltered'], - g2 => ['accented'], - g4 => ['latin'], - g7 => ['other'], - g8 => ['combining'], + g1 => ['unaltered', "same results as without modifier"], + g2 => ['accented', "decomposes to the original letter with a combining accent"], + g4 => ['latin', "a different (accented) latin letter"], + g5 => ['similar', "transliterates (mostly) into the unmodified letter"], + g7 => ['other', "symbol not directly deducible from key"], + g8 => ['combining', "diacritical mark to be combined with a following character"], }, }); $keys->map($get{map}) or undef $get{map};