git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
charset: unabbreviated planes in unicode preset
[sheet.git]
/
writing-latn.inc.pl
diff --git
a/writing-latn.inc.pl
b/writing-latn.inc.pl
index ed8466df95ec16d11edd5a699ac06be251554be7..da6fc3f78ca9f415b32d7b4c1019a9a6009069a4 100644
(file)
--- a/
writing-latn.inc.pl
+++ b/
writing-latn.inc.pl
@@
-4,7
+4,7
@@
use List::Util qw( pairs );
sub disptap {
return map {
!m/\A(-?)(\d)(\d)/ ? $_ :
sub disptap {
return map {
!m/\A(-?)(\d)(\d)/ ? $_ :
- $1.
sprintf('%s<br>%s
',
+ $1.
join('
',
'·' x $2, '·' x $3,
);
} @_;
'·' x $2, '·' x $3,
);
} @_;
@@
-183,7
+183,7
@@
my $U = 0; # optional unicode alternatives
'Flag semaphore' => [
map {
local $_ = $_;
'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)(?=.)}{<span style="position:absolute">$1</span>};
$_
tr/1-9/↙←↖↑↗→↘↓/;
s{(\S)(?=.)}{<span style="position:absolute">$1</span>};
$_
@@
-198,7
+198,7
@@
my $U = 0; # optional unicode alternatives
my ($r, $pr, $pl) = split //, $_;
/^\D$/ ? $_ : sprintf(
join('',
my ($r, $pr, $pl) = split //, $_;
/^\D$/ ? $_ : sprintf(
join('',
- '<svg width="
20
" height="20" viewBox="0 0 10 15">',
+ '<svg width="
16
" height="20" viewBox="0 0 10 15">',
'<path d="M5,6 v7"/>',
'<path d="M0,%s h10 %s" transform="rotate(%d 5 6)"/>',
'</svg>',
'<path d="M5,6 v7"/>',
'<path d="M0,%s h10 %s" transform="rotate(%d 5 6)"/>',
'</svg>',
@@
-218,7
+218,7
@@
my $U = 0; # optional unicode alternatives
'Prussian semaphore' => [
map { /^\D+$/ ? $_ : sprintf
join('',
'Prussian semaphore' => [
map { /^\D+$/ ? $_ : sprintf
join('',
- '<svg width="
2
0" height="20" viewBox="0 0 8 18">',
+ '<svg width="
1
0" height="20" viewBox="0 0 8 18">',
'<path d="M4,1 v18"/>',
(map {(
qq(<path d="M0 $_ h4" transform="rotate(%d 4 $_)"/>),
'<path d="M4,1 v18"/>',
(map {(
qq(<path d="M0 $_ h4" transform="rotate(%d 4 $_)"/>),
@@
-263,7
+263,7
@@
my $U = 0; # optional unicode alternatives
],
'Code 128' => [
map { $U ? tr/1-3-/❘❙❚ /r : sprintf
],
'Code 128' => [
map { $U ? tr/1-3-/❘❙❚ /r : sprintf
- '<svg width="2
0" height="14" viewBox="-.5 0 10
7"><path d="M0,0 %s"/></svg>',
+ '<svg width="2
2" height="14" viewBox="-.5 0 11
7"><path d="M0,0 %s"/></svg>',
join ' ',
map {
$_ eq '' ? 'm2,-7' :
join ' ',
map {
$_ eq '' ? 'm2,-7' :