X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/d1bf245dac9f5a1401ac536b5a19fff9aa39b72f..46e6c672ed4ce92d01613bb81086cde0ff31794b:/keyboard/altgr/groups.inc.pl

diff --git a/keyboard/altgr/groups.inc.pl b/keyboard/altgr/groups.inc.pl
index 4b72d08..036a21f 100644
--- a/keyboard/altgr/groups.inc.pl
+++ b/keyboard/altgr/groups.inc.pl
@@ -2,11 +2,14 @@ use strict;
 use warnings;
 use Unicode::Normalize qw( NFKD );
 use Text::Unidecode qw( unidecode );
+use Shiar_Sheet::FormatChar;
 
 our %rows;
+
+my $uc = Shiar_Sheet::FormatChar->new;
 my %g; # present group classes
 {
-	rows => [0, 1],
+	rows => [1, 0],
 	def => {
 		'' => {
 			map {
@@ -26,9 +29,13 @@ my %g; # present group classes
 			} keys %rows
 		},
 	},
-	key => \%rows,
+	key => {
+		map {
+			my ($glyph, $title) = $uc->glyph_html($rows{$_});
+			$_ => join "\n", $glyph, $title
+		} keys %rows
+	},
 	flag => {
-		g1 => ['unaltered', "same results as without modifier"],
 		g2 => ['accented', "decomposes to the original letter with a combining accent"],
 		g4 => ['similar', "transliterates (mostly) into the unmodified letter"],
 		g5 => ['latin', "a different (accented) latin letter"],