X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4e9a4a380d4bc5fc523ef5db79ace506934b9846..56eec01960f868e55f80e696eed36573f228857e:/apl.plp?ds=sidebyside
diff --git a/apl.plp b/apl.plp
index 6fc7cad..804d80e 100644
--- a/apl.plp
+++ b/apl.plp
@@ -32,10 +32,15 @@ my @ops = do 'apl.inc.pl';
di | html
| monadic
| dyadic
-
+ |
<:
for my $op (@ops) {
+ $op or do {
+ print "\n";
+ next;
+ };
+
my ($chr, $dyad, $monad) = @{$op};
($chr, my $altkey) = split /\n/, $chr;
my $codepoint = ord $chr;
@@ -51,8 +56,9 @@ for my $op (@ops) {
[defined $html ? 'l4' : $ascii ? 'l5' : 'l1', $html // "#$codepoint"],
);
printf(
- defined $_ ? '%s' : ' | ',
- map { EscapeHTML($_) } split /\n/, $_, 2
+ defined $_ ? ' | %s' : ' | ',
+ map { !!$_->[1] && qq( title="$_->[1]"), $_->[0] }
+ [map { EscapeHTML($_) } split /\n/, $_, 2]
) for $monad, $dyad;
print "\n";
}
|