rhi/lang
1
0
Fork 0
Code Issues 2 Pull requests Releases Wiki Activity

remove # from lántas passages

Browse source
This commit is contained in:
Rhiannon Morris 2024-11-26 06:08:10 +01:00
parent 54a8aa1119
commit 26a4415049
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
langfilter/Glosses.hs
View file

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