word: maintain wordlist in postgres database

[sheet.git] / word.plp

diff --git a/word.plp b/word.plp
index 698dbd6092f3c9ab1a492d1bdbf3cde4bdaa4fcf..0e03f45f0301fa57a738b3f919aa0dec5bbb6c9a 100644 (file)
--- a/word.plp
+++ b/word.plp
@@ -1,5 +1,6 @@
 <(common.inc.plp)><:
 
+my $wordlist = 'wordlist.inc.pl';
 Html({
        title => 'words cheat sheet',
        version => '1.0',
@@ -7,7 +8,7 @@ Html({
        keywords => [qw'
                language
        '],
-       data => ['wordlist.inc.pl'],
+       data => [$wordlist],
        raw => <<'EOT',
 <style>
 ul {
@@ -92,12 +93,12 @@ sub showimg {
 sub printimgs {
        say '<ul>';
        for my $row (@_) {
-               printf '<li%s>', defined $table{$row} && ' class="parent"';
+               printf '<li%s>', defined $table->{$row} && ' class="parent"';
                print showimg($row);
-               printimgs(@{$_}) for $table{$row} // ();
+               printimgs(@{$_}) for $table->{$row} // ();
                print '</li>';
        }
        say '</ul>';
 }
 
-printimgs($table{''});
+printimgs(@{$table->{''}});