latin: final S forms in suetterlin sample

diff --git a/latinsample.js b/latinsample.js
index 37d323164f46a8593336042b975f2e2ad91e235f..3ef69a4620ae39f879c65ba09217d17885ba6ced 100644 (file)
--- a/latinsample.js
+++ b/latinsample.js
@@ -39,8 +39,11 @@ function appendsample() {
                        else if (cols[28] && i && col == input.charCodeAt(i - 1) - 64) {
                                col = 28; // repetition char
                        }
-
-                       if (col < cols.length) {
+                       if (row.id == 'sütterlin' && col == 19) {
+                               var final = input.length == i + 1 || input[i + 1] == ' ';
+                               output += cols[col].split('&nbsp;')[final ? 1 : 0];
+                       }
+                       else if (col < cols.length) {
                                output += '<span>' + (cols[col] || ' ') + '</span>';
                        }
                        else {

diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 4186f183721cd95fbd66c12d6dbfe61d95dfd754..2eadbc76444b2e67418599ea052ed9ca11ab5ac1 100644 (file)
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -16,7 +16,7 @@ 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 }],
 '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 }],
+'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 }],
 'Old Roman Cursive' => [
        map { m/^(-?)(\w.*)/ ? $1.'<svg width="20" height="20" viewBox="0 0 12 20"><path d="'.$2.'"/></svg>' : $_ }
        "m2,4 c1,2 8,9 8,9 M2,15 6,9",