remove width/height from svg output

laantas-script/lib/GlyphsBase.hs

@@ -104,9 +104,8 @@ doGlyphsNoDoctype gs e = wrap $ run act e where
                   Fill_ <<- "none"]
     g_ gattrs . mconcat <$> traverse placeWord gs <* newline
   wrap (content, T {width, height}) =
-    let w = toPx width; h = toPx height
-        viewBox = Text.unwords ["0", "0", toNoDim width, toNoDim height] in
-    svg11_ content `with` [Width_ <<- w, Height_ <<- h, ViewBox_ <<- viewBox]
+    let viewBox = Text.unwords ["0", "0", toNoDim width, toNoDim height] in
+    svg11_ content `with` [ViewBox_ <<- viewBox]
 
 doGlyphs :: [Word] -> Env -> Element
 doGlyphs gs e = doctype <> doGlyphsNoDoctype gs e

pages/index.md

@@ -22,5 +22,7 @@ couple of buzzwords each:
 
 * [an unnamed language with a volapük-ass aesthetic](vol)
 
+* [unnamed kobold language](kobl)
+
 Also, [a mirror](syn-test-cases.html) of some syntax test cases, originally
 compiled by Gary Shannon, that might be useful to someone.

pages/laantas/index.md

@@ -5,7 +5,7 @@ conlang: lántas
 ...
 
 :::splash
-`{#lántas | size = 20 ; stroke = 10}`
+`{#lántas}`
 :::
 
  1. [Phonology](phono.html)

style/page.css

@@ -154,10 +154,14 @@ pre {
   height: 2em;
 }
 
-:is(.splash, .example) .scr {
-  height: unset;
-  display: block;
-  margin: auto;
+.example .scr {
+  width: 80%; height: auto;
+  display: block; margin: auto;
+}
+
+.splash .scr {
+  height: 10em;
+  display: block; margin: auto;
 }
 
 .example {