keyboard/altgr: filter all unused classes from legend

diff --git a/keyboard/altgr/groups.inc.pl b/keyboard/altgr/groups.inc.pl
index 036a21f9212c007161ca4112fc620fb26e986c54..363ea035e952d891ead0e6e508760afef0c49584 100644 (file)
--- a/keyboard/altgr/groups.inc.pl
+++ b/keyboard/altgr/groups.inc.pl
@@ -14,7 +14,7 @@ my %g; # present group classes
                '' => {
                        map {
                                my $v = $rows{$_};
-                               my $class = (
+                               my $class = 'g'.(
                                          !defined $v || $_ eq $v ? 1 # identical
                                        : $v =~ /\A\p{Mn}+\z/ ? 9 # combining accent
                                        : $v =~ /\A[\p{Sk}\p{Lm}]+\z/ ? 8 # modifier symbol
@@ -25,7 +25,7 @@ my %g; # present group classes
                                        : 6
                                );
                                $g{$class} = 1;
-                               $_ => "g$class"
+                               $_ => $class
                        } keys %rows
                },
        },
@@ -35,15 +35,13 @@ my %g; # present group classes
                        $_ => join "\n", $glyph, $title
                } keys %rows
        },
-       flag => {
+       flag => {%{{
                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"],
                g6 => ['symbol', "other character not directly deducible from key"],
                g7 => ['punctuation', "(punctuation) mark"],
-                       !$g{9} ? () : (
                g8 => ['mark', "modifier letter or mark (spacing diacritic)"],
                g9 => ['combining', "diacritical mark to be combined with a following character"],
-                       ),
-       },
+       }}{keys %g}},
 }