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

HTML writer: Further performance improvements.

Browse source
This commit is contained in:
John MacFarlane 2022-03-30 09:48:56 -07:00
parent 4a54ca5b0b
commit bb5f0f7b76
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -991,7 +991,7 @@ blockToHtmlInner opts (Header level (ident,classes,kvs) lst) = do
let contents' = if writerNumberSections opts && not (T.null secnum)
&& "unnumbered" `notElem` classes
then (H.span ! A.class_ "header-section-number"
$ toHtml secnum) >> strToHtml " " >> contents
$ toHtml secnum) >> toHtml ' ' >> contents
else contents
html5 <- gets stHtml5
let kvs' = if html5
@ -1373,14 +1373,14 @@ inlineToHtml opts inline = do
html5 <- gets stHtml5
case inline of
(Str str) -> return $ strToHtml str
Space -> return $ strToHtml " "
Space -> return $ toHtml ' '
SoftBreak -> return $ case writerWrapText opts of
WrapNone -> " "
WrapAuto -> " "
WrapPreserve -> nl
WrapNone -> toHtml ' '
WrapAuto -> toHtml ' '
WrapPreserve -> toHtml '\n'
LineBreak -> return $ do
if html5 then H5.br else H.br
strToHtml "\n"
toHtml '\n'
(Span ("",[cls],[]) ils)
| cls == "csl-block" || cls == "csl-left-margin" ||
cls == "csl-right-inline" || cls == "csl-indent"
@ -1449,10 +1449,10 @@ inlineToHtml opts inline = do
(Subscript lst) -> H.sub <$> inlineListToHtml opts lst
(Quoted quoteType lst) ->
let (leftQuote, rightQuote) = case quoteType of
SingleQuote -> (strToHtml "‘",
strToHtml "’")
DoubleQuote -> (strToHtml "“",
strToHtml "”")
SingleQuote -> (toHtml '‘',
toHtml '’')
DoubleQuote -> (toHtml '“',
toHtml '”')
in if writerHtmlQTags opts
then do