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

Use more descriptive names

Browse Source
This commit is contained in:
Gerard Vermeulen 2022-05-09 07:21:12 +02:00
parent 1ed603ba5d
commit 575584fdd4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.org
View File

@ -2010,7 +2010,7 @@ variables in order to export the =info-org-link= types in this document to
#+name: lst:load-time-specific-source-block-evaluation #+name: lst:load-time-specific-source-block-evaluation
#+begin_src emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load 'emacs (with-eval-after-load 'emacs
(defun org-eval-infixed-blocks (infix) (defun org-eval-named-blocks-with-infix (infix)
"Evaluate all source blocks having INFIX in their name." "Evaluate all source blocks having INFIX in their name."
(when (eq major-mode 'org-mode) (when (eq major-mode 'org-mode)
(let ((blocks (let ((blocks
@ -2026,12 +2026,12 @@ variables in order to export the =info-org-link= types in this document to
(defun org-eval-emacs-lisp-setup-blocks () (defun org-eval-emacs-lisp-setup-blocks ()
"Evaluate all source blocks having \"emacs-lisp-setup\" in their name." "Evaluate all source blocks having \"emacs-lisp-setup\" in their name."
(interactive) (interactive)
(org-eval-infixed-blocks "emacs-lisp-setup")) (org-eval-named-blocks-with-infix "emacs-lisp-setup"))
(defun org-eval-python-setup-blocks () (defun org-eval-python-setup-blocks ()
"Evaluate all source blocks having \"python-setup\" in their name." "Evaluate all source blocks having \"python-setup\" in their name."
(interactive) (interactive)
(org-eval-infixed-blocks "python-setup")) (org-eval-named-blocks-with-infix "python-setup"))
;; Emacs looks for "Local variables:" after the last "?\n?\f". ;; 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-emacs-lisp-setup-blocks)))