From 636c263e49e730dc54b337174c895e8d6967b4c7 Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Thu, 21 Dec 2023 12:09:09 +0100 Subject: [PATCH] Tangle early-init.el and init.el always into default-directory --- README.org | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/README.org b/README.org index 4a965eb..e30bfa2 100644 --- a/README.org +++ b/README.org @@ -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'."