19 lines
523 B
EmacsLisp
19 lines
523 B
EmacsLisp
|
(defun tangle-block-by-name (block-name)
|
||
|
|
"Tangle the org-babel code block with name BLOCK-NAME."
|
||
|
|
(save-excursion
|
||
|
|
(goto-char (point-min))
|
||
|
|
(while (re-search-forward (format "#\\+NAME: %s" block-name) nil t)
|
||
|
|
(if (org-babel-get-src-block-info)
|
||
|
|
(org-babel-tangle-collect-block)))))
|
||
|
|
|
||
|
|
|
||
|
|
(setq org-confirm-babel-evaluate nil)
|
||
|
|
(find-file (nth 0 command-line-args-left))
|
||
|
|
|
||
|
|
(dolist (block-name (nthcdr 1 command-line-args-left))
|
||
|
|
(tangle-block-by-name block-name))
|
||
|
|
|
||
|
|
(save-buffer)
|
||
|
|
(save-buffers-kill-emacs)
|
||
|
|
|