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

org-e-beamer: Toggle hypersetup inclusion in template too 

* contrib/lisp/org-e-beamer.el (org-e-beamer-template): Toggle
  hypersetup inclusion in template too.
This commit is contained in:
Nicolas Goaziou 2013-01-12 12:04:11 +01:00
parent c1ecc51835
commit 0c9579bb74
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/lisp/org-e-beamer.el
View File

@ -30,11 +30,11 @@
;; `org-e-beamer-export-to-latex' ("tex" file) and ;; `org-e-beamer-export-to-latex' ("tex" file) and
;; `org-e-beamer-export-to-pdf' ("pdf" file). ;; `org-e-beamer-export-to-pdf' ("pdf" file).
;; ;;
;; On top of buffer keywords supported by `e-latex' back-end (see ;; On top of buffer keywords and options items supported by `e-latex'
;; `org-e-latex-options-alist'), this back-end introduces the ;; back-end (see `org-e-latex-options-alist'), this back-end
;; following keywords: "BEAMER_THEME", "BEAMER_COLOR_THEME", ;; introduces the following keywords: "BEAMER_THEME",
;; "BEAMER_FONT_THEME", "BEAMER_INNER_THEME" and "BEAMER_OUTER_THEME". ;; "BEAMER_COLOR_THEME", "BEAMER_FONT_THEME", "BEAMER_INNER_THEME" and
;; All accept options in square brackets. ;; "BEAMER_OUTER_THEME". All accept options in square brackets.
;; ;;
;; Moreover, headlines now fall into three categories: sectioning ;; Moreover, headlines now fall into three categories: sectioning
;; elements, frames and blocks. ;; elements, frames and blocks.
@ -874,11 +874,12 @@ holding export options."
;; 7. Title ;; 7. Title
(format "\\title{%s}\n" title) (format "\\title{%s}\n" title)
;; 8. Hyperref options. ;; 8. Hyperref options.
(when (plist-get info :latex-hyperref-p)
(format "\\hypersetup{\n pdfkeywords={%s},\n pdfsubject={%s},\n pdfcreator={%s}}\n" (format "\\hypersetup{\n pdfkeywords={%s},\n pdfsubject={%s},\n pdfcreator={%s}}\n"
(or (plist-get info :keywords) "") (or (plist-get info :keywords) "")
(or (plist-get info :description) "") (or (plist-get info :description) "")
(if (not (plist-get info :with-creator)) "" (if (not (plist-get info :with-creator)) ""
(plist-get info :creator))) (plist-get info :creator))))
;; 9. Document start. ;; 9. Document start.
"\\begin{document}\n\n" "\\begin{document}\n\n"
;; 10. Title command. ;; 10. Title command.