keyboard/altgr: image alt descriptions

[sheet.git] / keyboard / altgr / index.inc.plp

diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index 36b50c3955286e088216f3ff09580f61dad2b0cb..75c2cc382bced54cd0f6ea4061863ae65673099e 100644 (file)
--- 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;