feat(confpkg): restrict initialization hook

Restrict the babel calls triggered during tangling to those containing
"confpkg" in their name, rather than all babel call statements.
This commit is contained in:
Kiana Sheibani 2024-07-22 12:27:46 -04:00
parent e2ae7b0736
commit 5861e16b92
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -119,9 +119,10 @@ Luckily, I don't need to be able to understand code in order to do what I do bes
If you're reading the raw org file instead of the published version, the code for =confpkg= is below. It is mostly unchanged, aside from these tweaks: If you're reading the raw org file instead of the published version, the code for =confpkg= is below. It is mostly unchanged, aside from these tweaks:
- Prevent =confpkg='s code from being exported
- Change the package template to contain my information - Change the package template to contain my information
- Reorganize to get rid of superfluous noweb references - Reorganize to get rid of superfluous noweb references
- Prevent the code from being exported - Hook into only babel calls that contain =confpkg= as a substring
- Allow package statements anywhere in subconfig files, rather than only at the beginning - Allow package statements anywhere in subconfig files, rather than only at the beginning
** confpkg :noexport: ** confpkg :noexport:
@ -135,8 +136,10 @@ If you're reading the raw org file instead of the published version, the code fo
(message "Intitialising confpkg") (message "Intitialising confpkg")
(org-fold-core-ignore-fragility-checks (org-fold-core-ignore-fragility-checks
(org-babel-map-executables nil (org-babel-map-executables nil
(when (eq (org-element-type (org-element-context)) 'babel-call) (let ((context (org-element-context)))
(org-babel-lob-execute-maybe))))) (and (eq (org-element-type context) 'babel-call)
(string-match-p "confpkg" (org-element-property :call context))
(org-babel-lob-execute-maybe))))))
(quit (revert-buffer t t t))) (quit (revert-buffer t t t)))
#+end_src #+end_src