From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 3 Jan 2024 22:49:17 +0000 (+0100)
Subject: keyboard/altgr: image alt descriptions
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/14080bda5528468fe4dbc5ae3b1a3c62c47a5806

keyboard/altgr: image alt descriptions
---

diff --git a/keyboard/altgr/apl.eng.inc.pl b/keyboard/altgr/apl.eng.inc.pl
index efae0ba..6675fc4 100644
--- a/keyboard/altgr/apl.eng.inc.pl
+++ b/keyboard/altgr/apl.eng.inc.pl
@@ -113,4 +113,5 @@ $groups->{flag}{ext} = ['extended', 'optional operators not available in all var
 		'as found in APLX and Dyalog implementations.',
 	],
 	image => 'data/keyboard/thumb/unicomp-apl.jpg',
+	imagealt => 'Alt on a custom keyboard with APL labels',
 }
diff --git a/keyboard/altgr/eurkey.eng.inc.pl b/keyboard/altgr/eurkey.eng.inc.pl
index 1da4a38..0f3046d 100644
--- a/keyboard/altgr/eurkey.eng.inc.pl
+++ b/keyboard/altgr/eurkey.eng.inc.pl
@@ -291,4 +291,5 @@ my %rows = (
 		"An interactive map of EurKEY, the European Keyboard Layout.",
 	],
 	image => 'data/keyboard/thumb/eurkeyboard.jpg',
+	imagealt => 'Right alt on the EurKEYboard created by Psy-Q',
 }
diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index 36b50c3..75c2cc3 100644
--- a/keyboard/altgr/index.inc.plp
+++ b/keyboard/altgr/index.inc.plp
@@ -39,7 +39,10 @@ for my $inc (@incs) {
 	print '<figure>';
 	printf '<a href="/%s">', $inc =~ s/\.eng$//r;
 	if (my $table = eval { Data($inc) }) {
-		printf '<img src="/%s" />', $_ for $table->{image} || ();
+		if (my $img = $table->{image}) {
+			EscapeHTML $name = $table->{imagealt} // $img =~ m{.*/([^/.]*)};
+			print qq{<img src="/$img" alt="$name" />};
+		}
 		$inc = $table->{title};
 	}
 	printf '<figcaption>%s</figcaption>', $inc;
diff --git a/keyboard/altgr/macos-abc.eng.inc.pl b/keyboard/altgr/macos-abc.eng.inc.pl
index b643303..133f84c 100644
--- a/keyboard/altgr/macos-abc.eng.inc.pl
+++ b/keyboard/altgr/macos-abc.eng.inc.pl
@@ -209,4 +209,5 @@ my %rows = (
 		"with the Option modifier key.",
 	],
 	image => 'data/keyboard/thumb/macbook-gray.jpg',
+	imagealt => 'Option key on a black MacBook',
 }
diff --git a/keyboard/altgr/macos.eng.inc.pl b/keyboard/altgr/macos.eng.inc.pl
index 5b211f0..0d0718d 100644
--- a/keyboard/altgr/macos.eng.inc.pl
+++ b/keyboard/altgr/macos.eng.inc.pl
@@ -116,4 +116,5 @@ my %rows = (
 		"with the Option modifier key.",
 	],
 	image => 'data/keyboard/thumb/matias-fk302.jpg',
+	imagealt => 'Option key on a Matias Tactile Pro keyboard with USA keycaps',
 }
diff --git a/keyboard/altgr/msx.eng.inc.pl b/keyboard/altgr/msx.eng.inc.pl
index 6ed49a6..d52a38d 100644
--- a/keyboard/altgr/msx.eng.inc.pl
+++ b/keyboard/altgr/msx.eng.inc.pl
@@ -108,4 +108,5 @@ $groups->{flag}{ext} = ['anachrone', 'expected uppercase variants if allowed by
 		"with the code modifier key.",
 	],
 	image => 'data/keyboard/thumb/msxcode.jpg',
+	imagealt => 'Code key on a Toshiba HX10 with graph labels',
 }
diff --git a/keyboard/altgr/spacecadet.eng.inc.pl b/keyboard/altgr/spacecadet.eng.inc.pl
index 614ae4c..6805d53 100644
--- a/keyboard/altgr/spacecadet.eng.inc.pl
+++ b/keyboard/altgr/spacecadet.eng.inc.pl
@@ -107,4 +107,5 @@ my %rows = (
 	rows => [3, 0], # greek/front and top
 	moderows => '41-4',
 	image => 'data/keyboard/thumb/spacecadet.jpg',
+	imagealt => 'Many modifier keys on a traditional Symbolics Space Cadet keyboard',
 }
diff --git a/keyboard/altgr/ukext.eng.inc.pl b/keyboard/altgr/ukext.eng.inc.pl
index 3e3a8ce..303648c 100644
--- a/keyboard/altgr/ukext.eng.inc.pl
+++ b/keyboard/altgr/ukext.eng.inc.pl
@@ -115,4 +115,5 @@ $rows{']'} = $rows{'#'};
 		"with the AltGr modifier key.",
 	],
 	image => 'data/keyboard/thumb/chromebook-hp11.jpg',
+	imagealt => 'AltGr key on a HP Chromebook 11 G2',
 }
diff --git a/keyboard/altgr/windows.eng.inc.pl b/keyboard/altgr/windows.eng.inc.pl
index 810b692..fc2f5d7 100644
--- a/keyboard/altgr/windows.eng.inc.pl
+++ b/keyboard/altgr/windows.eng.inc.pl
@@ -80,4 +80,5 @@ $groups->{flag}{ext} = ['xkb', 'unofficial extensions added in Linux (Gnome, KDE
 		"with the AltGr modifier key.",
 	],
 	image => 'data/keyboard/thumb/ku2971b-usint.jpg',
+	imagealt => 'AltGr on a KeyboardCompany KU2971B with USA International keycaps',
 }