@@ -140,9 +140,12 @@ pictToRST (label, (attr, src, _, mbtarget)) = do
140140 label' <- inlineListToRST label
141141 dims <- imageDimsToRST attr
142142 let (_, cls, _) = attr
143− classes = if null cls
144− then empty
145− else ":class: " <> text (unwords cls)
143+ classes = case cls of
144+ [] -> empty
145+ ["align-right"] -> ":align: right"
146+ ["align-left"] -> ":align: left"
147+ ["align-center"] -> ":align: center"
148+ _ -> ":class: " <> text (unwords cls)
146149 return $ nowrap
147150 $ ".. |" <> label' <> "| image:: " <> text src $$ hang 3 empty (classes $$ dims)
148151 $$ case mbtarget of
@@ -218,9 +221,12 @@ blockToRST (Para [Image attr txt (src,'f':'i':'g':':':tit)]) = do
218221 let fig = "figure:: " <> text src
219222 alt = ":alt: " <> if null tit then capt else text tit
220223 (_,cls,_) = attr
221− classes = if null cls
222− then empty
223− else ":figclass: " <> text (unwords cls)
224+ classes = case cls of
225+ [] -> empty
226+ ["align-right"] -> ":align: right"
227+ ["align-left"] -> ":align: left"
228+ ["align-center"] -> ":align: center"
229+ _ -> ":figclass: " <> text (unwords cls)
224230 return $ hang 3 ".. " (fig $$ alt $$ classes $$ dims $+$ capt) $$ blankline
225231blockToRST (Para inlines)
226232 | LineBreak `elem` inlines =