summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-08-26 21:30:50 -0400
committerKyle Meyer <kyle@kyleam.com>2015-08-26 21:30:50 -0400
commit23e565a67d3f2161d615386a0f1eb0194ca8dd57 (patch)
treee44b5674d5e29401fce299532180a33f558a9c3e
parentc1c0e1d0665cb47bcdfbc41a5a65dfcbdca0e0fe (diff)
downloademacs.d-23e565a67d3f2161d615386a0f1eb0194ca8dd57.tar.gz
Remove org-babel-delete-all-results
Command org-babel-remove-result-one-or-many can already do this.
-rw-r--r--lisp/init-org.el25
1 files changed, 0 insertions, 25 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el
index 37c49a0..be119e4 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -711,31 +711,6 @@ to be easily overriden.")
(emacs-lisp . t)
(latex . t)))
-(defun km/org-babel-delete-all-results ()
- "Delete Org babel result blocks."
- (interactive)
- (save-excursion
- (goto-char (point-min))
- (let ((res-regex (rx line-start "#+RESULTS"
- (zero-or-one "[" (one-or-more alnum)
- (zero-or-one "...") "]")
- ":" line-end)))
- (while (re-search-forward res-regex nil t)
- (let ((res-beg (point-at-bol)))
- (forward-line)
- (cond
- ((looking-at-p "^#\\+begin_example$")
- (re-search-forward "^#\\+end_example$")
- (delete-region res-beg (point)))
- ((looking-at-p "^: ")
- (re-search-forward "^[^:]")
- (delete-region res-beg (point)))
- (t
- (forward-line -1)
- (delete-region res-beg (point-at-eol)))))
- (when (looking-at-p "^\\s-$")
- (delete-blank-lines))))))
-
;;; Org Contacts