4928045 · typeable/pandoc

git.iko.soy/typeable/pandoc

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

commit492804591573378b6e03a7ac2fd28177c2f74b64 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateThu 11 Oct 2007, 22:54 (19 years ago) parentad96032

2 files changed+3

compare with master

unifiedsplit

debian/changelog+2 src/Text/Pandoc/Writers/Man.hs+1

debian/changelog+2

@@ -68,6 +68,8 @@ pandoc (0.45) unstable; urgency=low

6868 + If label for a link reference contains a colon, surround it by `

6969 signs so it won't be interpreted as the end of the link label.

7070

71+ * Man writer: Don't print link source for internal links (#...).

72+

7173 * Main.hs (tabFilter): Treat '\r' at end of line as newline (in

7274 addition to "\r\n" and '\n').

7375

src/Text/Pandoc/Writers/Man.hs+1

@@ -272,6 +272,7 @@ inlineToMan opts (TeX str) = return $ text $ escapeCode str

272272inlineToMan opts (HtmlInline str) = return $ text $ escapeCode str

273273inlineToMan opts (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n"

274274inlineToMan opts Space = return $ char ' '

275+inlineToMan opts (Link txt (('#':_), _)) = inlineListToMan opts txt

275276inlineToMan opts (Link txt (src, _)) = do

276277 linktext <- inlineListToMan opts txt

277278 let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src