diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-11-19 09:05:19 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-11-19 09:05:19 -0800 |
| commit | 4f2eac88aa1cd26d096a88450ad3ae929980e7a6 (patch) | |
| tree | 9c47d929b1ca07431d932717df12f50429907fbf /src/Text/Pandoc | |
| parent | df5ae1c186ed625e25cf6f080ddf24549f7af22e (diff) | |
| download | pandoc-4f2eac88aa1cd26d096a88450ad3ae929980e7a6.tar.gz | |
MediaWiki writer: fix code for generating spans for header IDs.
We need to generate a span when the header's ID doesn't match
the one MediaWiki would generate automatically. But MediaWiki's
generation scheme is different from ours (it uses uppercase letters,
and `_` instead of `-`, for example).
This means that in going from markdown -> mediawiki, we'll now get
spans before almost every heading, unless explicit identifiers are
used that correspond to the ones MediaWiki auto-generates.
This is uglier output but it's necessary for internal links to
work properly.
See #7697.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index e5e2dfde2..3954c62a6 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -130,7 +130,7 @@ blockToMediaWiki HorizontalRule = return "\n-----\n" blockToMediaWiki (Header level (ident,_,_) inlines) = do opts <- gets stOptions - let autoId = uniqueIdent (writerExtensions opts) inlines mempty + let autoId = T.replace " " "_" $ stringify inlines contents <- inlineListToMediaWiki inlines let eqs = T.replicate level "=" return $ |