From f2559723ee11eea7f606a48555ff79b2d5a5e03a Mon Sep 17 00:00:00 2001 From: Eric S Fraga Date: Wed, 5 Oct 2022 09:15:05 +0100 Subject: [PATCH] lisp/ox-beamer.el: Add BEAMER_ACT to column definition * ox-beamer.el (org-beamer--format-block): Process BEAMER_ACT if given for column block. --- lisp/ox-beamer.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index 51684448d..ce0b6c0e0 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -512,6 +512,11 @@ used as a communication channel." (options (if raw-options (org-beamer--normalize-argument raw-options 'option) "")) + ;; also process actions + (raw-actions (org-element-property :BEAMER_ACT headline)) + (actions (if raw-actions + (org-beamer--normalize-argument raw-actions 'action) + "")) ;; Start a "columns" environment when explicitly requested or ;; when there is no previous headline or the previous ;; headline do not have a BEAMER_column property. @@ -546,10 +551,11 @@ used as a communication channel." (if (not (equal environment "columns")) "\\begin{columns}\n" (format "\\begin{columns}%s\n" options))) (when column-width - (format "\\begin{column}%s{%s}\n" + (format "\\begin{column}%s%s{%s}\n" ;; One can specify placement for column only when ;; HEADLINE stands for a column on its own. - (if (equal environment "column") options "") + options + actions (format "%s\\columnwidth" column-width))) ;; Block's opening string. (when (nth 2 env-format) -- 2.30.2