From d633423013d3cfb34c674454fa402a11561c2eac Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY
Date: Tue, 23 Jan 2024 23:44:05 +0100
Subject: [PATCH] keyboard/altgr: order index by subpage categories
---
keyboard/altgr/apl.eng.inc.pl | 1 +
keyboard/altgr/eurkey.eng.inc.pl | 1 +
keyboard/altgr/index.inc.plp | 8 +++++---
keyboard/altgr/ipa.eng.inc.pl | 1 +
keyboard/altgr/macos-abc.eng.inc.pl | 1 +
keyboard/altgr/macos.eng.inc.pl | 1 +
keyboard/altgr/msx.eng.inc.pl | 1 +
keyboard/altgr/spacecadet.eng.inc.pl | 1 +
keyboard/altgr/ukext.eng.inc.pl | 1 +
keyboard/altgr/windows.eng.inc.pl | 1 +
10 files changed, 14 insertions(+), 3 deletions(-)
diff --git a/keyboard/altgr/apl.eng.inc.pl b/keyboard/altgr/apl.eng.inc.pl
index 6675fc4..81dcd0c 100644
--- a/keyboard/altgr/apl.eng.inc.pl
+++ b/keyboard/altgr/apl.eng.inc.pl
@@ -101,6 +101,7 @@ $groups->{flag}{ext} = ['extended', 'optional operators not available in all var
%{$groups},
version => '1.0',
title => 'APL',
+ category => 'specialised',
intro => join("\n",
'Resulting Unicode characters',
'of a typical APL keyboard layout',
diff --git a/keyboard/altgr/eurkey.eng.inc.pl b/keyboard/altgr/eurkey.eng.inc.pl
index a57a3ae..a0b9ea2 100644
--- a/keyboard/altgr/eurkey.eng.inc.pl
+++ b/keyboard/altgr/eurkey.eng.inc.pl
@@ -279,6 +279,7 @@ my %rows = (
},
version => '1.0',
title => 'EurKEY',
+ category => 'latin',
intro => join("\n",
'Third-party proposal EurKEY',
'v1.3 by Steffen Brüntjen',
diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index 75c2cc3..e4ed3d8 100644
--- a/keyboard/altgr/index.inc.plp
+++ b/keyboard/altgr/index.inc.plp
@@ -34,11 +34,13 @@ img {
with AltGr or similar modifier keys.
<:
-for my $inc (@incs) {
- $inc =~ s/\Q.inc.pl\E$//;
+my %idx = map {s/\Q.inc.pl\E$//; ($_ => eval{ Data($_) })} @incs;
+for my $inc (sort {
+ $idx{$a}{category} cmp $idx{$b}{category} || $a cmp $b
+} keys %idx) {
print '