tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

beamer: Add custom options to an outline frame. 

With org-beamer-outline-frame-options you may specify frame
options like: allowframebreaks or fragile.
This commit is contained in:
Łukasz Stelmach 2010-03-04 14:51:02 +01:00 committed by Carsten Dominik
parent 5c980da496
commit 9d0740d0fa
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-beamer.el
View File

@ -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)))))