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

add archiphoneme span

Browse source
This commit is contained in:
Rhiannon Morris 2021-06-04 05:35:17 +02:00
parent 2c522aa4b0
commit 90127bba96
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
langfilter/Spans.hs
View file

@ -15,12 +15,14 @@ spans = \case
Code attrs txt Code attrs txt
| Just ('\\', txt') <- Text.uncons txt -> pure $ Code attrs txt' | Just ('\\', txt') <- Text.uncons txt -> pure $ Code attrs txt'
| Just _ <- enclosed '/' '/' txt -> pure $ ipaB txt | Just _ <- enclosed '/' '/' txt -> pure $ ipaB txt
| Just txt' <- enclosed '⫽' '⫽' txt -> pure $ ipaA txt'
| Just _ <- enclosed '[' ']' txt -> pure $ ipaN txt | Just _ <- enclosed '[' ']' txt -> pure $ ipaN txt
| Just txt' <- enclosed '{' '}' txt -> lang txt' | Just txt' <- enclosed '{' '}' txt -> lang txt'
| Just txt' <- enclosed '!' '!' txt -> pure $ abbr txt' | Just txt' <- enclosed '!' '!' txt -> pure $ abbr txt'
i -> pure i i -> pure i
ipaB, ipaN, abbr :: Text -> Inline ipaA, ipaB, ipaN, abbr :: Text -> Inline
ipaA = Span (cls ["ipa", "ipa-arch"]) . text' . surround "⫽"
ipaB = Span (cls ["ipa", "ipa-broad"]) . text' ipaB = Span (cls ["ipa", "ipa-broad"]) . text'
ipaN = Span (cls ["ipa", "ipa-narrow"]) . text' ipaN = Span (cls ["ipa", "ipa-narrow"]) . text'
abbr = Span (cls ["abbr"]) . text' . endash abbr = Span (cls ["abbr"]) . text' . endash