@@ -658,11 +658,8 @@ blockToHtml opts (LineBlock lns) =
658658blockToHtml opts (Div attr@(ident, classes, kvs') bs) = do
659659 html5 <- gets stHtml5
660660 let kvs = [(k,v) | (k,v) <- kvs', k /= "width"] ++
661− if "column" `elem` classes
662− then let w = fromMaybe "48%" (lookup "width" kvs')
663− in [("style", "width:" ++ w ++ ";min-width:" ++ w ++
664− ";vertical-align:top;")]
665− else []
661+ [("style", "width:" ++ w ++ ";")
662+ | ("width",w) <- kvs', "column" `elem` classes]
666663 let speakerNotes = "notes" `elem` classes
667664 -- we don't want incremental output inside speaker notes, see #1394
668665 let opts' = if speakerNotes then opts{ writerIncremental = False } else opts