mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:07:46 +00:00
Code Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Nicolas Goaziou 2017-02-11 02:36:15 +01:00
parent eb59c75f39 9070b97f0e
commit 0fe987e060
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org.el
View file

@ -19418,7 +19418,8 @@ a HTML file."
(or (plist-get processing-info :latex-header)
(org-latex-make-preamble
(org-export-get-environment (org-export-get-backend 'latex))
org-format-latex-header)))
org-format-latex-header
'snippet)))
(latex-compiler (plist-get processing-info :latex-compiler))
(image-converter (plist-get processing-info :image-converter))
(tmpdir temporary-file-directory)

9
lisp/ox-latex.el
View file

@ -1616,11 +1616,14 @@ INFO is a plist used as a communication channel."
;;; Template
;;;###autoload
(defun org-latex-make-preamble (info &optional template)
(defun org-latex-make-preamble (info &optional template snippet?)
"Return a formatted LaTeX preamble.
INFO is a plist used as a communication channel. Optional
argument TEMPLATE, when non-nil, is the header template string,
as expected by `org-splice-latex-header'."
as expected by `org-splice-latex-header'. When SNIPPET? is
non-nil, only includes packages relevant to image generation, as
specified in `org-latex-default-packages-alist' or
`org-latex-packages-alist'."
(let* ((class (plist-get info :latex-class))
(class-options (plist-get info :latex-class-options))
(header (nth 1 (assoc class (plist-get info :latex-classes))))
@ -1640,7 +1643,7 @@ as expected by `org-splice-latex-header'."
class-template
(org-latex--remove-packages org-latex-default-packages-alist info)
(org-latex--remove-packages org-latex-packages-alist info)
nil
snippet?
(mapconcat #'org-element-normalize-string
(list (plist-get info :latex-header)
(plist-get info :latex-header-extra)) ""))))