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