From: Matt Huszagh <huszaghmatt@gmail.com> To: "emacs-orgmode@gnu.org" <emacs-orgmode@gnu.org> Subject: Re: babel latex headers and image generation commands Date: Tue, 04 Feb 2020 13:19:15 -0800 [thread overview] Message-ID: <871rrayrsc.fsf@gmail.com> (raw) In-Reply-To: <874kw6ztr9.fsf@gmail.com> Ok, here's an implementation that seems to be working pretty well so far. `org-latex-img-process` is the new customization. Most of the execute function is unaltered, but I've added the condition: ``` ((and (not imagemagick) (assoc extension org-latex-img-process)) ``` Here's the change in full. ``` (setq org-latex-pdf-process '("latexmk -f -interaction=nonstopmode -output-directory=%o %f")) (setq org-latex-img-process '(("svg" . ("dvisvgm %f -P -n -b min -o %O")))) (defun org-babel-execute:latex (body params) "Execute a block of Latex code with Babel. This function is called by `org-babel-execute-src-block'." (setq body (org-babel-expand-body:latex body params)) (if (cdr (assq :file params)) (let* ((out-file (cdr (assq :file params))) (extension (file-name-extension out-file)) (tex-file (org-babel-temp-file "latex-" ".tex")) (border (cdr (assq :border params))) (imagemagick (cdr (assq :imagemagick params))) (im-in-options (cdr (assq :iminoptions params))) (im-out-options (cdr (assq :imoutoptions params))) (fit (or (cdr (assq :fit params)) border)) (height (and fit (cdr (assq :pdfheight params)))) (width (and fit (cdr (assq :pdfwidth params)))) (headers (cdr (assq :headers params))) (in-buffer (not (string= "no" (cdr (assq :buffer params))))) (org-latex-packages-alist (append (cdr (assq :packages params)) org-latex-packages-alist))) (cond ((and (string-suffix-p ".png" out-file) (not imagemagick)) (org-create-formula-image body out-file org-format-latex-options in-buffer)) ((string-suffix-p ".tikz" out-file) (when (file-exists-p out-file) (delete-file out-file)) (with-temp-file out-file (insert body))) ((and (not imagemagick) (assoc extension org-latex-img-process)) (with-temp-file tex-file (insert (concat (org-latex-make-preamble (org-export-get-environment (org-export-get-backend 'latex)) org-format-latex-header 'snippet) (if headers (concat "\n" (if (listp headers) (mapconcat #'identity headers "\n") headers) "\n") "") "\\begin{document}" body "\\end{document}"))) (let ((tmp-pdf (org-babel-latex-tex-to-pdf tex-file))) (when (file-exists-p out-file) (delete-file out-file)) (let* ((log-buf (get-buffer-create "*Org Babel LaTeX Output*")) (err-msg "fix") (img-out (org-compile-file tmp-pdf (cdr (assoc "svg" org-latex-img-process)) extension err-msg log-buf))) (shell-command (format "mv %s %s" img-out out-file))))) ((and (or (string= "svg" extension) (string= "html" extension)) (executable-find org-babel-latex-htlatex)) ;; TODO: this is a very different way of generating the ;; frame latex document than in the pdf case. Ideally, both ;; would be unified. This would prevent bugs creeping in ;; such as the one fixed on Aug 16 2014 whereby :headers was ;; not included in the SVG/HTML case. (with-temp-file tex-file (insert (concat "\\documentclass[preview]{standalone} \\def\\pgfsysdriver{pgfsys-tex4ht.def} " (mapconcat (lambda (pkg) (concat "\\usepackage" pkg)) org-babel-latex-htlatex-packages "\n") (if headers (concat "\n" (if (listp headers) (mapconcat #'identity headers "\n") headers) "\n") "") "\\begin{document}" body "\\end{document}"))) (when (file-exists-p out-file) (delete-file out-file)) (let ((default-directory (file-name-directory tex-file))) (shell-command (format "%s %s" org-babel-latex-htlatex tex-file))) (cond ((file-exists-p (concat (file-name-sans-extension tex-file) "-1.svg")) (if (string-suffix-p ".svg" out-file) (progn (shell-command "pwd") (shell-command (format "mv %s %s" (concat (file-name-sans-extension tex-file) "-1.svg") out-file))) (error "SVG file produced but HTML file requested"))) ((file-exists-p (concat (file-name-sans-extension tex-file) ".html")) (if (string-suffix-p ".html" out-file) (shell-command "mv %s %s" (concat (file-name-sans-extension tex-file) ".html") out-file) (error "HTML file produced but SVG file requested"))))) ((or (string= "pdf" extension) imagemagick) (with-temp-file tex-file (require 'ox-latex) (insert (org-latex-guess-inputenc (org-splice-latex-header org-format-latex-header (delq nil (mapcar (lambda (el) (unless (and (listp el) (string= "hyperref" (cadr el))) el)) org-latex-default-packages-alist)) org-latex-packages-alist nil)) (if fit "\n\\usepackage[active, tightpage]{preview}\n" "") (if border (format "\\setlength{\\PreviewBorder}{%s}" border) "") (if height (concat "\n" (format "\\pdfpageheight %s" height)) "") (if width (concat "\n" (format "\\pdfpagewidth %s" width)) "") (if headers (concat "\n" (if (listp headers) (mapconcat #'identity headers "\n") headers) "\n") "") (if fit (concat "\n\\begin{document}\n\\begin{preview}\n" body "\n\\end{preview}\n\\end{document}\n") (concat "\n\\begin{document}\n" body "\n\\end{document}\n")))) (when (file-exists-p out-file) (delete-file out-file)) (let ((transient-pdf-file (org-babel-latex-tex-to-pdf tex-file))) (cond ((string= "pdf" extension) (rename-file transient-pdf-file out-file)) (imagemagick (org-babel-latex-convert-pdf transient-pdf-file out-file im-in-options im-out-options) (when (file-exists-p transient-pdf-file) (delete-file transient-pdf-file))) (t (error "Can not create %s files, please specify a .png or .pdf file or try the :imagemagick header argument" extension)))))) nil) ;; signal that output has already been written to file body)) ``` What do people think? This gives you much more control over how the latex is compiled and reuses existing functionality for previews.
next prev parent reply other threads:[~2020-02-04 21:19 UTC|newest] Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top 2020-02-04 7:39 Matt Huszagh 2020-02-04 21:19 ` Matt Huszagh [this message] 2020-02-04 23:38 ` Matt Huszagh 2020-02-10 7:21 ` Bastien [not found] ` <87y2lynft3.fsf@gmail.com> 2020-08-29 7:02 ` Matt Huszagh 2020-09-02 17:32 ` [PATCH] " Matt Huszagh 2020-09-02 18:53 ` Matt Huszagh 2020-09-06 6:18 ` Bastien 2020-09-09 19:43 ` Matt Huszagh 2020-10-24 12:30 ` Bastien 2020-10-24 16:39 ` Matt Huszagh 2020-12-14 8:19 ` Bastien 2020-09-06 5:59 ` Bastien
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style List information: https://www.orgmode.org/ * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=871rrayrsc.fsf@gmail.com \ --to=huszaghmatt@gmail.com \ --cc=emacs-orgmode@gnu.org \ --subject='Re: babel latex headers and image generation commands' \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: link
Code repositories for project(s) associated with this inbox: https://git.savannah.gnu.org/cgit/emacs/org-mode.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).