git.iko.soy/typeable/pandoc
on master help sign in
DokuWiki writer: Fix raw inlines and blocks.
ce0960bJohn MacFarlane
src/Text/Pandoc/Writers/DokuWiki.hs+6−6
@@ -119,9 +119,9 @@ blockToDokuWiki opts (Para inlines) = do
119 else contents ++ if null indent then "\n" else ""
119 else contents ++ if null indent then "\n" else ""
120
120
121blockToDokuWiki _ (RawBlock f str)
121blockToDokuWiki _ (RawBlock f str)
122− | f == Format "mediawiki" = return str
122+ | f == Format "dokuwiki" = return str
123− | f == Format "html" = return $ "<html>\n" ++ str ++ "</html>"
123+ | f == Format "html" = return $ "<html>\n" ++ str ++ "</html>"
124− | otherwise = return str
124+ | otherwise = return ""
125
125
126blockToDokuWiki _ HorizontalRule = return "\n----\n"
126blockToDokuWiki _ HorizontalRule = return "\n----\n"
127
127
@@ -403,9 +403,9 @@ inlineToDokuWiki _ (Math _ str) = return $ "<math>" ++ str ++ "</math>"
403 -- note: str should NOT be escaped
403 -- note: str should NOT be escaped
404
404
405inlineToDokuWiki _ (RawInline f str)
405inlineToDokuWiki _ (RawInline f str)
406− | f == Format "mediawiki" = return str
406+ | f == Format "dokuwiki" = return str
407− | f == Format "html" = return str
407+ | f == Format "html" = return str
408− | otherwise = return str
408+ | otherwise = return ""
409
409
410inlineToDokuWiki _ (LineBreak) = return "\\\\ "
410inlineToDokuWiki _ (LineBreak) = return "\\\\ "
411
411