common: separate javascript include to set styles

[sheet.git] / apl.plp

diff --git a/apl.plp b/apl.plp
index 395cf202d2eea6424e9e9bab0944459307f2c451..349376e5734d45066cb1375a9674a73648beebe4 100644 (file)
--- a/apl.plp
+++ b/apl.plp
@@ -7,7 +7,6 @@ Html({
        ],
        keywords => [qw'
        '],
-       stylesheet => [qw'light circus dark red'],
        data => [qw'apl.inc.pl'],
        raw => <<'EOT',
 <style>
@@ -70,7 +69,7 @@ for my $op (@{$ops}) {
        printf(
                '<td%s>%s',
                map { defined ? (!!$_->[1] && qq( title="$_->[1]"), $_->[0]) : (' class=Xi', '') }
-               [map { EscapeHTML($_) } split /\n/, $_, 2]
+               $_ && [map { EscapeHTML($_) } split /\n/, $_, 2]
        ) for $monad, $dyad;
        say '</td>';
 }