--------------------------------------------------------------------------------
-- Useful string functions

-- | Insert text and escape it
text :: Text -> Markup t ()
text = lift . Text DoEscape . StrictT
text :: Text -> Markup t ()
text = lift . Text DoEscape . StrictT
text = lift . Text DoEscape . StrictT