From c7f25c6b10654f9d4883d3555e058b23f89c573d Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 6 Jan 2010 14:23:57 +0100 Subject: [PATCH] Put a frame around the automatically generated TOC in beamer Requested by Sebastien Vauban. --- lisp/ChangeLog | 1 + lisp/org-beamer.el | 7 +++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3e21aaf48..79c7b245c 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,7 @@ * org-beamer.el (org-beamer-frame-default-options): New option. (org-beamer-sectioning): Use default options if the user does not have defined any. + (org-beamer-fix-toc): Put a frame around the table of contents. * org-exp.el (org-export-remove-comment-blocks-and-subtrees): Make sure case-folding works well when processing comment stuff. diff --git a/lisp/org-beamer.el b/lisp/org-beamer.el index 801f397d4..a60b0943e 100644 --- a/lisp/org-beamer.el +++ b/lisp/org-beamer.el @@ -492,8 +492,11 @@ This funcion will run in the final LaTeX document." (when org-beamer-export-is-beamer-p (save-excursion (goto-char (point-min)) - (when (re-search-forward "\\\\setcounter{tocdepth.*\n\\\\tableofcontents.*\n\\(\\\\vspace\\*.*\\)" nil t) - (delete-region (match-beginning 1) (match-end 1)))))) + (when (re-search-forward "\\(\\\\setcounter{tocdepth.*\n\\\\tableofcontents.*\n\\)\\(\\\\vspace\\*.*\\)" + nil t) + (replace-match + "\\\\begin{frame}\n\\\\frametitle{Outline}\n\\1\\\\end{frame}" + t nil))))) (defun org-beamer-property-changed (property value) "Track the BEAMER_env property with tags." -- 2.11.4.GIT