X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/89052f1b0f9c404f8c4a5183276fdbcfbbf38b80..v1.14-7-ge90c9ada43:/word.plp?ds=sidebyside diff --git a/word.plp b/word.plp index 0e03f45..e51ef3f 100644 --- a/word.plp +++ b/word.plp @@ -1,104 +1,28 @@ <(common.inc.plp)><: -my $wordlist = 'wordlist.inc.pl'; -Html({ - title => 'words cheat sheet', - version => '1.0', - description => "Visual words", - keywords => [qw' - language - '], - data => [$wordlist], - raw => <<'EOT', - -EOT -}); - -:> -
-Under construction. -Zie ook dieren. -
- -<: -my %table = do 'wordlist.inc.pl' or die $@ // $!; - -sub showimg { - my ($name) = @_; - my ($img) = $name =~ /^([\w-]+)/; - $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)//gx; - $name =~ y/_/ /; - my $hidden = $name =~ s/\?$//; - my $alt = $name; - $name = "$name" if $name =~ s/\?$//; - - if ($img and -e ($img = "data/word/$img.jpg")) { - my $alt = -l $img && readlink($img) =~ s/\.jpg$//r; - if ($alt) { - $name .= " ($alt)"; - } - else { - $alt = $name; - } - $name = "
$namenot found"]; } - -sub printimgs { - say '