ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow beamer export to inherit some properties 

* lisp/org-beamer.el (org-beamer-inherited-properties): New option.
(org-beamer-after-initial-vars): Use new option to look for inherited
properties.
This commit is contained in:
Carsten Dominik 2012-04-22 16:33:24 +02:00
parent a1fd7c4626
commit 6fdfa1ede1
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-beamer.el
View File

@ -156,6 +156,12 @@ close The closing string of the environment."
(string :tag "Begin") (string :tag "Begin")
(string :tag "End")))) (string :tag "End"))))
(defcustom org-beamer-inherited-properties nil
"Properties that should be inherited during beamer export."
:group 'org-beamer
:type '(repeat
(string :tag "Property")))
(defvar org-beamer-frame-level-now nil) (defvar org-beamer-frame-level-now nil)
(defvar org-beamer-header-extra nil) (defvar org-beamer-header-extra nil)
(defvar org-beamer-export-is-beamer-p nil) (defvar org-beamer-export-is-beamer-p nil)
@ -489,6 +495,12 @@ The effect is that these values will be accessible during export."
(if (and (not (assoc "BEAMER_env" props)) (if (and (not (assoc "BEAMER_env" props))
(looking-at ".*?:B_\\(note\\(NH\\)?\\):")) (looking-at ".*?:B_\\(note\\(NH\\)?\\):"))
(push (cons "BEAMER_env" (match-string 1)) props)) (push (cons "BEAMER_env" (match-string 1)) props))
(when (org-bound-and-true-p org-beamer-inherited-properties)
(mapc (lambda (p)
(unless (assoc p props)
(let ((v (org-entry-get nil p 'inherit)))
(and v (push (cons p v) props)))))
org-beamer-inherited-properties))
(put-text-property (point-at-bol) (point-at-eol) 'org-props props))) (put-text-property (point-at-bol) (point-at-eol) 'org-props props)))
(setq org-export-latex-options-plist (setq org-export-latex-options-plist
(plist-put org-export-latex-options-plist :tags nil)))))) (plist-put org-export-latex-options-plist :tags nil))))))