word.plp

   1 <(common.inc.plp)><:
   2
   3 my $wordlist = 'wordlist.en.inc.pl';
   4 my $limit = $get{v} // (exists $get{v} ? 4 : 3);
   5
   6 Html({
   7         title => 'words cheat sheet',
   8         version => '1.0',
   9         description => "Visual words",
  10         keywords => [qw'
  11                 language
  12         '],
  13         data => [$wordlist],
  14         raw => <<'EOT',
  15 <style>
  16 body {
  17         margin: 8px 1px;
  18 }
  19 </style>
  20 EOT
  21 });
  22
  23 if (exists $get{debug}) {
  24         say '<style>';
  25         include 'word-debug.css';
  26         say '</style>';
  27 }
  28 :>
  29 <h1>Words</h1>
  30
  31 <p>
  32 Under construction.
  33 Zie ook <a href="/dieren">dieren</a>.
  34 </p>
  35
  36 <:
  37 my $table = do $wordlist or die $@ // $!;
  38
  39 sub showimg {
  40         my ($name) = @_;
  41         my ($imgname) = $name =~ /^([\w -]+)/;
  42         $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)/&shy;/gx;
  43         $name =~ s{/(.*)}{ <small>($1)</small>}g;
  44         my $hidden = $name =~ s/\?$//;
  45         my $alt = $name;
  46         $name = "<q>$name</q>" if $name =~ s/\?$//;
  47         $name = "<figcaption>$name</figcaption>";
  48
  49         if ($imgname and -e (my $img = "data/word/en/$imgname.jpg")) {
  50                 $name .= sprintf '<img src="/%s" alt="%s" />', $img, $imgname;
  51         }
  52         return sprintf '<figure%s>%s</figure>', $hidden && !exists $get{v} && ' hidden', $name;
  53 }
  54
  55 sub printimgs {
  56         say '<ul>';
  57         for my $row (@_) {
  58                 my ($id, $level, $title) = split /:/, $row, 3;
  59                 my @type;
  60                 push @type, 'parent' if defined $table->{$id};
  61                 push @type, 'large'  if $level =~ s/c$//;
  62                 push @type, 'level'.($level || 0);
  63                 printf '<li%s>', @type ? sprintf ' class="%s"', join ' ', @type : '';
  64                 print showimg($title) if $level <= $limit;
  65                 printimgs(@{$_}) for $table->{$id} // ();
  66                 print '</li>';
  67         }
  68         say '</ul>';
  69 }
  70
  71 say '<section class="gallery">';
  72 printimgs($table->{''}->[0]);
  73 say '</section>';