diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 | ||||
| -rw-r--r-- | test/writer.org | 7 |
2 files changed, 1 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 407c0a637..6704cf6f0 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -206,7 +206,7 @@ blockToOrg (CodeBlock (ident,classes,kvs) str) = do blockToOrg (BlockQuote blocks) = do contents <- blockListToOrg blocks return $ blankline $$ "#+begin_quote" $$ - contents $$ "#+end_quote" $$ blankline + chomp contents $$ "#+end_quote" $$ blankline blockToOrg (Table _ blkCapt specs thead tbody tfoot) = do let (caption', _, _, headers, rows) = toLegacyTable blkCapt specs thead tbody tfoot caption'' <- inlineListToOrg caption' diff --git a/test/writer.org b/test/writer.org index dc51ce143..48c2080ce 100644 --- a/test/writer.org +++ b/test/writer.org @@ -75,7 +75,6 @@ E-mail style: #+begin_quote This is a block quote. It is pretty short. - #+end_quote #+begin_quote @@ -96,14 +95,11 @@ Nested block quotes: #+begin_quote nested - #+end_quote #+begin_quote nested - #+end_quote - #+end_quote This should not be a block quote: 2 > 1. @@ -345,7 +341,6 @@ Multiple blocks with italics: #+begin_quote orange block quote - #+end_quote Multiple definitions, tight: @@ -753,7 +748,6 @@ An e-mail address: [[mailto:nobody@nowhere.net][nobody@nowhere.net]] #+begin_quote Blockquoted: [[http://example.com/]] - #+end_quote Auto-links should not occur here: =<http://example.com/>= @@ -787,7 +781,6 @@ note.[fn:3] #+begin_quote Notes can go in quotes.[fn:4] - #+end_quote 1. And in list items.[fn:5] |