X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/2a817c01f188212c41ee9500b17760a8caa02190..c978ceb9fff8770bb4cb798f45d6b893a7543fa1:/writing-latn.inc.pl
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 93b5edc..da6fc3f 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -1,15 +1,17 @@
use utf8;
+use List::Util qw( pairs );
sub disptap {
return map {
!m/\A(-?)(\d)(\d)/ ? $_ :
- $1.sprintf('%s %s',
+ $1.join(' ',
'·' x $2, '·' x $3,
);
} @_;
}
my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
+my $U = 0; # optional unicode alternatives
(
'Uppercase' => [qw{ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z }],
@@ -181,7 +183,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
'Flag semaphore' => [
map {
local $_ = $_;
- s/[1-4]\K(?=[4-9])/Â /;
+ s/[1-4]\K(?=[4-9])/Â /; # prevent unwanted vertical crossing
tr/1-9/ââââââââ/;
s{(\S)(?=.)}{$1};
$_
@@ -196,7 +198,7 @@ my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
my ($r, $pr, $pl) = split //, $_;
/^\D$/ ? $_ : sprintf(
join('',
- '