Xjyuk

Why is there paternal, for fatherly, fraternal, for brotherly, but no similar word for sons?

What can a novel do that film and TV cannot?

Is の方 necessary here?

What is the maximum amount of diamond in one Minecraft game?

What do I need to see before Spider-Man: Far From Home?

Park the computer

How did Captain Marvel do this without dying?

Is there a standard definition of the "stall" phenomena?

Isn't "Dave's protocol" good if only the database, and not the code, is leaked?

How to reclaim personal item I've lent to the office without burning bridges?

What is the shape of the upper boundary of water hitting a screen?

Is it bad to suddenly introduce another element to your fantasy world a good ways into the story?

Does the Milky Way orbit around anything?

Do intermediate subdomains need to exist?

What does "in the course of" mean?

Way to see all encrypted fields in Salesforce?

Why do we need a bootloader separate from our application program in microcontrollers?

Why do Klingons use cloaking devices?

Is this standard Japanese employment negotiations, or am I missing something?

Do Goblin tokens count as Goblins?

Was the 45.9°C temperature in France in June 2019 the highest ever recorded in France?

Question about targeting a Hexproof creature

What is the highest level of accuracy in motion control a Victorian society could achieve?

Bypass with wrong cvv of debit card and getting OTP

Clear all code blocks

Python blocks evaled; elisp blocks not: org-babel export to latexDebugging code blocks in org modeUsing a function as an org-babel header argumentHow to execute named code blocks written in any language using a shell script?How can I start a server in the background from a source code block without freezing emacs?org alters output of bash code blocks when run with :sessionBabel + Python function definition with for loop causes IndentationErrorIpython code block producing org tableorg export processes code blocks even if located in noexport headlineSpacemacs org-mode python session plotting problem

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

2

1

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?

org-mode org-export org-babel

share|improve this question

asked 8 hours ago

Guilherme SaloméGuilherme Salomé

35433 silver badges1010 bronze badges

add a comment | 

2

1

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?

org-mode org-export org-babel

share|improve this question

asked 8 hours ago

Guilherme SaloméGuilherme Salomé

35433 silver badges1010 bronze badges

add a comment | 

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?

org-mode org-export org-babel

share|improve this question

asked 8 hours ago

Guilherme SaloméGuilherme Salomé

35433 silver badges1010 bronze badges

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

share|improve this question

asked 8 hours ago

Guilherme SaloméGuilherme Salomé

35433 silver badges1010 bronze badges

share|improve this question

asked 8 hours ago

Guilherme SaloméGuilherme Salomé

35433 silver badges1010 bronze badges

asked 8 hours ago

Guilherme SaloméGuilherme Salomé

35433 silver badges1010 bronze badges

asked 8 hours ago

Guilherme SaloméGuilherme Salomé

35433 silver badges1010 bronze badges

2 Answers
2

active

oldest

votes

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)))))

share|improve this answer

answered 7 hours ago

lawlistlawlist

11.2k11 gold badge1414 silver badges7171 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Works very well! Thanks for sharing! :D
  
  – Guilherme Salomé
  6 hours ago
  

  
  
  
  

add a comment | 

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))))

share|improve this answer

edited 5 hours ago

answered 6 hours ago

John KitchinJohn Kitchin

6,21611 gold badge55 silver badges2020 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Your code looks very neat! I'm sorry if I am confused but I think your code is removing the results part of the code block, while I was looking for something to remove the contents (the code) inside the code block.
  
  – Guilherme Salomé
  6 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Indeed, I misread the first question! I updated my answer with a similar approach to remove the contents.
  
  – John Kitchin
  5 hours ago
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "583"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2femacs.stackexchange.com%2fquestions%2f51373%2fclear-all-code-blocks%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

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)))))

share|improve this answer

answered 7 hours ago

lawlistlawlist

11.2k11 gold badge1414 silver badges7171 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Works very well! Thanks for sharing! :D
  
  – Guilherme Salomé
  6 hours ago
  

  
  
  
  

add a comment | 

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)))))

share|improve this answer

answered 7 hours ago

lawlistlawlist

11.2k11 gold badge1414 silver badges7171 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Works very well! Thanks for sharing! :D
  
  – Guilherme Salomé
  6 hours ago
  

  
  
  
  

add a comment | 

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)))))

share|improve this answer

answered 7 hours ago

lawlistlawlist

11.2k11 gold badge1414 silver badges7171 bronze badges

(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)))))

share|improve this answer

answered 7 hours ago

lawlistlawlist

11.2k11 gold badge1414 silver badges7171 bronze badges

answered 7 hours ago

lawlistlawlist

11.2k11 gold badge1414 silver badges7171 bronze badges

answered 7 hours ago

lawlistlawlist

11.2k11 gold badge1414 silver badges7171 bronze badges

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))))

share|improve this answer

edited 5 hours ago

answered 6 hours ago

John KitchinJohn Kitchin

6,21611 gold badge55 silver badges2020 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Your code looks very neat! I'm sorry if I am confused but I think your code is removing the results part of the code block, while I was looking for something to remove the contents (the code) inside the code block.
  
  – Guilherme Salomé
  6 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Indeed, I misread the first question! I updated my answer with a similar approach to remove the contents.
  
  – John Kitchin
  5 hours ago
  

  
  
  
  

add a comment | 

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))))

share|improve this answer

edited 5 hours ago

answered 6 hours ago

John KitchinJohn Kitchin

6,21611 gold badge55 silver badges2020 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Your code looks very neat! I'm sorry if I am confused but I think your code is removing the results part of the code block, while I was looking for something to remove the contents (the code) inside the code block.
  
  – Guilherme Salomé
  6 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Indeed, I misread the first question! I updated my answer with a similar approach to remove the contents.
  
  – John Kitchin
  5 hours ago
  

  
  
  
  

add a comment | 

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))))

share|improve this answer

edited 5 hours ago

answered 6 hours ago

John KitchinJohn Kitchin

6,21611 gold badge55 silver badges2020 bronze badges

(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))))

(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))))

share|improve this answer

edited 5 hours ago

answered 6 hours ago

John KitchinJohn Kitchin

6,21611 gold badge55 silver badges2020 bronze badges

answered 6 hours ago

John KitchinJohn Kitchin

6,21611 gold badge55 silver badges2020 bronze badges

answered 6 hours ago

John KitchinJohn Kitchin

6,21611 gold badge55 silver badges2020 bronze badges