git.iko.soy/typeable/pandoc
on master help sign in
RST writer: fix anchors for headers.
9758720John MacFarlane
src/Text/Pandoc/Writers/RST.hs+1−1
compare with master
unifiedsplit
@@ -250,7 +250,7 @@ blockToRST (Header level (name,classes,_) inlines) = do
250 let headerChar = if level > 5 then ' ' else "=-~^'" !! (level - 1)
250 let headerChar = if level > 5 then ' ' else "=-~^'" !! (level - 1)
251 let border = text $ replicate (offset contents) headerChar
251 let border = text $ replicate (offset contents) headerChar
252 let anchor | null name || name == autoId = empty
252 let anchor | null name || name == autoId = empty
253− | otherwise = ".. " <> text name <> ":" $$ blankline
253+ | otherwise = ".. _" <> text name <> ":" $$ blankline
254 return $ nowrap $ anchor $$ contents $$ border $$ blankline
254 return $ nowrap $ anchor $$ contents $$ border $$ blankline
255 else do
255 else do
256 let rub = "rubric:: " <> contents
256 let rub = "rubric:: " <> contents
test/command/3937.md+1−1
@@ -3,7 +3,7 @@
3# My Great Section {#mysection}
3# My Great Section {#mysection}
4# Other section
4# Other section
5^D
5^D
6−.. mysection:
6+.. _mysection:
7
7
8My Great Section
8My Great Section
9================
9================