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

ZimWiki writer: removed commented out code that confused Haddock.

Browse source 
See https://travis-ci.org/jgm/pandoc/jobs/141542247
This commit is contained in:
John MacFarlane 2016-07-01 10:39:32 -07:00
parent 7fdcd9a6e2
commit b3382cf377
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Writers/ZimWiki.hs
View file

@ -114,7 +114,7 @@ blockToZimWiki opts (Para inlines) = do
blockToZimWiki opts (RawBlock f str)
| f == Format "zimwiki" = return str
| f == Format "html" = do cont <- indentFromHTML opts str; return cont
| otherwise = return "" -- $ "** unknown raw block "++ show f ++ "=" ++ str ++ " **"
| otherwise = return ""
blockToZimWiki _ HorizontalRule = return "\n----\n"
@ -204,17 +204,17 @@ indentFromHTML _ str = do
let val = drop 10 $ reverse $ drop 1 $ reverse str
--let val = take ((length valls) - 2) valls
modify $ \s -> s { stItemNum = read val }
return "" -- $ indent ++ val ++ "." -- zim does its own numbering
return ""
else if isInfixOf "<ol>" str then do
let olcount=countSubStrs "<ol>" str
modify $ \s -> s { stIndent = stIndent s ++ replicate olcount '\t', stItemNum = 1 }
return "" -- $ "OL-ON[" ++ newfix ++"]"
return ""
else if isInfixOf "</ol>" str then do
let olcount=countSubStrs "/<ol>" str
modify $ \s -> s{ stIndent = drop olcount (stIndent s) }
return "" -- $ "OL-OFF[" ++ newfix ++"]"
return ""
else
return $ "" -- ** unknown inner HTML "++ str ++"**"
return ""
countSubStrs :: String -> String -> Int
countSubStrs sub str = length $ breakOnAll (pack sub) (pack str)