LaTeX writer: ensure that beamer footnotes go on frame, not column.

Closes #5769.
This commit is contained in:
John MacFarlane
2024-10-28 09:53:31 -07:00
parent ec27d4bd22
commit d87c7611f4
2 changed files with 5 additions and 2 deletions
+3 -1
View File
@@ -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
+2 -1
View File
@@ -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