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

DokuWiki writer: Fix raw inlines and blocks.

Browse source 
* mediawiki > dokuwiki
* ignore raw content other than html or dokuwiki.

(#1398)
This commit is contained in:
John MacFarlane 2014-07-13 15:24:52 -07:00
parent 92bcd8d298
commit ce0960ba5a
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Text/Pandoc/Writers/DokuWiki.hs
View file

@ -119,9 +119,9 @@ blockToDokuWiki opts (Para inlines) = do
else contents ++ if null indent then "\n" else ""
blockToDokuWiki _ (RawBlock f str)
| f == Format "mediawiki" = return str
| f == Format "html" = return $ "<html>\n" ++ str ++ "</html>"
| otherwise = return str
| f == Format "dokuwiki" = return str
| f == Format "html" = return $ "<html>\n" ++ str ++ "</html>"
| otherwise = return ""
blockToDokuWiki _ HorizontalRule = return "\n----\n"
@ -403,9 +403,9 @@ inlineToDokuWiki _ (Math _ str) = return $ "<math>" ++ str ++ "</math>"
-- note: str should NOT be escaped
inlineToDokuWiki _ (RawInline f str)
| f == Format "mediawiki" = return str
| f == Format "html" = return str
| otherwise = return str
| f == Format "dokuwiki" = return str
| f == Format "html" = return str
| otherwise = return ""
inlineToDokuWiki _ (LineBreak) = return "\\\\ "