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:
parent
353366beb7
commit
5c980da496
|
@ -494,7 +494,13 @@ This funcion will run in the final LaTeX document."
|
|||
(setq opts (org-split-string opts ","))
|
||||
(add-to-list 'opts "fragile")
|
||||
(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 ()
|
||||
"Fix the table of contents by removing the vspace line."
|
||||
(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\\*.*\\)"
|
||||
nil t)
|
||||
(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)))))
|
||||
|
||||
(defun org-beamer-property-changed (property value)
|
||||
|
|
Loading…
Reference in New Issue