awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix #4010: respect custom org-export-async-init-file

Browse Source
This commit is contained in:
Henrik Lissner
2020-10-16 04:09:28 -04:00
parent 2e476de446
commit a835be1c40
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
modules/lang/org/config.el
View File

@ -483,13 +483,14 @@ the exported output (i.e. formatters)."
:around #'org-export-to-file :around #'org-export-to-file
(if (not org-export-in-background) (if (not org-export-in-background)
(apply orig-fn args) (apply orig-fn args)
(let ((user-init-file (or org-export-async-init-file user-init-file)))
(setq org-export-async-init-file (make-temp-file "doom-org-async-export")) (setq org-export-async-init-file (make-temp-file "doom-org-async-export"))
(with-temp-file org-export-async-init-file (with-temp-file org-export-async-init-file
(prin1 `(progn (setq org-export-async-debug ,debug-on-error (prin1 `(progn (setq org-export-async-debug ,debug-on-error
load-path ',load-path) load-path ',load-path)
(load ,user-init-file nil t)) (load ,user-init-file nil t))
(current-buffer))) (current-buffer)))
(apply orig-fn args)))) (apply orig-fn args)))))
(defun +org-init-habit-h () (defun +org-init-habit-h ()