diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2024-02-19 11:26:29 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2024-02-19 11:26:29 -0800 |
| commit | a6d85a0c983fa907f700f828881400af536ea01d (patch) | |
| tree | 356648d6259d0a0bfa6a390bc5eae3d31e81137d /src | |
| parent | 8a0e522c3901411e15c248a45fbc286b1ad35244 (diff) | |
Org writer: omit extra blank line at end of quote block.
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 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' |