git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
screen: describe action of (default) command key [^a]
[sheet.git]
/
writing-latn.inc.pl
diff --git
a/writing-latn.inc.pl
b/writing-latn.inc.pl
index f763d3591322f129eb271ae336ae8f1176d526e9..f2435104d7ebf7a24683c16b763fa258e64fab22 100644
(file)
--- a/
writing-latn.inc.pl
+++ b/
writing-latn.inc.pl
@@
-4,8
+4,9
@@
sub disptap {
map {
m/\A(-?)(\d)(\d)/;
$1 . '\\' # escape dot
map {
m/\A(-?)(\d)(\d)/;
$1 . '\\' # escape dot
- . chr($2 > 3 ? 0x2070 + $2 : $2 == 1 ? 0xB9 : 0xB0 + $2) # superscript
- . chr(0x2080 + $3) # subscript digit
+ . ('.̇' x ($2 < $3 ? $2 : $3)) # min($2,$3) without losing captures
+ . ('.' x ($3 - $2))
+ . (' ̇' x ($2 - $3))
} @_
}
} @_
}
@@
-22,4
+23,8
@@
tap => [disptap(qw{
11 12 13 14 15 21 22 23 24 -24 25 31 32
33 34 35 41 42 43 44 45 51 52 53 54 55
})],
11 12 13 14 15 21 22 23 24 -24 25 31 32
33 34 35 41 42 43 44 45 51 52 53 54 55
})],
+tap => [disptap(qw{
+ 11 12 13 14 21 22 23 24 31 -31 -13 32 33
+ 34 41 42 -13 43 44 15 51 52 53 -25 -31 54
+ })],
);
);