From f7ced5dbac0054134afbf8c174ffc5542ef9dbdc Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 28 Dec 2023 03:48:23 +0100
Subject: [PATCH] keyboard/altgr: cover images of all available subpages

---
 keyboard.plp                 |  5 ++++
 keyboard/altgr/index.inc.plp | 49 ++++++++++++++++++++++++++++++++++++
 tools/mksitemap              |  3 ++-
 3 files changed, 56 insertions(+), 1 deletion(-)
 create mode 100644 keyboard/altgr/index.inc.plp

diff --git a/keyboard.plp b/keyboard.plp
index a2c2f2e..4b45927 100644
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -4,6 +4,11 @@ $Request ||= 'altgr/windows';
 my $mode = lc $Request;
 my $include = "keyboard/$mode.eng";
 
+if (-e (my $page = "keyboard/$Request/index.inc.plp")) {
+	Include $page;
+	exit;
+}
+
 my $info = eval { Data($include) } || {};
 warn "error in $include: ", @{$@} if ref $@;
 $mode = $info->{title} // $mode;
diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
new file mode 100644
index 0000000..36b50c3
--- /dev/null
+++ b/keyboard/altgr/index.inc.plp
@@ -0,0 +1,49 @@
+<: # included from keyboard.plp
+use 5.014;
+use warnings;
+
+my @incs = glob 'keyboard/altgr/*.eng.inc.pl';
+
+Html({
+	title => "altgr keyboard cheat sheets",
+	version => '1.0',
+	description => [
+		"Overview of alternate keyboard modes,",
+		"offering extended Unicode characters if a modifier key",
+		"(such as AltGr or option) is pressed.",
+	],
+	keywords => [qw'
+		sheet cheat reference overview keyboard altgr option
+	'],
+	stylesheet => [qw( light dark circus mono red )],
+	data => ['keyboard/altgr/index.inc.plp', @incs],
+	raw => <<'.',
+<style>
+img {
+	object-fit: cover;
+	height: 100%;
+}
+</style>
+.
+});
+
+:>
+<h1>Extended keyboards</h1>
+
+<p>Representative images of available layouts
+with AltGr or similar modifier keys.</p>
+
+<section class="gallery"><:
+for my $inc (@incs) {
+	$inc =~ s/\Q.inc.pl\E$//;
+	print '<figure>';
+	printf '<a href="/%s">', $inc =~ s/\.eng$//r;
+	if (my $table = eval { Data($inc) }) {
+		printf '<img src="/%s" />', $_ for $table->{image} || ();
+		$inc = $table->{title};
+	}
+	printf '<figcaption>%s</figcaption>', $inc;
+	say '</a></figure>';
+}
+:></section>
+
diff --git a/tools/mksitemap b/tools/mksitemap
index 2fd6ee0..46ce568 100755
--- a/tools/mksitemap
+++ b/tools/mksitemap
@@ -10,7 +10,7 @@ use Time::Piece;
 my @pages = (
 	[qw( index )],
 	[qw( vi digraphs charset browser writing sc/lotv termcol dieren )],
-	[qw( readline latin unicode countries emoji perl )],
+	[qw( readline latin unicode countries emoji perl keyboard/altgr )],
 	[qw(
 		vimperator mutt nethack mplayer/mpv font codec
 		keyboard/altgr/windows keyboard/altgr/macos
@@ -18,6 +18,7 @@ my @pages = (
 	)],
 	[qw(
 		apl less screen digits sc/bw sc/hots termcol/legacy mplayer
+		keyboard/altgr/macos-abc keyboard/altgr/msx keyboard/altgr/ukext
 	)],
 	[qw( chars/table/html sample source plan )],
 );
-- 
2.30.0