|
|
@@ -0,0 +1,572 @@
|
|
|
+;;; org-beamer.el --- Beamer-specific LaTeX export for org-mode
|
|
|
+;;
|
|
|
+;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
|
|
|
+;;
|
|
|
+;; Version: 6.33trans
|
|
|
+;; Author: Carsten Dominik <carsten.dominik AT gmail DOT com>
|
|
|
+;; Maintainer: Carsten Dominik <carsten.dominik AT gmail DOT com>
|
|
|
+;; Keywords: org, wp, tex
|
|
|
+
|
|
|
+;; This file is part of GNU Emacs.
|
|
|
+
|
|
|
+;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
|
+;; it under the terms of the GNU General Public License as published by
|
|
|
+;; the Free Software Foundation, either version 3 of the License, or
|
|
|
+;; (at your option) any later version.
|
|
|
+
|
|
|
+;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
+;; GNU General Public License for more details.
|
|
|
+
|
|
|
+;; You should have received a copy of the GNU General Public License
|
|
|
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
|
|
+
|
|
|
+;;; Commentary:
|
|
|
+;;
|
|
|
+;; This library implement the special treatment needed by using the
|
|
|
+;; beamer class during LaTeX export.
|
|
|
+
|
|
|
+(require 'org)
|
|
|
+(require 'org-exp)
|
|
|
+(defvar org-export-latex-header)
|
|
|
+(defvar org-export-latex-options-plist)
|
|
|
+(defvar org-export-opt-plist)
|
|
|
+(defvar org-export-latex-options-plist)
|
|
|
+
|
|
|
+(defgroup org-beamer nil
|
|
|
+ "Options specific for using the beamer class in LaTeX export."
|
|
|
+ :tag "Org Beamer"
|
|
|
+ :group 'org-export-latex)
|
|
|
+
|
|
|
+(defcustom org-beamer-use-parts nil
|
|
|
+ ""
|
|
|
+ :group 'org-beamer
|
|
|
+ :type 'boolean)
|
|
|
+
|
|
|
+(defcustom org-beamer-frame-level 1
|
|
|
+ "The level that should be interpreted as a frame.
|
|
|
+The levels above this one will be translated into a sectioning structure.
|
|
|
+Setting this to 2 will allow sections, 3 will allow subsections as well.
|
|
|
+You can se this to 4 as well, if you at the same time set
|
|
|
+`org-beamer-use-parts' to make the top levels `\part'."
|
|
|
+ :group 'org-beamer
|
|
|
+ :type '(choice
|
|
|
+ (const :tag "Frames need a BEAMER_env property" nil)
|
|
|
+ (integer :tag "Specific level makes a frame")))
|
|
|
+
|
|
|
+(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."
|
|
|
+ :group 'org-beamer
|
|
|
+ :type '(string :tag "Beamer column view format"))
|
|
|
+
|
|
|
+(defcustom org-beamer-themes
|
|
|
+ "\\usetheme{default}\\usecolortheme{default}"
|
|
|
+ "Default string to be used for extra heading stuff in beamer presentations.
|
|
|
+When a beamer template is filled, this will be the default for
|
|
|
+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 1.0 :ETC"
|
|
|
+"The column widths that should be installed as allowed property values.")
|
|
|
+
|
|
|
+(defconst org-beamer-transitions
|
|
|
+ "\transblindsvertical \transblindshorizontal \transboxin \transboxout \transdissolve \transduration \transglitter \transsplithorizontalin \transsplithorizontalout \transsplitverticalin \transsplitverticalout \transwipe :ETC"
|
|
|
+ "Transitions available for beamer.
|
|
|
+These are just a completion help.")
|
|
|
+
|
|
|
+(defconst org-beamer-environments-default
|
|
|
+ '(("frame" "f" "dummy- special handling hard coded" "dummy")
|
|
|
+ ("columns" "C" "\\begin{columns}%o %% %h%x" "\\end{columns}")
|
|
|
+ ("column" "c" "\\begin{column}%o{%h\\textwidth}%x" "\\end{column}")
|
|
|
+ ("block" "b" "\\begin{block}%a{%h}%x" "\\end{block}")
|
|
|
+ ("alertblock" "a" "\\begin{alertblock}%a{%h}%x" "\\end{alertblock}")
|
|
|
+ ("verse" "v" "\\begin{verse}%a %% %h%x" "\\end{verse}")
|
|
|
+ ("quotation" "q" "\\begin{quotation}%a %% %h%x" "\\end{quotation}")
|
|
|
+ ("quote" "Q" "\\begin{quote}%a %% %h%x" "\\end{quote}")
|
|
|
+ ("structureenv" "s" "\\begin{structureenv}%a %% %h%x" "\\end{structureenv}")
|
|
|
+ ("theorem" "t" "\\begin{theorem}%a%U%x" "\\end{theorem}")
|
|
|
+ ("definition" "d" "\\begin{definition}%a%U%x" "\\end{definition}")
|
|
|
+ ("example" "e" "\\begin{example}%a%U%x" "\\end{example}")
|
|
|
+ ("proof" "p" "\\begin{proof}%a%U%x" "\\end{proof}")
|
|
|
+ ("beamercolorbox" "o" "\\begin{beamercolorbox}%o{%h}%x" "\\end{beamercolorbox}")
|
|
|
+ ("normal" "n" "%h" "")
|
|
|
+ ("ignoreheading" "i" "%%%% %h" ""))
|
|
|
+ "Environments triggered by properties in Beamer export.
|
|
|
+These are the defaults - for user definitions, see
|
|
|
+`org-beamer-environments-extra'.
|
|
|
+\"normal\" is a special fake environment. It is needed when an environment
|
|
|
+should be surrounded by normal text. Since beamer export converts sections
|
|
|
+into environments, you need to have a headline to end the environment.
|
|
|
+For example
|
|
|
+
|
|
|
+ ** a frame
|
|
|
+ some text
|
|
|
+ *** Blocktitle :B_block:
|
|
|
+ inside the block
|
|
|
+ *** After the block :B_normal:
|
|
|
+ continuing here
|
|
|
+ ** next frame")
|
|
|
+
|
|
|
+(defcustom org-beamer-environments-extra nil
|
|
|
+ "Environments triggered by tags in Beamer export.
|
|
|
+Each entry has 4 elements:
|
|
|
+
|
|
|
+name Name of the environment
|
|
|
+key Selection key for `org-beamer-set-environment-tag'
|
|
|
+open The opening template for the environment, with the following excapes
|
|
|
+ %a the action/overlay specification
|
|
|
+ %A the default action/overlay specification
|
|
|
+ %o the options argument of the template
|
|
|
+ %h the headline text
|
|
|
+ %H if there is headline text, that text in {} braces
|
|
|
+ %U if there is headline text, that text in [] brackets
|
|
|
+close The closing string of the environment."
|
|
|
+
|
|
|
+ :group 'org-beamer
|
|
|
+ :type '(repeat
|
|
|
+ (list
|
|
|
+ (string :tag "Environment")
|
|
|
+ (string :tag "Selection key")
|
|
|
+ (string :tag "Begin")
|
|
|
+ (string :tag "End"))))
|
|
|
+
|
|
|
+(defvar org-beamer-frame-level-now nil)
|
|
|
+(defvar org-beamer-header-extra nil)
|
|
|
+(defvar org-beamer-export-is-beamer-p nil)
|
|
|
+(defvar org-beamer-inside-frame-at-level nil)
|
|
|
+(defvar org-beamer-columns-open nil)
|
|
|
+(defvar org-beamer-column-open nil)
|
|
|
+
|
|
|
+(defun org-beamer-cleanup-column-width (width)
|
|
|
+ "Make sure the width is not empty, and that it has a unit."
|
|
|
+ (setq width (org-trim (or width "")))
|
|
|
+ (unless (string-match "\\S-" width) (setq width "0.5"))
|
|
|
+ (if (string-match "\\`[.0-9]+\\'" width)
|
|
|
+ (setq width (concat width "\\textwidth")))
|
|
|
+ width)
|
|
|
+
|
|
|
+(defun org-beamer-open-column (&optional width opt)
|
|
|
+ (org-beamer-close-column-maybe)
|
|
|
+ (setq org-beamer-column-open t)
|
|
|
+ (setq width (org-beamer-cleanup-column-width width))
|
|
|
+ (insert (format "\\begin{column}%s{%s}\n" (or opt "") width)))
|
|
|
+(defun org-beamer-close-column-maybe ()
|
|
|
+ (when org-beamer-column-open
|
|
|
+ (setq org-beamer-column-open nil)
|
|
|
+ (insert "\\end{column}\n")))
|
|
|
+(defun org-beamer-close-column-maybe-1 ()
|
|
|
+ (when org-beamer-column-open
|
|
|
+ (setq org-beamer-column-open nil)
|
|
|
+ (insert "\\end{column}\n"))
|
|
|
+ (setq org-beamer-columns-open nil))
|
|
|
+(defun org-beamer-open-columns-maybe (&optional opts)
|
|
|
+ (unless org-beamer-columns-open
|
|
|
+ (setq org-beamer-columns-open t)
|
|
|
+ (insert (format "\\begin{columns}%s\n" (or opts "")))))
|
|
|
+(defun org-beamer-close-columns-maybe ()
|
|
|
+ (org-beamer-close-column-maybe)
|
|
|
+ (when org-beamer-columns-open
|
|
|
+ (setq org-beamer-columns-open nil)
|
|
|
+ (insert "\\end{columns}\n")))
|
|
|
+
|
|
|
+(defun org-beamer-set-environment-tag ()
|
|
|
+ "Set an environment tag, to determine the beamer environment to be used.
|
|
|
+This makes use of the fast tag selection interface."
|
|
|
+ (interactive)
|
|
|
+ (let* ((envs (append org-beamer-environments-extra
|
|
|
+ org-beamer-environments-default))
|
|
|
+ (org-tag-alist
|
|
|
+ (append '((:startgroup))
|
|
|
+ (mapcar (lambda (e) (cons (concat "B_" (car e))
|
|
|
+ (string-to-char (nth 1 e))))
|
|
|
+ envs)
|
|
|
+ '((:endgroup))
|
|
|
+ '(("BMCOL" . ?|))))
|
|
|
+ (org-fast-tag-selection-single-key t))
|
|
|
+ (org-set-tags)
|
|
|
+ (let ((tags (or (ignore-errors (org-get-tags-string)) "")))
|
|
|
+ (cond
|
|
|
+ ((equal org-last-tag-selection-key ?|)
|
|
|
+ (if (string-match ":BMCOL:" tags)
|
|
|
+ (org-set-property "BEAMER_col" (read-string "Column width: "))
|
|
|
+ (org-delete-property "BEAMER_col")))
|
|
|
+ ((string-match (concat ":B_\\("
|
|
|
+ (mapconcat 'car envs "\\|")
|
|
|
+ "\\):")
|
|
|
+ tags)
|
|
|
+ (org-entry-put nil "BEAMER_env" (match-string 1 tags)))
|
|
|
+ (t (org-entry-delete nil "BEAMER_env"))))))
|
|
|
+
|
|
|
+
|
|
|
+(defun org-beamer-sectioning (level text)
|
|
|
+ "Return the sectioning entry for the current headline.
|
|
|
+LEVEL is the reduced level of the headline.
|
|
|
+TEXT is the text of the headline, everything except the leading stars.
|
|
|
+The return value is a cons cell. The car is the headline text, usually
|
|
|
+just TEXT, but possibly modified if options have been extracted from the
|
|
|
+text. The cdr is the sectioning entry, similar to what is given
|
|
|
+in org-export-latex-classes."
|
|
|
+ (let* ((frame-level (or org-beamer-frame-level-now org-beamer-frame-level))
|
|
|
+ (default
|
|
|
+ (if org-beamer-use-parts
|
|
|
+ '((1 . ("\\part{%s}" . "\\part*{%s}"))
|
|
|
+ (2 . ("\\section{%s}" . "\\section*{%s}"))
|
|
|
+ (3 . ("\\subsection{%s}" . "\\subsection*{%s}")))
|
|
|
+ '((1 . ("\\section{%s}" . "\\section*{%s}"))
|
|
|
+ (2 . ("\\subsection{%s}" . "\\subsection*{%s}")))))
|
|
|
+ (envs (append org-beamer-environments-extra
|
|
|
+ org-beamer-environments-default))
|
|
|
+ (props (org-get-text-property-any 0 'org-props text))
|
|
|
+ (in "") (out "") option action defaction environment extra
|
|
|
+ columns-option column-option
|
|
|
+ env have-text ass tmp)
|
|
|
+ (if (= frame-level 0) (setq frame-level nil))
|
|
|
+ (when (and org-beamer-inside-frame-at-level
|
|
|
+ (<= level org-beamer-inside-frame-at-level))
|
|
|
+ (setq org-beamer-inside-frame-at-level nil))
|
|
|
+ (when (setq tmp (org-beamer-assoc-not-empty "BEAMER_col" props))
|
|
|
+ (when (setq ass (assoc "BEAMER_envargs" props))
|
|
|
+ (let (case-fold-search)
|
|
|
+ (when (string-match "C\\(\\[[^][]*\\]\\)" (cdr ass))
|
|
|
+ (setq columns-option (match-string 1 (cdr ass)))
|
|
|
+ (setcdr ass (replace-match "" t t (cdr ass))))
|
|
|
+ (when (string-match "c\\(\\[[^][]*\\]\\)" (cdr ass))
|
|
|
+ (setq column-option (match-string 1 (cdr ass)))
|
|
|
+ (setcdr ass (replace-match "" t t (cdr ass))))))
|
|
|
+ (org-beamer-open-columns-maybe columns-option)
|
|
|
+ (org-beamer-open-column tmp column-option))
|
|
|
+ (cond
|
|
|
+ ((or (equal (cdr (assoc "BEAMER_env" props)) "frame")
|
|
|
+ (and frame-level (= level frame-level)))
|
|
|
+ ;; A frame
|
|
|
+ (org-beamer-get-special props)
|
|
|
+
|
|
|
+ (setq in (org-fill-template
|
|
|
+ "\\begin{frame}%a%A%o%T%S%x"
|
|
|
+ (list (cons "a" (or action ""))
|
|
|
+ (cons "A" (or defaction ""))
|
|
|
+ (cons "o" (or option ""))
|
|
|
+ (cons "x" (if extra (concat "\n" extra) ""))
|
|
|
+ (cons "h" "%s")
|
|
|
+ (cons "T" (if (string-match "\\S-" text)
|
|
|
+ "\n\\frametitle{%s}" ""))
|
|
|
+ (cons "S" (if (string-match "\\\\\\\\" text)
|
|
|
+ "\n\\framesubtitle{%s}" ""))))
|
|
|
+ out (copy-sequence "\\end{frame}"))
|
|
|
+ (org-add-props out
|
|
|
+ '(org-insert-hook org-beamer-close-columns-maybe))
|
|
|
+ (setq org-beamer-inside-frame-at-level level)
|
|
|
+ (cons text (list in out in out)))
|
|
|
+ ((and (setq env (cdr (assoc "BEAMER_env" props)))
|
|
|
+ (setq ass (assoc env envs)))
|
|
|
+ ;; A beamer environment selected by the BEAMER_env property
|
|
|
+ (if (string-match "[ \t]+:[ \t]*$" text)
|
|
|
+ (setq text (replace-match "" t t text)))
|
|
|
+ (org-beamer-get-special props)
|
|
|
+ (setq text (org-trim text))
|
|
|
+ (setq have-text (string-match "\\S-" text))
|
|
|
+ (setq in (org-fill-template
|
|
|
+ (nth 2 ass)
|
|
|
+ (list (cons "a" (or action ""))
|
|
|
+ (cons "A" (or defaction ""))
|
|
|
+ (cons "o" (or option ""))
|
|
|
+ (cons "x" (if extra (concat "\n" extra) ""))
|
|
|
+ (cons "h" "%s")
|
|
|
+ (cons "H" (if have-text (concat "{" text "}") ""))
|
|
|
+ (cons "U" (if have-text (concat "[" text "]") ""))))
|
|
|
+ out (nth 3 ass))
|
|
|
+ (cond
|
|
|
+ ((equal out "\\end{columns}")
|
|
|
+ (setq org-beamer-columns-open t)
|
|
|
+ (setq out (org-add-props (copy-sequence out)
|
|
|
+ '(org-insert-hook
|
|
|
+ (lambda ()
|
|
|
+ (org-beamer-close-column-maybe)
|
|
|
+ (setq org-beamer-columns-open nil))))))
|
|
|
+ ((equal out "\\end{column}")
|
|
|
+ (org-beamer-open-columns-maybe)))
|
|
|
+ (cons text (list in out in out)))
|
|
|
+ ((and (not org-beamer-inside-frame-at-level)
|
|
|
+ (or (not frame-level)
|
|
|
+ (< level frame-level))
|
|
|
+ (assoc level default))
|
|
|
+ ;; Normal sectioning
|
|
|
+ (cons text (cdr (assoc level default))))
|
|
|
+ (t nil))))
|
|
|
+
|
|
|
+(defvar extra)
|
|
|
+(defvar option)
|
|
|
+(defvar action)
|
|
|
+(defvar defaction)
|
|
|
+(defvar environment)
|
|
|
+(defun org-beamer-get-special (props)
|
|
|
+ "Extract an option, action, and default action string from text.
|
|
|
+The variables option, action, defaction, extra are all scoped into
|
|
|
+this function dynamically."
|
|
|
+ (let (tmp)
|
|
|
+ (setq environment (org-beamer-assoc-not-empty "BEAMER_env" props))
|
|
|
+ (setq extra (org-beamer-assoc-not-empty "BEAMER_extra" props))
|
|
|
+ (when extra
|
|
|
+ (setq extra (replace-regexp-in-string "\\\\n" "\n" extra)))
|
|
|
+ (setq tmp (org-beamer-assoc-not-empty "BEAMER_envargs" props))
|
|
|
+ (when tmp
|
|
|
+ (setq tmp (copy-sequence tmp))
|
|
|
+ (if (string-match "\\[<[^][<>]*>\\]" tmp)
|
|
|
+ (setq defaction (match-string 0 tmp)
|
|
|
+ tmp (replace-match "" t t tmp)))
|
|
|
+ (if (string-match "\\[[^][]*\\]" tmp)
|
|
|
+ (setq option (match-string 0 tmp)
|
|
|
+ tmp (replace-match "" t t tmp)))
|
|
|
+ (if (string-match "<[^<>]*>" tmp)
|
|
|
+ (setq action (match-string 0 tmp)
|
|
|
+ tmp (replace-match "" t t tmp))))))
|
|
|
+
|
|
|
+(defun org-beamer-assoc-not-empty (elt list)
|
|
|
+ (let ((tmp (cdr (assoc elt list))))
|
|
|
+ (and tmp (string-match "\\S-" tmp) tmp)))
|
|
|
+
|
|
|
+
|
|
|
+(defvar org-beamer-mode-map (make-sparse-keymap)
|
|
|
+ "The keymap for `org-beamer-mode'.")
|
|
|
+(define-key org-beamer-mode-map "\C-c\C-b" 'org-beamer-set-environment-tag)
|
|
|
+
|
|
|
+(define-minor-mode org-beamer-mode
|
|
|
+ "Special support for editing Org-mode files made to export to beamer."
|
|
|
+ nil " Bm" nil)
|
|
|
+(font-lock-add-keywords
|
|
|
+ 'org-mode
|
|
|
+ '((":\\(B_[a-z]+\\|BMCOL\\):" 1 'org-beamer-tag prepend))
|
|
|
+ 'prepent)
|
|
|
+
|
|
|
+(defun org-beamer-place-default-actions-for-lists ()
|
|
|
+ "Find default overlay specifications in items, and move them.
|
|
|
+The need to be after the begin statement of the environment."
|
|
|
+ (when org-beamer-export-is-beamer-p
|
|
|
+ (let (dovl)
|
|
|
+ (goto-char (point-min))
|
|
|
+ (while (re-search-forward
|
|
|
+ "^[ \t]*\\\\begin{\\(itemize\\|enumerate\\|desctiption\\)}[ \t\n]*\\\\item\\>\\( ?\\(<[^<>\n]*>\\|\\[[^][\n*]\\]\\)\\)?[ \t]*\\S-" nil t)
|
|
|
+ (if (setq dovl (cdr (assoc "BEAMER_dovl" (get-text-property (match-end 0) 'org-props))))
|
|
|
+ (save-excursion
|
|
|
+ (goto-char (1+ (match-end 1)))
|
|
|
+ (insert dovl)))))))
|
|
|
+
|
|
|
+(defun org-beamer-amend-header ()
|
|
|
+ (when (and org-beamer-export-is-beamer-p
|
|
|
+ org-beamer-header-extra)
|
|
|
+ (goto-char (point-min))
|
|
|
+ (when (re-search-forward "^[ \t]*\\\\begin{document}" nil t)
|
|
|
+ (goto-char (match-beginning 0))
|
|
|
+ (insert org-beamer-header-extra)
|
|
|
+ (or (bolp) (insert "\n")))))
|
|
|
+
|
|
|
+(defcustom org-beamer-fragile-re "^[ \t]*\\\\begin{verbatim}"
|
|
|
+ "If this regexp matches in a frame, the frame is marked as fragile."
|
|
|
+ :group 'org-beamer
|
|
|
+ :type 'regexp)
|
|
|
+
|
|
|
+(defface org-beamer-tag '((t (:box (:line-width 1 :color grey40))))
|
|
|
+ "The special face for beamer tags."
|
|
|
+ :group 'org-beamer)
|
|
|
+
|
|
|
+
|
|
|
+;; Functions to initialize and post-process
|
|
|
+;; These fuctions will be hooked into various places in the export process
|
|
|
+
|
|
|
+(defun org-beamer-initialize-open-trackers ()
|
|
|
+ "Reset variables that track if certain environments are open during export."
|
|
|
+ (setq org-beamer-columns-open nil)
|
|
|
+ (setq org-beamer-column-open nil)
|
|
|
+ (setq org-beamer-inside-frame-at-level nil)
|
|
|
+ (setq org-beamer-export-is-beamer-p nil))
|
|
|
+
|
|
|
+(defun org-beamer-after-initial-vars ()
|
|
|
+ "Find special setings for beamer and store them.
|
|
|
+The effect is that these values will be accessible during export."
|
|
|
+ ;; First verify that we are exporting using the beamer class
|
|
|
+ (setq org-beamer-export-is-beamer-p
|
|
|
+ (string-match "\\\\documentclass\\(\\[[^][]*?\\]\\)?{beamer}"
|
|
|
+ org-export-latex-header))
|
|
|
+ (when org-beamer-export-is-beamer-p
|
|
|
+ ;; Find the frame level
|
|
|
+ (setq org-beamer-frame-level-now
|
|
|
+ (or (and (org-region-active-p)
|
|
|
+ (save-excursion
|
|
|
+ (goto-char (region-beginning))
|
|
|
+ (and (looking-at org-complex-heading-regexp)
|
|
|
+ (org-entry-get nil "BEAMER_FRAME_LEVEL" 'selective))))
|
|
|
+ (save-excursion
|
|
|
+ (save-restriction
|
|
|
+ (widen)
|
|
|
+ (goto-char (point-min))
|
|
|
+ (and (re-search-forward
|
|
|
+ "^#\\+BEAMER_FRAME_LEVEL:[ \t]*\\(.*?\\)[ \t]*$" nil t)
|
|
|
+ (match-string 1))))
|
|
|
+ (plist-get org-export-latex-options-plist :beamer-frame-level)
|
|
|
+ org-beamer-frame-level))
|
|
|
+ ;; Normalize the value so that the functions can trust the value
|
|
|
+ (cond
|
|
|
+ ((not org-beamer-frame-level-now)
|
|
|
+ (setq org-beamer-frame-level-now nil))
|
|
|
+ ((stringp org-beamer-frame-level-now)
|
|
|
+ (setq org-beamer-frame-level-now
|
|
|
+ (string-to-number org-beamer-frame-level-now))))
|
|
|
+ ;; Find the header additons, most likely theme commands
|
|
|
+ (setq org-beamer-header-extra
|
|
|
+ (or (and (org-region-active-p)
|
|
|
+ (save-excursion
|
|
|
+ (goto-char (region-beginning))
|
|
|
+ (and (looking-at org-complex-heading-regexp)
|
|
|
+ (org-entry-get nil "BEAMER_HEADER_EXTRA"
|
|
|
+ 'selective))))
|
|
|
+ (save-excursion
|
|
|
+ (save-restriction
|
|
|
+ (widen)
|
|
|
+ (goto-char (point-min))
|
|
|
+ (and (re-search-forward
|
|
|
+ "^#\\+BEAMER_HEADER_EXTRA:[ \t]*\\(.*?\\)[ \t]*$" nil t)
|
|
|
+ (match-string 1))))
|
|
|
+ (plist-get org-export-latex-options-plist
|
|
|
+ :beamer-header-extra)))
|
|
|
+ (remove-text-properties (point-min) (point-max) '(org-props nil))
|
|
|
+ (org-map-entries
|
|
|
+ '(put-text-property (point-at-bol) (point-at-eol) 'org-props
|
|
|
+ (org-entry-properties nil 'standard)))
|
|
|
+ (setq org-export-latex-options-plist
|
|
|
+ (plist-put org-export-opt-plist :tags nil))
|
|
|
+ (remove-text-properties (point-min) (point-max) '(org-props nil))
|
|
|
+ (org-map-entries
|
|
|
+ '(put-text-property (point-at-bol) (point-at-eol) 'org-props
|
|
|
+ (org-entry-properties nil 'standard)))))
|
|
|
+
|
|
|
+(defun org-beamer-auto-fragile-frames ()
|
|
|
+ "Mark any frames containing verbatim environments as fragile.
|
|
|
+This funcion will run in the final LaTeX document."
|
|
|
+ (when org-beamer-export-is-beamer-p
|
|
|
+ (let (opts)
|
|
|
+ (goto-char (point-min))
|
|
|
+ ;; Find something that might be fragile
|
|
|
+ (while (re-search-forward org-beamer-fragile-re nil t)
|
|
|
+ (save-excursion
|
|
|
+ ;; Are we inside a frame here?
|
|
|
+ (when (and (re-search-backward "^[ \t]*\\\\\\(begin\\|end\\){frame}"
|
|
|
+ nil t)
|
|
|
+ (equal (match-string 1) "begin"))
|
|
|
+ ;; yes, inside a frame, make sure "fragile" is one of the options
|
|
|
+ (goto-char (match-end 0))
|
|
|
+ (if (not (looking-at "\\[.*?\\]"))
|
|
|
+ (insert "[fragile]")
|
|
|
+ (setq opts (substring (match-string 0) 1 -1))
|
|
|
+ (delete-region (match-beginning 0) (match-end 0))
|
|
|
+ (setq opts (org-split-string opts ","))
|
|
|
+ (add-to-list 'opts "fragile")
|
|
|
+ (insert "[" (mapconcat 'identity opts ",") "]"))))))))
|
|
|
+
|
|
|
+(defun org-beamer-fix-toc ()
|
|
|
+ "Fix the table of contents by removing the vspace line."
|
|
|
+ (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)))))
|
|
|
+
|
|
|
+
|
|
|
+(defun org-beamer-property-changed (property value)
|
|
|
+ "Track the BEAMER_env property with tags."
|
|
|
+ (cond
|
|
|
+ ((equal property "BEAMER_env")
|
|
|
+ (save-excursion
|
|
|
+ (org-back-to-heading t)
|
|
|
+ (let ((tags (org-get-tags)))
|
|
|
+ (setq tags (delq nil (mapcar (lambda (x)
|
|
|
+ (if (string-match "^B_" x) nil x))
|
|
|
+ tags)))
|
|
|
+ (org-set-tags-to tags))
|
|
|
+ (when (and value (stringp value) (string-match "\\S-" value))
|
|
|
+ (org-toggle-tag (concat "B_" value) 'on))))
|
|
|
+ ((equal property "BEAMER_col")
|
|
|
+ (org-toggle-tag "BMCOL" (if (and value (string-match "\\S-" value))
|
|
|
+ 'on 'off)))))
|
|
|
+
|
|
|
+(defun org-beamer-select-beamer-code ()
|
|
|
+ "Take code marked for BEAMER and turn it into marked for LaTeX."
|
|
|
+ (when org-beamer-export-is-beamer-p
|
|
|
+ (goto-char (point-min))
|
|
|
+ (while (re-search-forward
|
|
|
+ "^\\([ \]*#\\+\\(begin_\\|end_\\)?\\)\\(beamer\\)\\>" nil t)
|
|
|
+ (replace-match "\\1latex"))))
|
|
|
+
|
|
|
+;; OK, hook all these functions into appropriate places
|
|
|
+(add-hook 'org-export-first-hook
|
|
|
+ 'org-beamer-initialize-open-trackers)
|
|
|
+(add-hook 'org-property-changed-functions
|
|
|
+ 'org-beamer-property-changed)
|
|
|
+(add-hook 'org-export-latex-after-initial-vars-hook
|
|
|
+ 'org-beamer-after-initial-vars)
|
|
|
+(add-hook 'org-export-latex-final-hook
|
|
|
+ 'org-beamer-place-default-actions-for-lists)
|
|
|
+(add-hook 'org-export-latex-final-hook
|
|
|
+ 'org-beamer-auto-fragile-frames)
|
|
|
+(add-hook 'org-export-latex-final-hook
|
|
|
+ 'org-beamer-fix-toc)
|
|
|
+(add-hook 'org-export-latex-final-hook
|
|
|
+ 'org-beamer-amend-header)
|
|
|
+(add-hook 'org-export-preprocess-before-selecting-backend-code-hook
|
|
|
+ 'org-beamer-select-beamer-code)
|
|
|
+
|
|
|
+(defun org-beamer-settings-template (kind)
|
|
|
+ "Insert a settings template, to make sure users do this right."
|
|
|
+ (interactive (progn
|
|
|
+ (message "Current [s]ubtree or [g]lobal?")
|
|
|
+ (if (equal (read-char-exclusive) ?g)
|
|
|
+ (list 'global)
|
|
|
+ (list 'subtree))))
|
|
|
+ (if (eq kind 'subtree)
|
|
|
+ (progn
|
|
|
+ (org-back-to-heading t)
|
|
|
+ (org-reveal)
|
|
|
+ (org-entry-put nil "LaTeX_CLASS" "beamer")
|
|
|
+ (org-entry-put nil "LaTeX_CLASS_OPTIONS" "[presentation]")
|
|
|
+ (org-entry-put nil "EXPORT_FILE_NAME" "presentation.pdf")
|
|
|
+ (org-entry-put nil "BEAMER_FRAME_LEVEL" (number-to-string
|
|
|
+ org-beamer-frame-level))
|
|
|
+ (org-entry-put nil "BEAMER_HEADER_EXTRA" org-beamer-themes)
|
|
|
+ (org-entry-put nil "COLUMNS" org-beamer-column-view-format)
|
|
|
+ (org-entry-put nil "BEAMER_col_ALL" "0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 :ETC"))
|
|
|
+ (insert "#+LaTeX_CLASS: beamer\n")
|
|
|
+ (insert "#+LaTeX_CLASS_OPTIONS: [presentation]\n")
|
|
|
+ (insert (format "#+BEAMER_FRAME_LEVEL: %d\n" org-beamer-frame-level) "\n")
|
|
|
+ (insert "#+BEAMER_HEADER_EXTRA: " org-beamer-themes "\n")
|
|
|
+ (insert "#+COLUMNS: " org-beamer-column-view-format "\n")
|
|
|
+ (insert "#+PROPERTY: BEAMER_col_ALL 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 :ETC\n")))
|
|
|
+
|
|
|
+
|
|
|
+(defun org-beamer-allowed-property-values (property)
|
|
|
+ "Supply allowed values for BEAMER properties."
|
|
|
+ (cond
|
|
|
+ ((and (equal property "BEAMER_env")
|
|
|
+ (not (org-entry-get nil (concat property "_ALL") 'inherit)))
|
|
|
+ ;; If no allowed values for BEAMER_env have been defined,
|
|
|
+ ;; supply all defined environments
|
|
|
+ (mapcar 'car (append org-beamer-environments-extra
|
|
|
+ org-beamer-environments-default)))
|
|
|
+ ((and (equal property "BEAMER_col")
|
|
|
+ (not (org-entry-get nil (concat property "_ALL") 'inherit)))
|
|
|
+ ;; If no allowed values for BEAMER_col have been defined,
|
|
|
+ ;; supply some
|
|
|
+ '("0.1" "0.2" "0.3" "0.4" "0.5" "0.6" "0.7" "0.8" "0.9" "" ":ETC"))
|
|
|
+ (t nil)))
|
|
|
+
|
|
|
+(add-hook 'org-property-allowed-value-functions
|
|
|
+ 'org-beamer-allowed-property-values)
|
|
|
+
|
|
|
+
|
|
|
+(provide 'org-beamer)
|
|
|
+
|
|
|
+;; arch-tag: 68bac91a-a946-43a3-8173-a9269306f67c
|
|
|
+
|
|
|
+;;; org-beamer.el ends here
|
Carsten Dominik