diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-09-17 09:41:34 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-09-17 09:41:34 -0700 |
| commit | 57d93cca563cb162e4126e8738ecda27ce661623 (patch) | |
| tree | 28036a1cfde655135c3dde397006bd3ec6856405 /src/Text/Pandoc | |
| parent | 1487ee01fd1209217de4d21e6c459ca8a1bcea36 (diff) | |
| download | pandoc-57d93cca563cb162e4126e8738ecda27ce661623.tar.gz | |
Org writer: don't indent contents of code blocks.
We previously indented them by two spaces, following a
common convention. Since the convention is fading, and
the indentation is inconvenient for copy/paste, we are
discontinuing this practice.
Closes #5440.
Diffstat (limited to 'src/Text/Pandoc')
| -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 39af6717e..f4a22695c 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -154,7 +154,7 @@ blockToOrg (CodeBlock (_,classes,kvs) str) = do let (beg, end) = case at of [] -> ("#+begin_example" <> numberlines, "#+end_example") (x:_) -> ("#+begin_src " <> x <> numberlines, "#+end_src") - return $ literal beg $$ nest 2 (literal str) $$ text end $$ blankline + return $ literal beg $$ literal str $$ text end $$ blankline blockToOrg (BlockQuote blocks) = do contents <- blockListToOrg blocks return $ blankline $$ "#+begin_quote" $$ |