From e06a2e0f127e3d06571d6afd8e7a0ae95a9d24ef Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 23 Nov 2019 16:05:32 +0100
Subject: [PATCH] dieren: full width table, image styling and alt

---
 dieren.plp | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

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>';
-- 
2.30.0