From 33df0147982f895173d42e3d95bca57dde2a2296 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20=C5=A0o=C5=A1i=C4=87?= Date: Thu, 31 Oct 2024 00:07:23 +0100 Subject: [PATCH 1/2] Improved automatic tangling logic in Emacs.org --- Emacs.org | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/Emacs.org b/Emacs.org index 0f27905..a3fb4fc 100644 --- a/Emacs.org +++ b/Emacs.org @@ -612,15 +612,11 @@ This snippet adds a hook to =org-mode= buffers so that =efs/org-babel-tangle-con #+begin_src emacs-lisp - ;; Automatically tangle our Emacs.org config file when we save it - (defun efs/org-babel-tangle-config () - (when (string-equal (file-name-directory (buffer-file-name)) - (expand-file-name user-emacs-directory)) - ;; Dynamic scoping to the rescue - (let ((org-confirm-babel-evaluate nil)) - (org-babel-tangle)))) - - (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'efs/org-babel-tangle-config))) + ;; Automatically tangle any org file in our emacs directory when we save it. + (add-hook 'org-mode-hook (lambda () + (when (string-equal (file-name-directory (buffer-file-name)) (expand-file-name user-emacs-directory)) + (add-hook 'after-save-hook (lambda () + (let ((org-confirm-babel-evaluate nil)) (org-babel-tangle))))))) #+end_src From be39252d601925de9e820361cdc66c857022d02e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20=C5=A0o=C5=A1i=C4=87?= Date: Fri, 1 Nov 2024 15:32:34 +0100 Subject: [PATCH 2/2] Update Emacs.org fix --- Emacs.org | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Emacs.org b/Emacs.org index a3fb4fc..e01eb77 100644 --- a/Emacs.org +++ b/Emacs.org @@ -613,10 +613,11 @@ This snippet adds a hook to =org-mode= buffers so that =efs/org-babel-tangle-con #+begin_src emacs-lisp ;; Automatically tangle any org file in our emacs directory when we save it. + (defun my/org-babel-tangle-no-confirm () + (let ((org-confirm-babel-evaluate nil)) (org-babel-tangle))) (add-hook 'org-mode-hook (lambda () (when (string-equal (file-name-directory (buffer-file-name)) (expand-file-name user-emacs-directory)) - (add-hook 'after-save-hook (lambda () - (let ((org-confirm-babel-evaluate nil)) (org-babel-tangle))))))) + (add-hook 'after-save-hook 'my/org-babel-tangle-no-confirm nil t))) #+end_src