gav451
/
emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Tangle early-init.el and init.el always into default-directory

This commit is contained in:
Gerard Vermeulen 2023-12-21 12:09:09 +01:00
parent f63760a0ad
commit 636c263e49
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
README.org
View File

@ -2403,9 +2403,11 @@ May be changed by `toggle-post-tangle-hook-dir-usage'."
"Function to hook on `org-babel-post-tangle-hook'."
(when (and org-babel-post-tangle-dir
(derived-mode-p org-babel-post-tangle-dir-modes))
(message "Tangle `%S' modes into `%S'"
org-babel-post-tangle-dir-modes org-babel-post-tangle-dir)
(rename-file (buffer-file-name) org-babel-post-tangle-dir t)))
(let ((bfn (buffer-file-name)))
(unless (string-suffix-p "init.el" bfn)
(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 ()
"Toggle tangling to `org-babel-post-tangle-dir'."