latin: unistrokes circles matched separately

[sheet.git] / dieren.plp

diff --git a/dieren.plp b/dieren.plp
index 50f9981ec32a163a428a75ff607f555502ef13cd..8abcdfdbd28835213669fe1cfe6c3679d5ecf2d5 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -39,30 +39,21 @@ Html({
        '],
        raw => <<'EOT',
 <style>
-table {
-       width: 100%;
-}
-th {
-       width: 1%; /* min-content */
-}
-td {
-       width: 15%; /* 1fr */
-       vertical-align: top;
-}
 figure[hidden] {
+       opacity: 0; /* secret */
        transition: opacity 1s 0s;
-       display: inline;
-       opacity: 0;
+       display: block;
 }
 figure[hidden]:hover {
        opacity: 1;
        transition-delay: 1s;
 }
+figure[hidden]:hover > figcaption {
+       transition-delay: 2s;
+}
 
 @media (max-width: 60em) {
-       figcaption {
-               position: static;
-               padding: 0;
+       td, th {
                font-size: 50%;
        }
        figcaption small {
@@ -71,9 +62,6 @@ figure[hidden]:hover {
        th:first-child {
                display: none;
        }
-       th {
-               font-size: 50%;
-       }
 }
 </style>
 EOT
@@ -92,7 +80,7 @@ say $pageinfo->{altlink};
 <:
 my @table = qw(
         >:        origineel: zee-:        meer_water:    land/aardig: anders:      #:
-        >hond:    hond       zeehond      waterhond??    prairiehond  vleerhond    #rodehond
+        >hond:    hond       zeehond      scheepshond?   prairiehond  vleerhond    #rodehond
         >kat:     kat        zeekat       meerkat        cat_325?    vliegende_kat #tijgerkat
        #>haas:    haas       zeehaas      waterhaas      koolhaas?    ossenhaas?   #buidelhaas
         >muis:    muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #computermuis
@@ -101,7 +89,7 @@ my @table = qw(
         >varken:  varken     zeevarken=bruinvis
                                waterzwijn=capibara       aardvarken   stekelvarken #feestvarken?
         >koe:     koe        zeekoe       meerkoetje     aardekoe??   koedoe       #haiku?
-        >paard:   paard      zeepaardje   nijlpaard      aardpaard??  luipaard     #tijgerpaard
+        >paard:   paard      zeepaardje   nijlpaard      (turn)paard? luipaard     #tijgerpaard
        #>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?=narwal
                                                     bergahorn=esdoorn neushoorn    #eekhoorn
        #>bra:   bra(ssière)? zebra        -              -            cobra        #sabra
@@ -117,6 +105,7 @@ my @table = qw(
        #>mot:     mot        marmot       watermot       bergamot     -            #
        #>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
 );
+$table[4 + 9*7] = 'grasmodderpaard?=草泥马' if $Request eq 'standaard'; # replace turnpaard
 
 @table = qw(
        >hond    zeehond    prairiehond
@@ -147,7 +136,7 @@ if (exists $get{r}) {
        }
 }
 
-say '<table>';
+say '<table class="gallery">';
 while (my $name = shift @table) {
        if ($name =~ s/^#// and !$pageinfo->{prefix}) {
                while ($name = shift @table) {
@@ -161,7 +150,7 @@ while (my $name = shift @table) {
                print "<tr>";
        }
        $name =~ s/^-$//;
-       my ($img) = $name =~ /^([\w-]+)/;
+       my ($img) = $name =~ /([\w-]+)/;
        $name =~ y/_/ /;
        if ($name =~ s/:$//) {
                # trailing colon indicates header text