@@ -109,6 +109,10 @@ blockToConTeXt (Plain lst) = do
109109 let options = stOptions st
110110 contents <- wrapTeXIfNeeded options False inlineListToConTeXt lst
111111 return $ Reg contents
112+blockToConTeXt (Para [Image txt (src,_)]) = do
113+ capt <- inlineListToConTeXt txt
114+ return $ Pad $ text "\\placefigure[here,nonumber]{" <> capt <>
115+ text "}{\\externalfigure[" <> text src <> text "]}"
112116blockToConTeXt (Para lst) = do
113117 st <- get
114118 let options = stOptions st
@@ -265,10 +269,8 @@ inlineToConTeXt (Link txt (src, _)) = do
265269 label <- inlineListToConTeXt txt
266270 return $ text "\\useURL[" <> text ref <> text "][" <> text src <>
267271 text "][][" <> label <> text "]\\from[" <> text ref <> char ']'
268−inlineToConTeXt (Image alternate (src, tit)) = do
269− alt <- inlineListToConTeXt alternate
270− return $ text "\\placefigure\n[]\n[fig:" <> alt <> text "]\n{" <>
271− text tit <> text "}\n{\\externalfigure[" <> text src <> text "]}"
272+inlineToConTeXt (Image _ (src, _)) = do
273+ return $ text "{\\externalfigure[" <> text src <> text "]}"
272274inlineToConTeXt (Note contents) = do
273275 contents' <- blockListToConTeXt contents
274276 let rawnote = stripTrailingNewlines $ render contents'