From c7f25c6b10654f9d4883d3555e058b23f89c573d Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
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."