46135ac · typeable/pandoc

git.iko.soy/typeable/pandoc

LaTeX writer: add `\leavevmode` before hypertarget at start of paragraph.

Closes #2704 (formatting problems in beamer citations). See http://tex.stackexchange.com/questions/22852/function-and-usage-of-leavevmode

commit46135ac8758c4fbb9dfe676b1462463f5476bbff authorJohn MacFarlane <jgm@berkeley.edu> dateThu 2 Mar 2017, 12:13 (10 years ago) parent8709b7c

1 file changed+8−1

unifiedsplit

src/Text/Pandoc/Writers/LaTeX.hs+8−1

@@ -418,7 +418,14 @@ blockToLaTeX :: PandocMonad m

418418blockToLaTeX Null = return empty

419419blockToLaTeX (Div (identifier,classes,kvs) bs) = do

420420 beamer <- gets stBeamer

421− linkAnchor <- hypertarget True identifier empty

421+ linkAnchor' <- hypertarget True identifier empty

422+ -- see #2704 for the motivation for adding \leavevmode:

423+ let linkAnchor =

424+ case bs of

425+ Para _ : _

426+ | not (isEmpty linkAnchor')

427+ -> "\\leavevmode" <> linkAnchor' <> "%"

428+ _ -> linkAnchor'

422429 let align dir txt = inCmd "begin" dir $$ txt $$ inCmd "end" dir

423430 let wrapDir = case lookup "dir" kvs of

424431 Just "rtl" -> align "RTL"