git.iko.soy/typeable/pandoc
on master help sign in
Use encodeEntities rather than stringToSGML for contents of
2148471fiddlosopher
src/Text/Pandoc/Writers/Docbook.hs+1−1
compare with master
unifiedsplit
@@ -198,7 +198,7 @@ inlinesToDocbook opts lst = hcat (map (inlineToDocbook opts) lst)
198
198
199-- | Convert an inline element to Docbook.
199-- | Convert an inline element to Docbook.
200inlineToDocbook :: WriterOptions -> Inline -> Doc
200inlineToDocbook :: WriterOptions -> Inline -> Doc
201−inlineToDocbook opts (Str str) = text $ stringToSGML str
201+inlineToDocbook opts (Str str) = text $ encodeEntities str
202inlineToDocbook opts (Emph lst) =
202inlineToDocbook opts (Emph lst) =
203 inTagsSimple "emphasis" (inlinesToDocbook opts lst)
203 inTagsSimple "emphasis" (inlinesToDocbook opts lst)
204inlineToDocbook opts (Strong lst) =
204inlineToDocbook opts (Strong lst) =
src/Text/Pandoc/Writers/HTML.hs+1−1
@@ -243,7 +243,7 @@ inlineToHtml opts EmDash = text "—"
243inlineToHtml opts EnDash = text "–"
243inlineToHtml opts EnDash = text "–"
244inlineToHtml opts Ellipses = text "…"
244inlineToHtml opts Ellipses = text "…"
245inlineToHtml opts Apostrophe = text "’"
245inlineToHtml opts Apostrophe = text "’"
246−inlineToHtml opts (Str str) = text $ stringToSGML str
246+inlineToHtml opts (Str str) = text $ encodeEntities str
247inlineToHtml opts (TeX str) = text $ encodeEntities str
247inlineToHtml opts (TeX str) = text $ encodeEntities str
248inlineToHtml opts (HtmlInline str) = text str
248inlineToHtml opts (HtmlInline str) = text str
249inlineToHtml opts (LineBreak) = selfClosingTag "br" []
249inlineToHtml opts (LineBreak) = selfClosingTag "br" []