X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/52b2d01baa052b2a2283adee52008e756442a185..02b8f6f8e9a2e820a81bfd09254a7875928282b1:/writing-latn.inc.pl

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 917ae11..ef14053 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -16,7 +16,7 @@ my %C = qw(red #EC1C24  blue #3953A3  yellow #F9EC31  black #231F20);
 '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 }],
 'Lowercase' => [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 }],
 'Sütterlin' => [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 }],
-'<abbr title="American Sign Lanugage">ASL</abbr>' => [
+'Sutton <abbr title="American Sign Lanugage">ASL</abbr>' => [
 	# American manual alphabet in Sutton (U+1D800+) notation
 	map { pack 'W*', map { hex "1D$_" } unpack '(A3)*', $_ } qw{
 	8F7a9c    847a9c    86Da9c    801a9c    84Aa9c
@@ -141,12 +141,11 @@ my %C = qw(red #EC1C24  blue #3953A3  yellow #F9EC31  black #231F20);
 		local $_ = $_;
 		s/[1-4]\K(?=[4-9])/ /;
 		tr/1-9/↙←↖↑↗→↘↓/;
-		s{(.)(?=.)}{<span style="position:absolute">$1</span>}
-			or s/^/<span>/ and $_ .= '</span>';
+		s{(\S)(?=.)}{<span style="position:absolute">$1</span>};
 		$_
 	}
 	qw(
-		1 2 3 4 5  6 7 21 31 46  14 15 16 17 23
+		1 2 3 4 5  6 7 21 31 46  14 51 16 17 23
 		24 25 26 27 34  35 47 56 57 36  67
 	)
 ],