ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

beamer: Make a title of an outline frame customizable. 

New custom variable org-outline-frame-title makes it possible
to give own title to an outline frame instead of the default
English "Outline".
This commit is contained in:
Łukasz Stelmach 2010-03-04 12:43:53 +01:00 committed by Carsten Dominik
parent 353366beb7
commit 5c980da496
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-beamer.el
View File

@ -494,7 +494,13 @@ This funcion will run in the final LaTeX document."
(setq opts (org-split-string opts ",")) (setq opts (org-split-string opts ","))
(add-to-list 'opts "fragile") (add-to-list 'opts "fragile")
(insert "[" (mapconcat 'identity opts ",") "]")))))))) (insert "[" (mapconcat 'identity opts ",") "]"))))))))
(defcustom org-beamer-outline-frame-title "Outline"
"Default title of a frame containing an outline."
:group 'org-beamer
:type '(string :tag "Outline frame title")
)
(defun org-beamer-fix-toc () (defun org-beamer-fix-toc ()
"Fix the table of contents by removing the vspace line." "Fix the table of contents by removing the vspace line."
(when org-beamer-export-is-beamer-p (when org-beamer-export-is-beamer-p
@ -503,7 +509,9 @@ This funcion will run in the final LaTeX document."
(when (re-search-forward "\\(\\\\setcounter{tocdepth.*\n\\\\tableofcontents.*\n\\)\\(\\\\vspace\\*.*\\)" (when (re-search-forward "\\(\\\\setcounter{tocdepth.*\n\\\\tableofcontents.*\n\\)\\(\\\\vspace\\*.*\\)"
nil t) nil t)
(replace-match (replace-match
"\\\\begin{frame}\n\\\\frametitle{Outline}\n\\1\\\\end{frame}" (concat "\\\\begin{frame}\n\\\\frametitle{"
org-beamer-outline-frame-title
"}\n\\1\\\\end{frame}")
t nil))))) t nil)))))
(defun org-beamer-property-changed (property value) (defun org-beamer-property-changed (property value)