diff options
author | Rasmus <rasmus@gmx.us> | 2015-10-03 20:14:23 +0200 |
---|---|---|
committer | Rasmus <rasmus@gmx.us> | 2015-10-04 15:54:28 +0200 |
commit | 718fee30492f4001c03353bde8e3598f99a3bd00 (patch) | |
tree | defc44ca06422c4dee6cdc1cdb83cf80896f4074 | |
parent | 002499b26b614824f95c979f6f0a8f2580cfbefb (diff) | |
download | org-mode-718fee30492f4001c03353bde8e3598f99a3bd00.tar.gz |
ox-beamer: Support #+LATEX_COMPILER
* ox-beamer.el (org-beamer-template): Insert compiler and remove
unused packages.
-rw-r--r-- | lisp/ox-beamer.el | 28 |
1 files changed, 4 insertions, 24 deletions
diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index f96622c..24dcf19 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -827,31 +827,11 @@ holding export options." ;; Time-stamp. (and (plist-get info :time-stamp-file) (format-time-string "%% Created %Y-%m-%d %a %H:%M\n")) - ;; 2. Document class and packages. - (let* ((class (plist-get info :latex-class)) - (class-options (plist-get info :latex-class-options)) - (header (nth 1 (assoc class org-latex-classes))) - (document-class-string - (and (stringp header) - (if (not class-options) header - (replace-regexp-in-string - "^[ \t]*\\\\documentclass\\(\\(\\[[^]]*\\]\\)?\\)" - class-options header t nil 1))))) - (if (not document-class-string) - (user-error "Unknown LaTeX class `%s'" class) - (org-latex-guess-babel-language - (org-latex-guess-inputenc - (org-element-normalize-string - (org-splice-latex-header - document-class-string - org-latex-default-packages-alist - org-latex-packages-alist nil - (concat (org-element-normalize-string - (plist-get info :latex-header)) - (org-element-normalize-string - (plist-get info :latex-header-extra)))))) - info))) ;; LaTeX compiler + (org-latex--insert-compiler info) + ;; Document class and packages. + (org-latex--make-preamble info) + ;; Insert themes. (let ((format-theme (function (lambda (prop command) |