diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-07-31 15:58:48 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-07-31 16:04:18 +0200 |
| commit | 6b08a37bbdc854b2ae13ea539be583736a5a7c70 (patch) | |
| tree | 8856e20fd0607e400375eb2cdf89c49223fa62ae /src | |
| parent | 2077739a35fd51ca6f482ce8a108d10799f5b274 (diff) | |
| download | pandoc-6b08a37bbdc854b2ae13ea539be583736a5a7c70.tar.gz | |
Org writer: don't force blank line after headers
Closes: #6554
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 628d91bf7..908543403 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -138,7 +138,7 @@ blockToOrg (Header level attr inlines) = do let drawerStr = if attr == nullAttr then empty else cr <> nest (level + 1) (propertiesDrawer attr) - return $ headerStr <> " " <> contents <> drawerStr <> blankline + return $ headerStr <> " " <> contents <> drawerStr <> cr blockToOrg (CodeBlock (_,classes,kvs) str) = do let startnum = maybe "" (\x -> " " <> trimr x) $ lookup "startFrom" kvs let numberlines = if "numberLines" `elem` classes |