git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: close xml tag of pigpen circles
[sheet.git]
/
writing-latn.inc.pl
diff --git
a/writing-latn.inc.pl
b/writing-latn.inc.pl
index 018a632f8de3ecccd4a67436d7fdc9b181aa58a9..2498d2a9844149541787c4164f7b8f18b25a4864 100644
(file)
--- a/
writing-latn.inc.pl
+++ b/
writing-latn.inc.pl
@@
-3,7
+3,7
@@
use utf8;
sub disptap {
return map {
m/\A(-?)(\d)(\d)/;
sub disptap {
return map {
m/\A(-?)(\d)(\d)/;
- sprintf('<td
style="line-height:1ex"%s>%s<br>%s</td>
',
+ sprintf('<td
%s>%s<br>%s
',
' class=ex' x !!$1,
'·' x $2, '·' x $3,
);
' class=ex' x !!$1,
'·' x $2, '·' x $3,
);
@@
-281,7
+281,7
@@
my %C = qw(red #EC1C24 blue #3953A3 yellow #F9EC31 black #231F20);
s/(?:h|m[^0]).*?h\K/-/;
m/h/ or s/v/l3,/g;
m/v/ or s/h([^h]*)/l$1,3/g;
s/(?:h|m[^0]).*?h\K/-/;
m/h/ or s/v/l3,/g;
m/v/ or s/h([^h]*)/l$1,3/g;
- my $dot = s/\.// && qq(<circle cx="3" cy="3" r="1">);
+ my $dot = s/\.// && qq(<circle cx="3" cy="3" r="1"
/
>);
qq(<path stroke-linecap="square" d="$_"/>$dot)
}
qw(
qq(<path stroke-linecap="square" d="$_"/>$dot)
}
qw(