emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

config/literate: don't tangle file in this session

Browse source 
org-babel-tangle-file has reportedly killed config.org buffers, despite
them being visited. Since we're not doing anything with the return
value, may as well keep it in a separate process.
This commit is contained in:
Henrik Lissner 2019-03-28 14:32:16 -04:00
parent af37f9af58
commit 92e604d0dc
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/config/literate/init.el
View file

@ -18,15 +18,13 @@ byte-compiled from.")
(when (or force-p (file-newer-than-file-p org +literate-config-cache-file)) (when (or force-p (file-newer-than-file-p org +literate-config-cache-file))
(message "Compiling your literate config...") (message "Compiling your literate config...")
(or (and (if (fboundp 'org-babel-tangle-file) ;; We tangle in a separate, blank process because loading it here would
(org-babel-tangle-file org nil "emacs-lisp") ;; load all of :lang org (very expensive!).
;; We tangle in a separate, blank process because loading it here (or (and (zerop (call-process
;; would load all of :lang org (very expensive!). "emacs" nil nil nil
(zerop (call-process "-q" "--batch" "-l" "ob-tangle" "--eval"
"emacs" nil nil nil (format "(org-babel-tangle-file %S nil \"emacs-lisp\")"
"-q" "--batch" "-l" "ob-tangle" "--eval" org)))
(format "(org-babel-tangle-file %S nil \"emacs-lisp\")"
org))))
;; Write the cache file to serve as our mtime cache ;; Write the cache file to serve as our mtime cache
(with-temp-file +literate-config-cache-file t)) (with-temp-file +literate-config-cache-file t))
(warn "There was a problem tangling your literate config!")) (warn "There was a problem tangling your literate config!"))