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

add <mark> syntax *hello*

Browse source
This commit is contained in:
Rhiannon Morris 2023-10-30 09:43:05 +01:00
parent abd27eebe9
commit 1136cff702
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
langfilter/Spans.hs
View file

@ -13,20 +13,22 @@ import qualified Data.Text as Text
spans :: Vars => Inline -> IO Inline spans :: Vars => Inline -> IO Inline
spans = \case 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 txt' <- enclosed "⫽" "⫽" txt -> pure $ ipaA txt' | Just txt' <- enclosed "⫽" "⫽" txt -> pure $ ipaA txt'
| Just txt' <- enclosed "//" "//" txt -> pure $ ipaA txt' | Just txt' <- enclosed "//" "//" txt -> pure $ ipaA txt'
| Just _ <- enclosed "/" "/" txt -> pure $ ipaB txt | Just _ <- enclosed "/" "/" txt -> pure $ ipaB 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'
| Just txt' <- enclosed "*" "*" txt -> pure $ mark txt'
i -> pure i i -> pure i
ipaA, ipaB, ipaN, abbr :: Text -> Inline ipaA, ipaB, ipaN, abbr, mark :: Text -> Inline
ipaA = Span (cls ["ipa", "ipa-arch"]) . text' . surround "⫽" 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
mark txt = RawInline "html" $ "<mark>" <> txt <> "</mark>"
surround :: Text -> Text -> Text surround :: Text -> Text -> Text
surround s txt = s <> txt <> s surround s txt = s <> txt <> s