ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2019-12-15 10:02:57 +01:00
parent 26ace90042 bc9a92ee7b
commit 4f398cf84e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org.el
View File

@ -16554,12 +16554,16 @@ a HTML file."
(setq bg (org-latex-color :background)) (setq bg (org-latex-color :background))
(setq bg (org-latex-color-format (setq bg (org-latex-color-format
(if (string= bg "Transparent") "white" bg)))) (if (string= bg "Transparent") "white" bg))))
;; Remove TeX \par at end of snippet to avoid trailing space.
(if (string-suffix-p string "\n")
(aset string (1- (length string)) ?%)
(setq string (concat string "%")))
(with-temp-file texfile (with-temp-file texfile
(insert latex-header) (insert latex-header)
(insert "\n\\begin{document}\n" (insert "\n\\begin{document}\n"
"\\definecolor{fg}{rgb}{" fg "}\n" "\\definecolor{fg}{rgb}{" fg "}%\n"
"\\definecolor{bg}{rgb}{" bg "}\n" "\\definecolor{bg}{rgb}{" bg "}%\n"
"\n\\pagecolor{bg}\n" "\n\\pagecolor{bg}%\n"
"\n{\\color{fg}\n" "\n{\\color{fg}\n"
string string
"\n}\n" "\n}\n"