@@ -149,9 +149,8 @@ blockToRST (Plain inlines) = inlineListToRST inlines
149blockToRST (Para [Image txt (src,tit)]) = do
149blockToRST (Para [Image txt (src,tit)]) = do
150 capt <- inlineListToRST txt
150 capt <- inlineListToRST txt
151 let fig = "figure:: " <> text src
151 let fig = "figure:: " <> text src
152− let align = ":align: center"
153 let alt = ":alt: " <> if null tit then capt else text tit
152 let alt = ":alt: " <> if null tit then capt else text tit
154− return $ hang 3 ".. " $ fig $$ align $$ alt $+$ capt $$ blankline
153+ return $ hang 3 ".. " $ fig $$ alt $+$ capt $$ blankline
155blockToRST (Para inlines) = do
154blockToRST (Para inlines) = do
156 contents <- inlineListToRST inlines
155 contents <- inlineListToRST inlines
157 return $ contents <> blankline
156 return $ contents <> blankline