git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)><:
<(common.inc.plp)><:
+my $wordlist = 'wordlist.inc.pl';
Html({
title => 'words cheat sheet',
version => '1.0',
Html({
title => 'words cheat sheet',
version => '1.0',
@@
-7,7
+8,7
@@
Html({
keywords => [qw'
language
'],
keywords => [qw'
language
'],
- data => [
'wordlist.inc.pl'
],
+ data => [
$wordlist
],
raw => <<'EOT',
<style>
ul {
raw => <<'EOT',
<style>
ul {
@@
-92,12
+93,12
@@
sub showimg {
sub printimgs {
say '<ul>';
for my $row (@_) {
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);
print showimg($row);
- printimgs(@{$_}) for $table{$row} // ();
+ printimgs(@{$_}) for $table
->
{$row} // ();
print '</li>';
}
say '</ul>';
}
print '</li>';
}
say '</ul>';
}
-printimgs(
$table{''
});
+printimgs(
@{$table->{''}
});