Infinidoge/universe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

doom/org: save excursion when formatting org src blocks

Browse source
This commit is contained in:
Infinidoge 2024-06-26 09:17:51 -04:00
parent 149ff46429
commit a00395207e
Signed by: Infinidoge
SSH key fingerprint: SHA256:oAMyvotlNFraMmZmr+p6AxnNfW/GioTs1pOn3V4tQ7A
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
users/infinidoge/config/doom/config/org.el
View file

@ -30,10 +30,11 @@
;; Run formatters in org src blocks on save ;; Run formatters in org src blocks on save
(defun infinidoge/format-org-src-blocks () (defun infinidoge/format-org-src-blocks ()
(org-babel-map-src-blocks nil (save-excursion
(if (equal (alist-get :format (org-babel-parse-header-arguments header-args) "yes") (org-babel-map-src-blocks nil
"yes") (if (equal (alist-get :format (org-babel-parse-header-arguments header-args) "yes")
(+format--org-region nil nil)))) "yes")
(+format--org-region nil nil)))))
(add-hook 'before-save-hook 'infinidoge/format-org-src-blocks) (add-hook 'before-save-hook 'infinidoge/format-org-src-blocks)