From bdb93a13a43d90ad6e66449797111e836a67a219 Mon Sep 17 00:00:00 2001 From: Matt Huszagh Date: Thu, 5 Dec 2019 23:25:32 -0800 Subject: [PATCH] org.el: Remove leading/trailing whitespace from latex fragment * lisp/org.el (org-create-formula-image): Ensure user input ends with a % character to remove trailing whitespace. Also, add % characters between macros and newlines purely visual. --- lisp/org.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 9b84592ba..ae686e330 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16554,12 +16554,17 @@ a HTML file." (setq bg (org-latex-color :background)) (setq bg (org-latex-color-format (if (string= bg "Transparent") "white" bg)))) + ;; remove tex \par at end of snippet to avoid trailing + ;; whitespace + (if (string= (substring string -1 nil) "\n") + (aset string (- (length string) 1) ?%) + (setq string (concat string "%"))) (with-temp-file texfile (insert latex-header) (insert "\n\\begin{document}\n" - "\\definecolor{fg}{rgb}{" fg "}\n" - "\\definecolor{bg}{rgb}{" bg "}\n" - "\n\\pagecolor{bg}\n" + "\\definecolor{fg}{rgb}{" fg "}%\n" + "\\definecolor{bg}{rgb}{" bg "}%\n" + "\n\\pagecolor{bg}%\n" "\n{\\color{fg}\n" string "\n}\n" -- 2.24.0