diff options
-rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 | ||||
-rw-r--r-- | test/command/4171.md | 14 |
2 files changed, 16 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index b2f9bbc53..e10fcd5ce 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -312,6 +312,8 @@ inlineListToOrg lst = hcat <$> mapM inlineToOrg (fixNotes lst) where fixNotes [] = [] -- prevent note ref from wrapping, see #4171 fixNotes (Space : n@Note{} : rest) = Str " " : n : fixNotes rest + fixNotes (SoftBreak : n@Note{} : rest) = + Str " " : n : fixNotes rest fixNotes (x : rest) = x : fixNotes rest -- | Convert Pandoc inline element to Org. diff --git a/test/command/4171.md b/test/command/4171.md index 649263638..3256d4673 100644 --- a/test/command/4171.md +++ b/test/command/4171.md @@ -9,3 +9,17 @@ a [fn:1] b ``` + + +``` +% pandoc -f org -t org +Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + [fn:1] a + +[fn:1] b +^D +Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa [fn:1] +a + +[fn:1] b +``` |