merge: pull request #5550 from tecosaur/org-msg-quick-fixes

fix(mu4e): minor errors with org-msg LaTeX eqns
This commit is contained in:
Henrik Lissner 2021-10-03 12:51:12 +02:00 committed by GitHub
commit 7f54afef55
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -39,7 +39,7 @@ clicked."
"For a given IMG-URI, use imagemagick to find its width."
(if +org-msg-currently-exporting
(when (and (not IS-WINDOWS)) ; relies on posix path
(let ((with-call (and (executable-find "identify")
(let ((width-call (and (executable-find "identify")
(doom-call-process "identify" "-format" "%w"
(substring img-uri 7))))) ; 7=(length "file://")
(unless width-call
@ -55,7 +55,7 @@ clicked."
(/ 1.0 (plist-get org-format-latex-options :scale))))))
;;;###autoload
(defun +org-html-latex-fragment-scaled-a (latex-fragment _contents info)
(defun +org-html-latex-fragment-scaled-a (latex-fragment _contents info)
"Transcode a LATEX-FRAGMENT object from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information.
@ -74,7 +74,7 @@ account for the value of :scale in `org-format-latex-options'."
(let ((formula-link
(org-html-format-latex latex-frag processing-type info)))
(when (and formula-link (string-match "file:\\([^]]*\\)" formula-link))
(let ((source (org-export-file-uri (match-string 1 formula-link)))
(let* ((source (org-export-file-uri (match-string 1 formula-link)))
(attributes (append (list :alt latex-frag
:class
(concat "latex-fragment-"
@ -86,7 +86,7 @@ account for the value of :scale in `org-format-latex-options'."
(t latex-frag))))
;;;###autoload
(defun +org-html-latex-environment-scaled-a (latex-environment _contents info)
(defun +org-html-latex-environment-scaled-a (latex-environment _contents info)
"Transcode a LATEX-ENVIRONMENT element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information.