@@ -114,11 +114,11 @@ blockToZimWiki opts (Para inlines) = do
114114blockToZimWiki opts (RawBlock f str)
115115 | f == Format "zimwiki" = return str
116116 | f == Format "html" = do cont <- indentFromHTML opts str; return cont
117− | otherwise = return "" -- $ "** unknown raw block "++ show f ++ "=" ++ str ++ " **"
117+ | otherwise = return ""
118118
119119blockToZimWiki _ HorizontalRule = return "\n----\n"
120120
121−blockToZimWiki opts (Header level _ inlines) = do
121+blockToZimWiki opts (Header level _ inlines) = do
122122 contents <- inlineListToZimWiki opts $ removeFormatting inlines -- emphasis, links etc. not allowed in headers
123123 let eqs = replicate ( 7 - level ) '='
124124 return $ eqs ++ " " ++ contents ++ " " ++ eqs ++ "\n"
@@ -204,23 +204,23 @@ indentFromHTML _ str = do
204204 let val = drop 10 $ reverse $ drop 1 $ reverse str
205205 --let val = take ((length valls) - 2) valls
206206 modify $ \s -> s { stItemNum = read val }
207− return "" -- $ indent ++ val ++ "." -- zim does its own numbering
207+ return ""
208208 else if isInfixOf "<ol>" str then do
209209 let olcount=countSubStrs "<ol>" str
210210 modify $ \s -> s { stIndent = stIndent s ++ replicate olcount '\t', stItemNum = 1 }
211− return "" -- $ "OL-ON[" ++ newfix ++"]"
211+ return ""
212212 else if isInfixOf "</ol>" str then do
213213 let olcount=countSubStrs "/<ol>" str
214214 modify $ \s -> s{ stIndent = drop olcount (stIndent s) }
215− return "" -- $ "OL-OFF[" ++ newfix ++"]"
216− else
217− return $ "" -- ** unknown inner HTML "++ str ++"**"
215+ return ""
216+ else
217+ return ""
218218
219219countSubStrs :: String -> String -> Int
220220countSubStrs sub str = length $ breakOnAll (pack sub) (pack str)
221221
222222cleanupCode :: String -> String
223−cleanupCode = substitute "<nowiki>" "" . substitute "</nowiki>" ""
223+cleanupCode = substitute "<nowiki>" "" . substitute "</nowiki>" ""
224224
225225vcat :: [String] -> String
226226vcat = intercalate "\n"