X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/e42bf56734a8ef1b890fb42df3dbb719456de225..d78fc84f0565d86f4f98ca65fb45da4a20ad3e74:/Shiar_Sheet/FormatChar.pm?ds=inline 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, '