From ad8011786d4ed955d65ddd2b65b24635e5a5d1aa Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 30 Dec 2023 05:12:12 +0100
Subject: [PATCH] keyboard/altgr: filter all unused classes from legend

---
 keyboard/altgr/groups.inc.pl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/keyboard/altgr/groups.inc.pl b/keyboard/altgr/groups.inc.pl
index 036a21f..363ea03 100644
--- 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}},
 }
-- 
2.30.0