git.iko.soy/typeable/pandoc
on master help sign in
Man writer: Don't print link source for internal links (#...).
4928045fiddlosopher
debian/changelog+2
@@ -68,6 +68,8 @@ pandoc (0.45) unstable; urgency=low
68 + If label for a link reference contains a colon, surround it by `
68 + If label for a link reference contains a colon, surround it by `
69 signs so it won't be interpreted as the end of the link label.
69 signs so it won't be interpreted as the end of the link label.
70
70
71+ * Man writer: Don't print link source for internal links (#...).
72+
71 * Main.hs (tabFilter): Treat '\r' at end of line as newline (in
73 * Main.hs (tabFilter): Treat '\r' at end of line as newline (in
72 addition to "\r\n" and '\n').
74 addition to "\r\n" and '\n').
73
75
src/Text/Pandoc/Writers/Man.hs+1
@@ -272,6 +272,7 @@ inlineToMan opts (TeX str) = return $ text $ escapeCode str
272inlineToMan opts (HtmlInline str) = return $ text $ escapeCode str
272inlineToMan opts (HtmlInline str) = return $ text $ escapeCode str
273inlineToMan opts (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n"
273inlineToMan opts (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n"
274inlineToMan opts Space = return $ char ' '
274inlineToMan opts Space = return $ char ' '
275+inlineToMan opts (Link txt (('#':_), _)) = inlineListToMan opts txt
275inlineToMan opts (Link txt (src, _)) = do
276inlineToMan opts (Link txt (src, _)) = do
276 linktext <- inlineListToMan opts txt
277 linktext <- inlineListToMan opts txt
277 let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src
278 let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src