Clear all code blocks

Question

Say you have an org file with several code blocks like the one below:

#+BEGIN_SRC jupyter-python :session py :results silent :async yes
stuff
more stuff
even more stuff
#+END_SRC

Question: Is there any function that would clear the contents of all code blocks, while leaving the code block declaration in place?

Answer 1

I do not know whether there is an existing function to clear all org source blocks, but here is a quick example of how to do it.

CAVEAT: This example does not check for broken source code blocks; e.g., the code assumes there is a matching beginning/ending.

(defun org-clear-src-blocks ()
"Clear src code blocks."
(interactive)
  (save-excursion
    (goto-char (point-max))
    (while (re-search-backward "#\\+END_SRC" nil t)
      (let ((reg-end (point))
            reg-beg)
        (re-search-backward "#\\+BEGIN_SRC" nil t)
        (setq reg-beg (1+ (line-end-position)))
        (delete-region reg-beg reg-end)))))

Answer 2

I use code like this to do that.

(defun scimax-ob-clear-all-contents ()
  "Clear all src-block contents in the buffer."
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (org-babel-next-src-block)
      (org-edit-special)
      (delete-region (point-min) (point-max))
      (org-edit-src-exit))))

If you just want to remove all the results, I use this.

(defun scimax-ob-clear-all-results ()
  "Clear all results in the buffer."
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (org-babel-next-src-block)
      (org-babel-remove-result))))