@@ -349,8 +349,12 @@ blockToOpenDocument o bs
349349 then return empty
350350 else inParagraphTags =<< inlinesToOpenDocument o b
351351 | LineBlock b <- bs = blockToOpenDocument o $ linesToPara b
352− | Div attr xs <- bs = withLangFromAttr attr
353− (blocksToOpenDocument o xs)
352+ | Div attr xs <- bs = do
353+ let (_,_,kvs) = attr
354+ withLangFromAttr attr $
355+ case lookup "custom-style" kvs of
356+ Just sty -> withParagraphStyle o sty xs
357+ _ -> blocksToOpenDocument o xs
354358 | Header i (ident,_,_) b
355359 <- bs = setFirstPara >> (inHeaderTags i ident
356360 =<< inlinesToOpenDocument o b)