From d87c7611f454bed5ff9eb5ff054385acd24c8f95 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 28 Oct 2024 09:53:31 -0700 Subject: [PATCH] LaTeX writer: ensure that beamer footnotes go on frame, not column. Closes #5769. --- cabal.project | 4 +++- src/Text/Pandoc/Writers/LaTeX.hs | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/cabal.project b/cabal.project index b224185f8..bda9390ce 100644 --- a/cabal.project +++ b/cabal.project @@ -5,7 +5,9 @@ packages: . tests: True flags: +embed_data_files constraints: skylighting-format-blaze-html >= 0.1.1.2, - skylighting-format-context >= 0.1.0.2 + skylighting-format-context >= 0.1.0.2, + -- for now (commercialhaskell/stackage#7545): + data-default-class <= 0.2, data-default <= 0.8 source-repository-package type: git diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 69917b3d9..40cdb73e2 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -1128,8 +1128,9 @@ inlineToLaTeX (Note contents) = do let noteContents = nest 2 contents' <> optnl beamer <- gets stBeamer -- in beamer slides, display footnote from current overlay forward + -- and ensure that the note is on the frame, not e.g. the column (#5769) let beamerMark = if beamer - then text "<.->" + then text "<.->[frame]" else empty if externalNotes then do