Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

HTML writer: add a performance shortcut to strToHtml.

Browse source
This commit is contained in:
John MacFarlane 2022-03-30 09:34:16 -07:00
parent 5fbea20e03
commit d71d01f41a
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Writers/HTML.hs
View file

@ -113,7 +113,9 @@ defaultWriterState = WriterState {stNotes= [], stEmittedNotes = 0, stMath = Fals
-- Helpers to render HTML with the appropriate function.
strToHtml :: Text -> Html
strToHtml = strToHtml' . T.unpack
strToHtml t
| T.any isSpecial t = strToHtml' $ T.unpack t
| otherwise = toHtml t
where
strToHtml' ('\'':xs) = preEscapedString "\'" `mappend` strToHtml' xs
strToHtml' ('"' :xs) = preEscapedString "\"" `mappend` strToHtml' xs
@ -122,11 +124,11 @@ strToHtml = strToHtml' . T.unpack
case xs of
('\xFE0E':ys) -> strToHtml' ys
_ -> strToHtml' xs
strToHtml' xs@(_:_) = case break (\c -> c == '\'' || c == '"' ||
needsVariationSelector c) xs of
strToHtml' xs@(_:_) = case break isSpecial xs of
(_ ,[]) -> toHtml xs
(ys,zs) -> toHtml ys `mappend` strToHtml' zs
strToHtml' [] = ""
isSpecial c = c == '\'' || c == '"' || needsVariationSelector c
-- See #5469: this prevents iOS from substituting emojis.
needsVariationSelector :: Char -> Bool