word.plp

   1 <(common.inc.plp)><:
   2
   3 my $lang = $get{lang} || 'en';
   4 my $wordlist = "data/wordlist.$lang.inc.pl";
   5 my $limit = $get{v} // (exists $get{v} ? 4 : 3);
   6
   7 Html({
   8         title => 'words cheat sheet',
   9         version => '1.0',
  10         description => "Visual words",
  11         keywords => [qw'
  12                 language
  13         '],
  14         data => [$wordlist],
  15         raw => (exists $get{q} && <<'EOT')
  16 <style>
  17 .gallery figure {
  18         grid-row: span 1 !important;
  19         grid-column: span 1 !important;
  20 }
  21 .gallery figcaption {
  22         /* keep hover position */
  23         right: 50%;
  24         bottom: 50%;
  25         transform: translate(50%, 50%);
  26         /* hide */
  27         visibility: hidden;
  28         font-size: 0 !important;
  29 }
  30 .gallery figure:active > figcaption {
  31         visibility: visible;
  32         font-size: 175% !important;
  33 }
  34 </style>
  35 EOT
  36                 . <<'EOT',
  37 <style>
  38 body {
  39         margin: 8px 1px;
  40 }
  41 </style>
  42 EOT
  43 });
  44
  45 if (exists $get{debug}) {
  46         say '<style>';
  47         include 'word-debug.css';
  48         say '</style>';
  49 }
  50 :>
  51 <h1>Words</h1>
  52
  53 <p>
  54 Under construction.
  55 Zie ook <a href="/dieren">dieren</a>.
  56 <a href="?q">Omit translations</a> to test.
  57 </p>
  58
  59 <:
  60 my $table = do $wordlist or die $@ // $!;
  61
  62 sub showimg {
  63         my ($id, $name) = @_;
  64         my ($imgname) = $name =~ m{^([^/]+)};
  65         $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)/&shy;/gx;
  66         ($name, my @morenames) = split m{/}, $name;
  67         $name =~ s{\( ([^/]+) \)}{<small>$1</small>}x;
  68         $name .= " <small>($_)</small>" for @morenames;
  69         my $hidden = $name =~ s/\?$//;
  70         $name = "<q>$name</q>" if $name =~ s/\?$//;
  71         $name = "<figcaption>$name</figcaption>";
  72
  73         if ($id and -e (my $img = "data/word/en/$id.jpg")) {
  74                 $name .= sprintf '<img src="/%s" alt="%s" />', $img, $imgname;
  75         }
  76         return sprintf '<figure%s>%s</figure>', $hidden && !exists $get{v} && ' hidden', $name;
  77 }
  78
  79 sub printimgs {
  80         say '<ul>';
  81         for my $row (@_) {
  82                 my ($id, $level, $title) = split /:/, $row, 3;
  83                 my @type;
  84                 push @type, 'parent' if defined $table->{$id};
  85                 push @type, 'large'  if $level =~ s/c$//;
  86                 push @type, 'level'.($level || 0);
  87                 printf '<li%s>', @type ? sprintf ' class="%s"', join ' ', @type : '';
  88                 print showimg($id, $title) if $level <= $limit;
  89                 printimgs(@{$_}) for $table->{$id} // ();
  90                 print '</li>';
  91         }
  92         say '</ul>';
  93 }
  94
  95 say '<section class="gallery">';
  96 if (exists $get{q}) {
  97         my @rows;
  98         if ($Request) {
  99                 my @query = $Request;
 100                 while (@query) {
 101                         push @rows, grep { (split /:/)[1] <= $limit } @query;
 102                         s/:.*// for @query;
 103                         @query = map {$_ ? @{$_} : ()} @{$table}{@query};
 104                 }
 105         }
 106         else {
 107                 @rows = map {ref ? @$_ : $_} values %{$table}; # flatten categories
 108         }
 109         @rows = sort { rand <=> .5 } @rows;
 110         $table = {};
 111         printimgs(@rows);
 112 }
 113 else {
 114         printimgs($Request || $table->{''}->[0]);
 115 }
 116 say '</section>';