@@ -145,6 +145,12 @@ blockToRST Null = return empty
145blockToRST (Plain inlines) = do
145blockToRST (Plain inlines) = do
146 opts <- get >>= (return . stOptions)
146 opts <- get >>= (return . stOptions)
147 wrappedRST opts inlines
147 wrappedRST opts inlines
148+blockToRST (Para [Image txt (src,tit)]) = do
149+ capt <- inlineListToRST txt
150+ let fig = text "figure:: " <> text src
151+ let align = text ":align: center"
152+ let alt = text ":alt: " <> if null tit then capt else text tit
153+ return $ (text ".. " <> (fig $$ align $$ alt $$ text "" $$ capt)) $$ text ""
148blockToRST (Para inlines) = do
154blockToRST (Para inlines) = do
149 opts <- get >>= (return . stOptions)
155 opts <- get >>= (return . stOptions)
150 contents <- wrappedRST opts inlines
156 contents <- wrappedRST opts inlines