diff options
author | Aner Lucero <4rgento@gmail.com> | 2020-11-14 20:09:44 -0300 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2020-11-14 21:33:32 -0800 |
commit | f63b76e1698b0d7eba6b43ef45faaeee2b01b9ca (patch) | |
tree | 58e6458690ab189e00c15b98ccb88e440c97e396 /src/Text/Pandoc/Writers/Markdown.hs | |
parent | b8d17f7ae8ed37784adcfaa4f89d0d28f52fffff (diff) | |
download | pandoc-f63b76e1698b0d7eba6b43ef45faaeee2b01b9ca.tar.gz |
Markdown writer: default to using ATX headings.
Previously we used Setext (underlined) headings by default.
The default is now ATX (`##` style).
* Add the `--markdown-headings=atx|setext` option.
* Deprecate `--atx-headers`.
* Add constructor 'ATXHeadingInLHS` constructor to `LogMessage` [API change].
* Support `markdown-headings` in defaults files.
* Document new options in MANUAL.
Closes #6662.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 0aca83ad0..6aec6b244 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -514,6 +514,7 @@ blockToMarkdown' opts b@(RawBlock f str) = do blockToMarkdown' opts HorizontalRule = return $ blankline <> literal (T.replicate (writerColumns opts) "-") <> blankline blockToMarkdown' opts (Header level attr inlines) = do + -- first, if we're putting references at the end of a section, we -- put them here. blkLevel <- asks envBlockLevel @@ -543,8 +544,12 @@ blockToMarkdown' opts (Header level attr inlines) = do isEnabled Ext_gutenberg opts then capitalize inlines else inlines + let setext = writerSetextHeaders opts - hdr = nowrap $ case level of + when (not setext && isEnabled Ext_literate_haskell opts) $ + report $ ATXHeadingInLHS level (render Nothing contents) + + let hdr = nowrap $ case level of 1 | variant == PlainText -> if isEnabled Ext_gutenberg opts then blanklines 3 <> contents <> blanklines 2 |