From 9d34d4b1e1dc0c316bd7c871c444d41ab95ff2c1 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 6 Jan 2010 13:53:29 +0100 Subject: [PATCH] New option org-beamer-frame-default-options. --- lisp/ChangeLog | 4 ++++ lisp/org-beamer.el | 9 +++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9b255620a..3e21aaf48 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2010-01-06 Carsten Dominik + * 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-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 eb08ca403..801f397d4 100644 --- a/lisp/org-beamer.el +++ b/lisp/org-beamer.el @@ -54,6 +54,12 @@ You can se this to 4 as well, if you at the same time set (const :tag "Frames need a BEAMER_env property" nil) (integer :tag "Specific level makes a frame"))) +(defcustom org-beamer-frame-default-options "" + "Default options string to use for frames, should contains the [brackets]. +And example for this is \"[allowframebreaks]\"." + :group 'org-beamer + :type '(string :tag "[options]")) + (defcustom org-beamer-column-view-format "%45ITEM %10BEAMER_env(Env) %10BEAMER_envargs(Env Args) %4BEAMER_col(Col) %8BEAMER_extra(Extra)" "Default column view format that should be used to fill the template." @@ -68,7 +74,6 @@ BEAMER_HEADER_EXTRA, which will be inserted just before \\begin{document}." :group 'org-beamer :type '(string :tag "Beamer column view format")) - (defconst org-beamer-column-widths "0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 0.0 :ETC" "The column widths that should be installed as allowed property values.") @@ -252,7 +257,7 @@ in org-export-latex-classes." "\\begin{frame}%a%A%o%T%S%x" (list (cons "a" (or action "")) (cons "A" (or defaction "")) - (cons "o" (or option "")) + (cons "o" (or option org-beamer-frame-default-options "")) (cons "x" (if extra (concat "\n" extra) "")) (cons "h" "%s") (cons "T" (if (string-match "\\S-" text) -- 2.11.4.GIT