X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e42bf56734a8ef1b890fb42df3dbb719456de225..a3f9b6de6bde0cd3f32faee7e4c982f6e7d42aaf:/Shiar_Sheet/FormatChar.pm diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm index d7c59c1..c0a4cb0 100644 --- a/Shiar_Sheet/FormatChar.pm +++ b/Shiar_Sheet/FormatChar.pm @@ -136,7 +136,7 @@ sub cell { if ($input =~ /[ -~]/) { push @class, 'l5', 'u-ascii'; # ascii } - elsif ($input =~ /^\p{in=6.0}+$/) { + elsif ($input =~ /^\p{in=6.0}+$/ and $input !~ /\p{Co}/) { push @class, 'l2'; # in unicode 6.0 } else { @@ -248,11 +248,15 @@ sub table { my @colheads; while ($digraphs->[0] !~ /^\./) { my $cell = shift @$digraphs or last; + if ($cell eq '>') { + push @colheads, '