diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-10-12 03:03:29 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-10-12 03:03:29 +0000 |
commit | 403f5f47288f5c65d5354fded1a2164185b1178c (patch) | |
tree | b20170fbdc2842766ae59992518a53542b71b9f5 /src/Text/Pandoc | |
parent | 492804591573378b6e03a7ac2fd28177c2f74b64 (diff) | |
download | pandoc-403f5f47288f5c65d5354fded1a2164185b1178c.tar.gz |
Undid last change: instead of blocking the internal links in the
writers, it makes more sense to block them in the HTML reader.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1048 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index 27c6d9a89..8e14c2bf0 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -272,7 +272,6 @@ inlineToMan opts (TeX str) = return $ text $ escapeCode str inlineToMan opts (HtmlInline str) = return $ text $ escapeCode str inlineToMan opts (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n" inlineToMan opts Space = return $ char ' ' -inlineToMan opts (Link txt (('#':_), _)) = inlineListToMan opts txt inlineToMan opts (Link txt (src, _)) = do linktext <- inlineListToMan opts txt let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src |