From 9d0740d0fa8d5b1896c7934bd5504ddd628d7270 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=81ukasz=20Stelmach?= Date: Thu, 4 Mar 2010 14:51:02 +0100 Subject: [PATCH] beamer: Add custom options to an outline frame. With org-beamer-outline-frame-options you may specify frame options like: allowframebreaks or fragile. --- lisp/org-beamer.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/org-beamer.el b/lisp/org-beamer.el index dcfe682a0..68bfc9e8e 100644 --- a/lisp/org-beamer.el +++ b/lisp/org-beamer.el @@ -501,6 +501,14 @@ This funcion will run in the final LaTeX document." :type '(string :tag "Outline frame title") ) +(defcustom org-beamer-outline-frame-options nil + "Outline frame options appended after \\begin{frame}. You might +want to put e.g. [allowframebreaks=0.9] here. Remember to include +square brackets." + :group 'org-beamer + :type '(string :tag "Outline frame options") +) + (defun org-beamer-fix-toc () "Fix the table of contents by removing the vspace line." (when org-beamer-export-is-beamer-p @@ -509,7 +517,8 @@ This funcion will run in the final LaTeX document." (when (re-search-forward "\\(\\\\setcounter{tocdepth.*\n\\\\tableofcontents.*\n\\)\\(\\\\vspace\\*.*\\)" nil t) (replace-match - (concat "\\\\begin{frame}\n\\\\frametitle{" + (concat "\\\\begin{frame}" org-beamer-outline-frame-options + "\n\\\\frametitle{" org-beamer-outline-frame-title "}\n\\1\\\\end{frame}") t nil)))))