diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-10-11 22:54:01 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-10-11 22:54:01 +0000 |
| commit | 492804591573378b6e03a7ac2fd28177c2f74b64 (patch) | |
| tree | 27c29e7837ea8e584cbbf4640507d9c229d40d8f | |
| parent | ad9603231f5fec1ccfb8111c3080d61f375189b9 (diff) | |
| download | pandoc-492804591573378b6e03a7ac2fd28177c2f74b64.tar.gz | |
Man writer: Don't print link source for internal links (#...).
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1047 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | debian/changelog | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/debian/changelog b/debian/changelog index 1a73a93c5..a37793d60 100644 --- a/debian/changelog +++ b/debian/changelog @@ -68,6 +68,8 @@ pandoc (0.45) unstable; urgency=low + If label for a link reference contains a colon, surround it by ` signs so it won't be interpreted as the end of the link label. + * Man writer: Don't print link source for internal links (#...). + * Main.hs (tabFilter): Treat '\r' at end of line as newline (in addition to "\r\n" and '\n'). diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index 8e14c2bf0..27c6d9a89 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -272,6 +272,7 @@ 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 |