dieren: fill last placeholders and improve existing words

diff --git a/dieren.plp b/dieren.plp
index bf15ec7a628ca41054933c27e20d9ec7ce244c1a..f8e945041d888cdc7c594b9a474f9f9e2236a34b 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -55,28 +55,28 @@ else {
 
 <:
 my @table = qw(
-        >:        origineel: zee-:        meer_water:    aardig:      anders:      #:
+        >:        origineel: zee-:        meer_water:    land/aardig: anders:      #:
         >hond:    hond       zeehond      waterhond??    prairiehond  vleerhond    #rodehond
         >kat:     kat        zeekat       meerkat        cat_325?    vliegende_kat #tijgerkat
-       #>haas:    haas       zeehaas      waterhaas      aardhaas?    ossenhaas?   #
-        >muis:    muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #
+       #>haas:    haas       zeehaas      waterhaas      koolhaas?    ossenhaas?   #buidelhaas
+        >muis:    muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #computermuis
         >rat:     rat        zeerat       waterrat       woestijnrat  buidelrat    #beverrat
-        >egel:    egel       zee-egel     wateregel??    aardegel??   mierenegel   #
+        >egel:    egel       zee-egel     wateregel?     aardegel??   mierenegel   #
         >varken:  varken     zeevarken    waterzwijn     aardvarken   stekelvarken #
         >koe:     koe        zeekoe       meerkoetje     aardekoe??   koedoe       #haiku?
-        >paard:   paard      zeepaardje   nijlpaard      aardpaard??  luipaard     #
-       #>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?  aardhoorn?   neushoorn    #eekhoorn
-       #>bra:   bra(ssière)? zebra        waterbra?      aardbra?     cobra        #sabra
-       #>olifant: olifant    zeeolifant   waterolifant?  landolifant? #            #
+        >paard:   paard      zeepaardje   nijlpaard      aardpaard??  luipaard     #tijgerpaard
+       #>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?  bergahorn    neushoorn    #eekhoorn
+       #>bra:   bra(ssière)? zebra        -              -            cobra        #sabra
+       #>olifant: olifant    zeeolifant   olifantsvis    kamerolifant? -           #olifantsoor
         >beer:    beer       zeebeer      waterbeertje   ijsbeer      wasbeer      #neusbeer
         >leeuw:   leeuw      zeeleeuw     waterleeuw??   aardleeuw??  mierenleeuw  #
-        >wolf:    wolf       zeewolf      waterwolf?     aardwolf     korenwolf    #buidelwolf
+        >wolf:    wolf       zeewolf      waterwolf??    aardwolf     korenwolf    #buidelwolf
         >haan:    haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #wilde_haan??
-       #>pad:     pad        zeepad?      waterpad?      landpad      schildpad    #paddenstoel
-       #>draak:   draak      zeedraak     waterdraak     aarddraak?   komododraak  #
-       #>vlo:     vlo        strandvlo    watervlo       aardvlo      vlok?        #
-       #>mot:     mot        zeemot?      watermot       aardmot?     marmot       #
-       #>bij:     bij        zeebij?      waterbij       aardbei      #            #
+       #>pad:     pad        zebrapad?    waterpad?      landpad      schildpad    #paddenstoel
+       #>draak:   draak      zeedraak     waterdraak     -            komododraak  #
+       #>vlo:     vlo        zeevlo       watervlo       aardvlo      -            #vlok?
+       #>mot:     mot        marmot       watermot       bergamot     -            #
+       #>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
 );
 
 if (exists $get{r}) {
@@ -104,6 +104,7 @@ while (my $name = shift @table) {
                say '</tr>' if $name;
                print "<tr>";
        }
+       $name =~ s/^-$//;
        my ($img) = $name =~ /^([\w-]+)/;
        $name =~ y/_/ /;
        if ($name =~ s/:$//) {

diff --git a/tools/mkimgthumb b/tools/mkimgthumb
index e2b974dcf09e35ae7fdd27c3bdc3fbf7631880ee..fc3316229c34c6385baccba278ac6b9c39c9981d 100755 (executable)
--- a/tools/mkimgthumb
+++ b/tools/mkimgthumb
@@ -24,7 +24,7 @@ for my $src (@ARGV) {
        unshift @cmds, -gravity => 'northwest' if @cmds;
        push @cmds, -resize => '300x200^', -gravity => 'north', -extent => '300x200';
        push @cmds, '-strip', -quality => '60%';
-       system(convert => @cmds, $src => "../$name.jpg") == 0
+       system(convert => $src, @cmds, "../$name.jpg") == 0
                or $failcount += warn "error creating $name.jpg from $src\n";
 }