From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 23 Nov 2019 15:05:32 +0000 (+0100)
Subject: dieren: full width table, image styling and alt
X-Git-Tag: v1.12~22
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/e06a2e0f127e3d06571d6afd8e7a0ae95a9d24ef

dieren: full width table, image styling and alt
---

diff --git a/dieren.plp b/dieren.plp
index 67525c4..cb20391 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -9,6 +9,20 @@ Html({
 		relatie vernoemd vernoeming combinatie samenstelling onverwant
 		land zee lucht  animals dutch language
 	'],
+	raw => <<'EOT',
+<style>
+table {
+	width: 100%;
+}
+tr:first-child th {
+	word-break: break-all;
+}
+img {
+	vertical-align: bottom;
+	width: 100%;
+}
+</style>
+EOT
 });
 
 :>
@@ -48,7 +62,7 @@ for my $name (@table) {
 	print qq{<td title="$name">};
 	if (-e (my $img = "data/dieren/$name.jpg")) {
 		printf '<img src="/%s"', $img;
-		printf ' alt="%s"', $name;
+		printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
 		print ' />';
 	}
 	print '</td>';