X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b388f9311a7891b227aa3b1f52b1d439418af782..c978ceb9fff8770bb4cb798f45d6b893a7543fa1:/latin.plp diff --git a/latin.plp b/latin.plp index 1fda12c..78b52cb 100644 --- a/latin.plp +++ b/latin.plp @@ -21,7 +21,33 @@ Html({ font-family: Suetterlin; /* R. G. Arens */ src: url("/suetterlin.ttf"); } - .glyphs tr:first-child+tr+tr td { font-family: Suetterlin } + #sütterlin td { font-family: Suetterlin } + #tap-code td, + #tap-simplified td { + line-height: 1ex; + white-space: normal; + word-spacing: 5em; /* force line break between words */ + } + #pigpen { + stroke-linecap: square; + } + #nyctographs, + #old-roman-cursive { + stroke-linecap: round; + stroke-linejoin: round; + } + td { + white-space: nowrap; + } + + #pigpen .sample > svg { + margin-right: 0.1em; + } + #nyctographs .sample > svg { + background: rgba(0,0,0, .1); + padding: 0.1em; + margin-right: 0.2em; + } svg path:not([fill]) { stroke: currentColor; @@ -56,11 +82,68 @@ else { say ''; for my $row (pairs @table) { my ($title, $cells) = @{$row}; - say '', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr; + say '
', $title; - print /^$_\n" for @{$cells}; + printf '
', $title; + my $colspan = 1; + for (@{$cells}) { + if ($_ eq '>') { + $colspan++; + next; + } + print "\t 1) { + print " colspan=$colspan"; + $colspan = 1; + } + print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//; + print '>'; + say; + } } say "
\n"; } :> +