From c1d474c10566cbc9591267934dfa103a61f7c486 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 18 Jun 2017 14:58:01 +0200
Subject: [PATCH] keyboard: categorise keys by result similarity

---
 keyboard.plp | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/keyboard.plp b/keyboard.plp
index 92c2aa2..3a8f35f 100644
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -14,6 +14,7 @@ Html({
 
 <:
 use Shiar_Sheet::Keyboard 2.07;
+use Unicode::Normalize qw( NFKD );
 
 my $usint = [
 	[  'a' ..                                            'z'],
@@ -26,7 +27,17 @@ my $usint = [
 my $keys = Shiar_Sheet::Keyboard->new({
 	def => {
 		'' => {
-			map { $_ => '' } @{ $usint->[0] }
+			map {
+				my $c = $_;
+				my @row = map { $usint->[$_]->[$c] } 0 .. 2;
+				my $class = (
+					  !defined $row[2] || $row[0] eq $row[2] ? 1 # identical
+					: NFKD($row[2]) =~ $row[0] ? 2 # equivalent
+					: $row[2] =~ /^\p{Latin}/ ? 3 # latin
+					: 4
+				);
+				$row[0] => "g$class"
+			} 0 .. $#{ $usint->[0] }
 		},
 	},
 	key => {
@@ -34,6 +45,12 @@ my $keys = Shiar_Sheet::Keyboard->new({
 			$usint->[0]->[$_] => "$usint->[1]->[$_]<br>$usint->[2]->[$_]"
 		} 0 .. $#{ $usint->[0] }
 	},
+	flag => {
+		g1 => ['unaltered'],
+		g2 => ['accented'],
+		g3 => ['latin'],
+		g4 => ['other'],
+	},
 });
 $keys->map($get{map}) or undef $get{map};
 $keys->print_rows($get{rows}, [0]);
-- 
2.30.0