remove # from lántas passages

langfilter/Glosses.hs

@@ -43,7 +43,8 @@ glossTable = \case
   make l b n s g t = do
     let ℓ = length $ splitInlines s
     let colspecs = replicate ℓ (AlignDefault, ColWidthDefault)
-    let l' = cell1 ℓ $ underlines l; b' = cell1 ℓ <$> b; n' = cell1 ℓ <$> n
+    let l' = cell1 ℓ $ underlines $ noHash l
+        b' = cell1 ℓ <$> b; n' = cell1 ℓ <$> n
     let ss = cells s; gs = cells g; t' = cell1 ℓ t
     img <- case ?lang of
       Just Lántas ->
@@ -85,3 +86,8 @@ underlines = concatMap underlineStr . takeWhile (/= Str "|") where
   underlineStr = \case
     Str txt -> Spans.underlines txt
     i       -> [i]
+
+noHash :: [Inline] -> [Inline]
+noHash = walk \case
+  Str str -> Str $ Text.filter (/= '#') str
+  i       -> i