remove references to :OrgTangle [name]

This commit is contained in:
marshmallow 2023-06-26 00:00:35 +10:00
parent 9129c7ac51
commit 26a928f38e
No known key found for this signature in database
GPG key ID: 767B8880F5AAEB9C
3 changed files with 0 additions and 23 deletions

View file

@ -12,7 +12,6 @@ function M.setup(opts)
M._run_by_number = M._here .. "/run_by_number.el"
M._run_all = M._here .. "/run_all.el"
M._tangle_by_name = M._here .. "/tangle_by_name.el"
M._tangle_all = M._here .. "/tangle_all.el"
M._tangle_by_number = M._here .. "/tangle_by_number.el"

View file

@ -1,18 +0,0 @@
(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)