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

remove laantas-script flags in glosses

Browse source
This commit is contained in:
Rhiannon Morris 2024-06-03 04:07:09 +02:00
parent 97c3457744
commit 3237c127e0
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
langfilter/Glosses.hs
View file

@ -81,6 +81,7 @@ splitInlines is = filter (not . null) $ go is where
fromList is1 : splitInlines (dropWhile (== Space) is')
underlines :: [Inline] -> [Inline]
underlines = concatMap \case
Str txt -> Spans.underlines txt
i -> [i]
underlines = concatMap underlineStr . takeWhile (/= Str "|") where
underlineStr = \case
Str txt -> Spans.underlines txt
i -> [i]