dieren: reindent table data to align column names

[sheet.git] / dieren.plp

diff --git a/dieren.plp b/dieren.plp
index 7cc7f5dc0506e74d40c7fec9cd5a5baa1f4fdee3..63049cf8a1bf598effb2d1661a1bbb81b1ec9629 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -1,12 +1,11 @@
 <(common.inc.plp)><:
 
-my $verbose = exists $get{v} && ($get{v} // 1);
 my $intro = 'dieren die in het Nederlands vernoemd zijn naar andere dieren.';
-$intro .= '.. en dergelijke.' if $verbose;
-$intro .= '.. enzo.' if $verbose >= 2;
+$intro .= '.. en dergelijke.' if $Request;
+$intro .= '.. enzo.' if exists $get{v};
 
 Html({
-       title => ($verbose && 'uitgebreid ') . 'dieren cheat sheet',
+       title => (!!$Request && 'uitgebreid ') . 'dieren cheat sheet',
        version => '1.0',
        description => "Tabeloverzicht met afbeeldingen van $intro",
        keywords => [qw'
@@ -45,34 +44,34 @@ EOT
 <p>
 <:
 say ucfirst $intro;
-if ($verbose) {
-       say 'Zie het <a href="?">populaire overzicht</a> voor minder.';
+if ($Request) {
+       say 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.';
 }
 else {
-       say 'Zie ook minderbekende en <a href="?v">verdergezochte verbanden</a>.';
+       say 'Zie ook minderbekende en <a href="/dieren/uitgebreid">verdergezochte verbanden</a>.';
 }
 :>
 </p>
 
 <:
 my @table = qw(
-       >:         origineel: zee-:        meer_water:    aardig:      anders:      #:
-       >hond:     hond       zeehond      waterhond?     prairiehond  vleerhond    #rodehond
-       >kat:      kat        zeekat       meerkat        cat_325?     tijgerkat    #
+        >:        origineel: zee-:        meer_water:    aardig:      anders:      #:
+        >hond:    hond       zeehond      waterhond?     prairiehond  vleerhond    #rodehond
+        >kat:     kat        zeekat       meerkat        cat_325?     tijgerkat    #
        #>haas:    haas       zeehaas      waterhaas      aardhaas?    ossenhaas?   #
-       >muis:     muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #
-       >rat:      rat        zeerat       waterrat       woestijnrat  buidelrat    #beverrat
-       >egel:     egel       zee-egel     wateregel?     aardegel?    mierenegel   #
-       >varken:   varken     zeevarken    waterzwijn     aardvarken   stekelvarken #
-       >koe:      koe        zeekoe       meerkoetje     aardkoe?     koedoe       #haiku?
-       >paard:    paard      zeepaardje   nijlpaard      aardpaard?   luipaard     #
+        >muis:    muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #
+        >rat:     rat        zeerat       waterrat       woestijnrat  buidelrat    #beverrat
+        >egel:    egel       zee-egel     wateregel?     aardegel?    mierenegel   #
+        >varken:  varken     zeevarken    waterzwijn     aardvarken   stekelvarken #
+        >koe:     koe        zeekoe       meerkoetje     aardkoe?     koedoe       #haiku?
+        >paard:   paard      zeepaardje   nijlpaard      aardpaard?   luipaard     #
        #>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?  aardhoorn?   neushoorn    #eekhoorn
        #>bra:     brassiere? zebra        waterbra?      aardbra?     cobra        #sabra
        #>olifant: olifant    zeeolifant   waterolifant?  landolifant? #            #
-       >beer:     beer       zeebeer      waterbeertje   ijsbeer      wasbeer      #neusbeer
-       >leeuw:    leeuw      zeeleeuw     waterleeuw?    aardleeuw?   mierenleeuw  #
+        >beer:    beer       zeebeer      waterbeertje   ijsbeer      wasbeer      #neusbeer
+        >leeuw:   leeuw      zeeleeuw     waterleeuw?    aardleeuw?   mierenleeuw  #
        #>wolf:    wolf       zeewolf      waterwolf?     aardwolf     buidelwolf   #
-       >haan:     haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #
+        >haan:    haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #
        #>pad:     pad        zeepad?      waterpad?      landpad      schildpad    #paddenstoel
        #>draak:   draak      zeedraak     waterdraak     aarddraak?   komododraak  #
        #>vlo:     vlo        strandvlo    watervlo       aardvlo      vlok?        #
@@ -95,7 +94,7 @@ if (exists $get{r}) {
 
 say '<table>';
 while (my $name = shift @table) {
-       if ($name =~ s/^#// and !$verbose) {
+       if ($name =~ s/^#// and !$Request) {
                while ($name = shift @table) {
                        last if $name =~ m/^>/;
                }
@@ -116,7 +115,7 @@ while (my $name = shift @table) {
        if ($name and -e (my $img = "data/dieren/$name.jpg")) {
                printf '<img src="/%s"', $img;
                printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
-               print ' hidden' if $hidden and $verbose < 2;
+               print ' hidden' if $hidden and not exists $get{v};
                print ' />';
        }
        elsif (!$hidden) {