798c57d · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

DokuWiki writer: More raw HTML fixes. (#1398)

798c57dJohn MacFarlane12 years ago

src/Text/Pandoc/Writers/DokuWiki.hs+4−2

@@ -120,7 +120,9 @@ blockToDokuWiki opts (Para inlines) = do

120

121blockToDokuWiki _ (RawBlock f str)

122 | f == Format "dokuwiki" = return str

123+ -- See https://www.dokuwiki.org/wiki:syntax

124+ -- use uppercase HTML tag for block-level content:

123− | f == Format "html" = return $ "<html>\n" ++ str ++ "</html>"

125+ | f == Format "html" = return $ "<HTML>\n" ++ str ++ "\n</HTML>"

124 | otherwise = return ""

126 | otherwise = return ""

125

127

126blockToDokuWiki _ HorizontalRule = return "\n----\n"

128blockToDokuWiki _ HorizontalRule = return "\n----\n"

@@ -404,7 +406,7 @@ inlineToDokuWiki _ (Math _ str) = return $ "<math>" ++ str ++ "</math>"

404

406

405inlineToDokuWiki _ (RawInline f str)

407inlineToDokuWiki _ (RawInline f str)

406 | f == Format "dokuwiki" = return str

408 | f == Format "dokuwiki" = return str

407− | f == Format "html" = return str

409+ | f == Format "html" = return $ "<html>" ++ str ++ "</html>"

408 | otherwise = return ""

410 | otherwise = return ""

409

411

410inlineToDokuWiki _ (LineBreak) = return "\\\\ "

412inlineToDokuWiki _ (LineBreak) = return "\\\\ "