diff --git a/README.org b/README.org index c2458bd..a6b7b0a 100644 --- a/README.org +++ b/README.org @@ -67,10 +67,6 @@ Tangles all blocks in range. If the range is NOT ~%~, the tangled file will likely only contain the contents of the last block, which is expected behaviour. -*** ~:OrgT[angle] [name]~ - -Tangles ~[name]~ block. - ** Advanced Configuration *** Adding extra org-mode languages diff --git a/lua/orgmode-babel/init.lua b/lua/orgmode-babel/init.lua index 24ec620..d57e6ec 100644 --- a/lua/orgmode-babel/init.lua +++ b/lua/orgmode-babel/init.lua @@ -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" diff --git a/lua/orgmode-babel/tangle_by_name.el b/lua/orgmode-babel/tangle_by_name.el deleted file mode 100644 index c0fad1c..0000000 --- a/lua/orgmode-babel/tangle_by_name.el +++ /dev/null @@ -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) -