diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-03-03 18:25:49 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-03-03 18:25:49 +0000 |
commit | 21ba6b08f27838bffff457cf6adafd988615d818 (patch) | |
tree | a4c0605634b26354ba0e60d313f7c5a445e5799b /src/Text/Pandoc | |
parent | 31c030e3a55c3bc9d4a606e9658dd30a9aa1c938 (diff) | |
download | pandoc-21ba6b08f27838bffff457cf6adafd988615d818.tar.gz |
Made image parsing in HTML reader sensitive to the
--inline-links option.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@556 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 8ebf02c33..96244e58f 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -462,12 +462,15 @@ link = try $ do else generateReference url title return $ Link (normalizeSpaces label) ref -image = try (do +image = try $ do (tag, attributes) <- htmlTag "img" url <- case (extractAttribute "src" attributes) of Just url -> do {return url} Nothing -> fail "no src" let title = fromMaybe "" (extractAttribute "title" attributes) let alt = fromMaybe "" (extractAttribute "alt" attributes) - ref <- generateReference url title - return (Image [Str alt] ref)) + state <- getState + ref <- if stateInlineLinks state + then return (Src url title) + else generateReference url title + return $ Image [Str alt] ref |