@@ -153,7 +153,9 @@ blockToDokuWiki _ (CodeBlock (_,classes,_) str) = do
154blockToDokuWiki opts (BlockQuote blocks) = do
154blockToDokuWiki opts (BlockQuote blocks) = do
155 contents <- blockListToDokuWiki opts blocks
155 contents <- blockListToDokuWiki opts blocks
156+ if isSimpleBlockQuote blocks
156− return $ "> " ++ contents
157+ then return $ "> " ++ contents
158+ else return $ "<HTML><blockquote>\n" ++ contents ++ "</blockquote></HTML>"
158blockToDokuWiki opts (Table capt aligns _ headers rows') = do
160blockToDokuWiki opts (Table capt aligns _ headers rows') = do
159 let alignStrings = map alignmentToString aligns
161 let alignStrings = map alignmentToString aligns
@@ -308,6 +310,10 @@ isPlainOrPara (Plain _) = True
308isPlainOrPara (Para _) = True
310isPlainOrPara (Para _) = True
309isPlainOrPara _ = False
311isPlainOrPara _ = False
313+isSimpleBlockQuote :: [Block] -> Bool
314+isSimpleBlockQuote [BlockQuote bs] = isSimpleBlockQuote bs
315+isSimpleBlockQuote [b] = isPlainOrPara b
316+isSimpleBlockQuote _ = False
312-- | Concatenates strings with line breaks between them.
318-- | Concatenates strings with line breaks between them.
313vcat :: [String] -> String
319vcat :: [String] -> String