@@ -153,7 +153,9 @@ blockToDokuWiki _ (CodeBlock (_,classes,_) str) = do
153153
154154blockToDokuWiki opts (BlockQuote blocks) = do
155155 contents <- blockListToDokuWiki opts blocks
156− return $ "> " ++ contents
156+ if isSimpleBlockQuote blocks
157+ then return $ "> " ++ contents
158+ else return $ "<HTML><blockquote>\n" ++ contents ++ "</blockquote></HTML>"
157159
158160blockToDokuWiki opts (Table capt aligns _ headers rows') = do
159161 let alignStrings = map alignmentToString aligns
@@ -308,6 +310,10 @@ isPlainOrPara (Plain _) = True
308310isPlainOrPara (Para _) = True
309311isPlainOrPara _ = False
310312
313+isSimpleBlockQuote :: [Block] -> Bool
314+isSimpleBlockQuote [BlockQuote bs] = isSimpleBlockQuote bs
315+isSimpleBlockQuote [b] = isPlainOrPara b
316+isSimpleBlockQuote _ = False
311317
312318-- | Concatenates strings with line breaks between them.
313319vcat :: [String] -> String