From: Mischa POSLAWSKY
Date: Sun, 26 Mar 2017 18:44:14 +0000 (+0200)
Subject: latin: single line per letter in html output
X-Git-Tag: v1.10~306
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/d494c925843581855627a24887ee3282a49dd514
latin: single line per letter in html output
Same results but with readable source.
---
diff --git a/latin.plp b/latin.plp
index 406cfa3..ed68cae 100644
--- a/latin.plp
+++ b/latin.plp
@@ -1,4 +1,5 @@
<(common.inc.plp)><:
+use 5.014;
Html({
title => 'latin alphabet cheat sheet',
@@ -43,7 +44,7 @@ or 'mercan) letters AâZ.
Also see related alphabets
and common chars.
-
+
<:
my @table = do 'writing-latn.inc.pl';
@@ -51,10 +52,11 @@ if ($! or $@) {
printf "
Table data not found: %s.
\n", $@ || $!;
}
else {
- print '
';
- print ref $_ ne 'ARRAY' ? "
$_" : map {/^
$_"} @$_ for @table;
- print "
\n\n";
+ say '
';
+ print ref $_ ne 'ARRAY' ? "
$_\n" : map {/^
$_\n"} @$_
+ for @table;
+ say "
\n";
}
-print "
\n";
+:>
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 8cace93..be639c6 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -41,7 +41,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
})],
'Maritime flags' => [
# International Code of Signals, SVG fills
- map { '' }
+ map { '' }
split /\n\n/, qq{
@@ -83,7 +83,6 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
-