From 9161aea80d5aa138281ec4fbcc6f0434739d7866 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 15 Mar 2024 00:03:42 +0100
Subject: [PATCH] keyboard/altgr/eurkey: greek uppercase

Overlooked from less explicit reference sheet.
---
 keyboard/altgr/eurkey.eng.inc.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/keyboard/altgr/eurkey.eng.inc.pl b/keyboard/altgr/eurkey.eng.inc.pl
index ac79027..456ac15 100644
--- a/keyboard/altgr/eurkey.eng.inc.pl
+++ b/keyboard/altgr/eurkey.eng.inc.pl
@@ -135,7 +135,9 @@ my %rows = (
 
 		# aliases
 		'v' => \'mb',
+		'V' => \'mB',
 		'u' => \'mq',
+		'U' => \'mQ',
 
 		# suþscript
 		'1' => '¹',
@@ -273,6 +275,9 @@ my %rows = (
 	},
 );
 
+# uppercase greek
+$rows{m}{uc $_} //= uc $rows{m}{$_} for keys %{ $rows{m} };
+
 +{
 	%{ kbmodes(\%rows) },
 	mode => {
@@ -281,7 +286,7 @@ my %rows = (
 		'M' => '√ maths prefix ⌥M',
 		$presymbol => "$rows{''}{$presymbol} symbol prefix ⌥$presymbol",
 	},
-	version => '1.1',
+	version => '1.2',
 	title => 'EurKEY',
 	category => 'latin/thirdparty/xorg',
 	intro => join("\n",
-- 
2.30.0