snmyj/orgmode-babel.nvim
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

init

Browse source
This commit is contained in:
marshmallow 2023-06-25 01:23:27 +10:00
commit a870d79674
No known key found for this signature in database
GPG key ID: 767B8880F5AAEB9C
8 changed files with 604 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lua/orgmode-babel/tangle_by_number.el Normal file
View file

@ -0,0 +1,19 @@
(defun tangle-specific-org-babel-block-by-number (block-number)
"Tangle a specific org-mode code block, specified by number."
(save-excursion
(goto-char (point-min))
(let ((counter -1))
(while (re-search-forward "#\\+begin_src" nil t)
(setq counter (1+ counter))
(when (= counter block-number)
(org-babel-tangle '(4)))))))
(setq org-confirm-babel-evaluate nil)
(find-file (nth 0 command-line-args-left))
(dolist (block-number (mapcar #'string-to-number (nthcdr 1 command-line-args-left)))
(tangle-specific-org-babel-block-by-number block-number))
(save-buffer)
(save-buffers-kill-emacs)