20 lines
637 B
EmacsLisp
20 lines
637 B
EmacsLisp
|
(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)
|
||
|
|
|