Tangle early-init.el and init.el always into default-directory
This commit is contained in:
parent
f63760a0ad
commit
636c263e49
|
@ -2403,9 +2403,11 @@ May be changed by `toggle-post-tangle-hook-dir-usage'."
|
||||||
"Function to hook on `org-babel-post-tangle-hook'."
|
"Function to hook on `org-babel-post-tangle-hook'."
|
||||||
(when (and org-babel-post-tangle-dir
|
(when (and org-babel-post-tangle-dir
|
||||||
(derived-mode-p org-babel-post-tangle-dir-modes))
|
(derived-mode-p org-babel-post-tangle-dir-modes))
|
||||||
(message "Tangle `%S' modes into `%S'"
|
(let ((bfn (buffer-file-name)))
|
||||||
org-babel-post-tangle-dir-modes org-babel-post-tangle-dir)
|
(unless (string-suffix-p "init.el" bfn)
|
||||||
(rename-file (buffer-file-name) org-babel-post-tangle-dir t)))
|
(message "Tangle file `%S' into `%S'"
|
||||||
|
(file-name-nondirectory bfn) org-babel-post-tangle-dir)
|
||||||
|
(rename-file bfn org-babel-post-tangle-dir t)))))
|
||||||
|
|
||||||
(defun toggle-post-tangle-hook-dir-usage ()
|
(defun toggle-post-tangle-hook-dir-usage ()
|
||||||
"Toggle tangling to `org-babel-post-tangle-dir'."
|
"Toggle tangling to `org-babel-post-tangle-dir'."
|
||||||
|
|
Loading…
Reference in New Issue