From ef8430e70269d0332f802986c9ef570faad8faa0 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Tue, 19 Dec 2017 13:16:08 +0300 Subject: Fix for #4171 fix: don't wrap note references after SoftBreak --- src/Text/Pandoc/Writers/Org.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Text/Pandoc/Writers/Org.hs') 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. -- cgit v1.2.3