@@ -462,12 +462,15 @@ link = try $ do
462 else generateReference url title
462 else generateReference url title
463 return $ Link (normalizeSpaces label) ref
463 return $ Link (normalizeSpaces label) ref
465−image = try (do
465+image = try $ do
466 (tag, attributes) <- htmlTag "img"
466 (tag, attributes) <- htmlTag "img"
467 url <- case (extractAttribute "src" attributes) of
467 url <- case (extractAttribute "src" attributes) of
468 Just url -> do {return url}
468 Just url -> do {return url}
469 Nothing -> fail "no src"
469 Nothing -> fail "no src"
470 let title = fromMaybe "" (extractAttribute "title" attributes)
470 let title = fromMaybe "" (extractAttribute "title" attributes)
471 let alt = fromMaybe "" (extractAttribute "alt" attributes)
471 let alt = fromMaybe "" (extractAttribute "alt" attributes)
472− ref <- generateReference url title
472+ state <- getState
473+ ref <- if stateInlineLinks state
474+ then return (Src url title)
475+ else generateReference url title
473− return (Image [Str alt] ref))
476+ return $ Image [Str alt] ref