From: Mischa POSLAWSKY
Date: Mon, 21 Sep 2015 16:21:34 +0000 (+0200)
Subject: latin: plain html output instead of FormatChar module
X-Git-Tag: v1.8~6
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/4481ab42a10ea48159274387ca93c17840e8c850
latin: plain html output instead of FormatChar module
---
diff --git a/latin.plp b/latin.plp
index 12482e1..8ad53c0 100644
--- a/latin.plp
+++ b/latin.plp
@@ -31,23 +31,14 @@ and common chars.
<:
-use Shiar_Sheet::FormatChar;
-my $glyphs = Shiar_Sheet::FormatChar->new;
-unless (exists $get{v}) {
- $glyphs->{unicode}--;
- $glyphs->{anno} = [];
- $glyphs->{style} = 0;
-}
-
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
printf "
Table data not found: %s.
\n", $@ || $!;
}
else {
- print $glyphs->table([map {
- ref $_ ne 'ARRAY' ? ".>$_"
- : exists $get{uc} ? map {uc} @$_ : @$_
- } @table]);
+ print '
';
+ print ref $_ ne 'ARRAY' ? "$_" : map {" | $_"} @$_ for @table;
+ print " |
---|
\n\n";
}
print "
\n";
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 5759439..6c0edad 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -141,8 +141,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
local $_ = $_;
s/[1-4]\K(?=[4-9])/Â /;
tr/1-9/ââââââââ/;
- s{(\S)(?=.)}{$1}
- or s/^// and $_ .= '';
+ s{(\S)(?=.)}{$1};
$_
}
qw(