X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/58725794d72361cc70cb082476a32d08e22d21d0..HEAD:/apl.plp diff --git a/apl.plp b/apl.plp index d01d3ed..302a55d 100644 --- a/apl.plp +++ b/apl.plp @@ -27,7 +27,7 @@ EOT use Shiar_Sheet::FormatChar; my $glyphs = Shiar_Sheet::FormatChar->new; -my @ops = Data('apl'); +my $ops = Data('apl'); :>

APL Symbols

@@ -47,7 +47,7 @@ my @ops = Data('apl'); <: -for my $op (@ops) { +for my $op (@{$ops}) { $op or do { say ''; next; @@ -68,9 +68,9 @@ for my $op (@ops) { [defined $entity ? 'l4' : $ascii ? 'l5' : 'l1', $entity // "#$codepoint"], ); printf( - defined $_ ? '%s' : '', - map { !!$_->[1] && qq( title="$_->[1]"), $_->[0] } - [map { EscapeHTML($_) } split /\n/, $_, 2] + '%s', + map { defined ? (!!$_->[1] && qq( title="$_->[1]"), $_->[0]) : (' class=Xi', '') } + $_ && [map { EscapeHTML($_) } split /\n/, $_, 2] ) for $monad, $dyad; say ''; }