X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/7d3818b79c9675a47364e50c6cfdbe97003a31bc..74d561810b2bf81617b84bc1581d8b59c359d5c9:/word.plp diff --git a/word.plp b/word.plp index 1fc290f..4d60f9a 100644 --- a/word.plp +++ b/word.plp @@ -1,5 +1,8 @@ <(common.inc.plp)><: +my $wordlist = 'wordlist.en.inc.pl'; +my $limit = $get{v} // (exists $get{v} ? 4 : 3); + Html({ title => 'words cheat sheet', version => '1.0', @@ -7,68 +10,95 @@ Html({ keywords => [qw' language '], - data => ['wordlist.inc.pl'], - raw => <<'EOT', + data => [$wordlist], + raw => (exists $get{q} && <<'EOT') +EOT + . <<'EOT', + EOT }); +if (exists $get{debug}) { + say ''; +} :>
Under construction. Zie ook dieren. +Omit translations to test.
<: -my %table = do 'wordlist.inc.pl' or die $@ // $!; +my $table = do $wordlist or die $@ // $!; sub showimg { - my ($name) = @_; - my ($img) = $name =~ /^([\w-]+)/; - $name =~ y/_/ /; + my ($id, $name) = @_; + my ($imgname) = $name =~ m{^([^/]+)}; + $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)//gx; + ($name, my @morenames) = split m{/}, $name; + $name =~ s{\( ([^/]+) \)}{$1}x; + $name .= " ($_)" for @morenames; my $hidden = $name =~ s/\?$//; - my $alt = $name; $name = "$name" if $name =~ s/\?$//; + $name = "