emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
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.

  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).