latin: distinguish titles from row identifiers

[sheet.git] / latin.plp

diff --git a/latin.plp b/latin.plp
index 1dcd8c7881f81f7757426665289677f3e28f7504..58c103f3f74dda9ead95c6e4e545e72876a1e239 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -21,15 +21,15 @@ Html({
                font-family: Suetterlin; /* R. G. Arens */
                src: url("/suetterlin.ttf");
        }
-       #sütterlin td { font-family: Suetterlin }
+       #suetterlin td { font-family: Suetterlin }
        #ita2 td,
-       #tap-code td,
-       #short-tap td {
+       #tap td,
+       #shorttap td {
                white-space: normal;
                word-spacing: 5em; /* force line break between words */
        }
-       #tap-code td,
-       #short-tap td {
+       #tap td,
+       #shorttap td {
                line-height: 1ex;
        }
        #ita2 td {
@@ -42,7 +42,7 @@ Html({
                stroke-linecap: square;
        }
        #nyctographs,
-       #old-roman-cursive {
+       #roman {
                stroke-linecap: round;
                stroke-linejoin: round;
        }
@@ -58,26 +58,26 @@ Html({
                text-align: left;
                padding: 1px 0.3em;
        }
-       #old-roman-cursive .sample span {
+       #roman .sample span {
                margin-right: -10px;
        }
-       #tap-code .sample,
-       #short-tap .sample {
+       #tap .sample,
+       #shorttap .sample {
                font-size: 80%;
        }
        #ita2 .sample,
-       #tap-code .sample,
-       #short-tap .sample {
+       #tap .sample,
+       #shorttap .sample {
                word-spacing: 0;
        }
        #ita2 .sample span,
-       #tap-code .sample span,
-       #short-tap .sample span {
+       #tap .sample span,
+       #shorttap .sample span {
                margin-right: 1ex;
                white-space: nowrap;
        }
-       #sutton-asl .sample span,
-       #maritime-flags .sample span,
+       #sutton .sample span,
+       #maritime .sample span,
        #morse .sample span {
                margin-right: 0.5ex;
        }
@@ -134,9 +134,11 @@ else {
        say '</thead>';
 
        for my $row (pairs @table) {
-               my ($title, $info) = @{$row};
-               printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
-               say '<th>', $title;
+               my ($id, $info) = @{$row};
+
+               printf '<tr id="%s">', $id;
+               say '<th>', $info->{title} // ucfirst $id;
+
                my $colspan = 1;
                my $col = 0;
                for (@{ $info->{list} }) {