c0cc927 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Org writer: don't allow fn refs to wrap to beginning of line.

c0cc927John MacFarlane9 years ago

src/Text/Pandoc/Writers/Org.hs+5−1

@@ -308,7 +308,11 @@ blockListToOrg blocks = vcat <$> mapM blockToOrg blocks

308inlineListToOrg :: PandocMonad m

309 => [Inline]

310 -> Org m Doc

311−inlineListToOrg lst = hcat <$> mapM inlineToOrg lst

311+inlineListToOrg lst = hcat <$> mapM inlineToOrg (fixNotes lst)

312+ where fixNotes [] = [] -- prevent note ref from wrapping, see #4171

313+ fixNotes (Space : n@Note{} : rest) =

314+ Str " " : n : fixNotes rest

315+ fixNotes (x : rest) = x : fixNotes rest

312

316

313-- | Convert Pandoc inline element to Org.

317-- | Convert Pandoc inline element to Org.

314inlineToOrg :: PandocMonad m => Inline -> Org m Doc

318inlineToOrg :: PandocMonad m => Inline -> Org m Doc

test/command/4171.mdnew file+11

@@ -0,0 +1,11 @@

1+```

2+% pandoc -f org -t org

3+Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa [fn:1] a

5+[fn:1] b

6+^D

7+Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa [fn:1]

8+a

10+[fn:1] b

11+```