tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix bug with option settings during beamer export

This commit is contained in:
Carsten Dominik 2009-12-12 11:11:07 +01:00
parent 21ad7f0bef
commit 7bd2077907
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-12-12 Carsten Dominik <carsten.dominik@gmail.com>
* org-beamer.el (org-beamer-after-initial-vars): Do not overwrite
the options plist.
2009-12-11 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-startup-with-beamer-mode): New option.

14
lisp/org-beamer.el
View File

@ -32,7 +32,6 @@
(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."
@ -438,7 +437,7 @@ The effect is that these values will be accessible during export."
'(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))
(plist-put org-export-latex-options-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
@ -469,11 +468,11 @@ This funcion will run in the final LaTeX document."
(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)))))
(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))))))
(defun org-beamer-property-changed (property value)
"Track the BEAMER_env property with tags."
@ -564,7 +563,6 @@ This funcion will run in the final LaTeX document."
(add-hook 'org-property-allowed-value-functions
'org-beamer-allowed-property-values)
(provide 'org-beamer)
;; arch-tag: 68bac91a-a946-43a3-8173-a9269306f67c