From 1ed603ba5dfa8b72362025ebbeecf33345ac0f3c Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Mon, 9 May 2022 06:30:13 +0200 Subject: [PATCH] Evaluate specific Python source blocks only interactively --- README.org | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/README.org b/README.org index d93b542..354a9fe 100644 --- a/README.org +++ b/README.org @@ -2025,15 +2025,16 @@ variables in order to export the =info-org-link= types in this document to (defun org-eval-emacs-lisp-setup-blocks () "Evaluate all source blocks having \"emacs-lisp-setup\" in their name." + (interactive) (org-eval-infixed-blocks "emacs-lisp-setup")) (defun org-eval-python-setup-blocks () "Evaluate all source blocks having \"python-setup\" in their name." + (interactive) (org-eval-infixed-blocks "python-setup")) ;; Emacs looks for "Local variables:" after the last "?\n?\f". - (add-to-list 'safe-local-eval-forms '(org-eval-emacs-lisp-setup-blocks)) - (add-to-list 'safe-local-eval-forms '(org-eval-python-setup-blocks))) + (add-to-list 'safe-local-eval-forms '(org-eval-emacs-lisp-setup-blocks))) (with-eval-after-load 'emacs (defun my-org-eval-blocks-named (infix) @@ -2051,9 +2052,7 @@ variables in order to export the =info-org-link= types in this document to ;; Emacs looks for "Local variables:" after the last "?\n?\f". (add-to-list 'safe-local-eval-forms - '(apply 'my-org-eval-blocks-named '("emacs-lisp-setup"))) - (add-to-list 'safe-local-eval-forms - '(apply 'my-org-eval-blocks-named '("python-setup")))) + '(apply 'my-org-eval-blocks-named '("emacs-lisp-setup")))) #+end_src *** [[info:org#LaTeX header and sectioning][Easy LaTeX preamble editing]]