From e327cdf7ff4bb2ce54fead5b7fcc480d4a3cec3e Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 16 Oct 2021 17:10:57 +0200 Subject: [PATCH] dieren: fill last placeholders and improve existing words --- dieren.plp | 29 +++++++++++++++-------------- tools/mkimgthumb | 2 +- 2 files changed, 16 insertions(+), 15 deletions(-) diff --git a/dieren.plp b/dieren.plp index bf15ec7..f8e9450 100644 --- 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 '' if $name; print ""; } + $name =~ s/^-$//; my ($img) = $name =~ /^([\w-]+)/; $name =~ y/_/ /; if ($name =~ s/:$//) { diff --git a/tools/mkimgthumb b/tools/mkimgthumb index e2b974d..fc33162 100755 --- 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"; } -- 2.30.0