Scripting with org-mode

Scripting with org-mode

[Shakthi Kannan]

Hi,

Is there a way to execute all the org-mode code blocks in a file, and
send the output to stdout?

For example, I have the following org file:

=== BEGIN ===

* Greeting

#+BEGIN_SRC sh :results output
  echo "Hello $USER! Today is `date`"
#+END_SRC

* Current directory

#+BEGIN_SRC sh :results output
  pwd
#+END_SRC

=== END ===

I could go to each code block, and type C-c C-c to produce an output.
But, I just want to be able to execute the entire file, and produce
one single output.

Is this possible?

SK

-- 
Shakthi Kannan
http://www.shakthimaan.com

Re: Scripting with org-mode

[briangpowell .]

[-- Attachment #1: Type: text/plain, Size: 962 bytes --]

* Assuming that entire file is made up of shell commands (like the ones in
the example you gave) since, in such a case as your example the "#" in the
first column would ignore the rest of the lines as comments:

M<
Mx set-mark
M>
Mx shell-command-on-region

On Mon, Nov 30, 2015 at 11:43 AM, Shakthi Kannan <shakthimaan@gmail.com>
wrote:

> Hi,
>
> Is there a way to execute all the org-mode code blocks in a file, and
> send the output to stdout?
>
> For example, I have the following org file:
>
> === BEGIN ===
>
> * Greeting
>
> #+BEGIN_SRC sh :results output
>   echo "Hello $USER! Today is `date`"
> #+END_SRC
>
> * Current directory
>
> #+BEGIN_SRC sh :results output
>   pwd
> #+END_SRC
>
> === END ===
>
> I could go to each code block, and type C-c C-c to produce an output.
> But, I just want to be able to execute the entire file, and produce
> one single output.
>
> Is this possible?
>
> SK
>
> --
> Shakthi Kannan
> http://www.shakthimaan.com
>
>

[-- Attachment #2: Type: text/html, Size: 1600 bytes --]

Re: Scripting with org-mode

[John Kitchin]

I think one of these will do what you want:

** Rerun all src blocks

#+BEGIN_SRC emacs-lisp
(defun run-blocks ()
  (interactive)
  (save-excursion
    (org-element-map (org-element-parse-buffer) 'src-block
      (lambda (src-block)
        (goto-char (org-element-property :begin src-block))
        (org-babel-execute-src-block)))))


#+END_SRC

#+RESULTS:
: run-blocks


#+BEGIN_SRC emacs-lisp
(defun run-blocks-2 ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "^#\\+BEGIN_SRC" nil t)
      (org-babel-execute-src-block))))
#+END_SRC
#+RESULTS:





Shakthi Kannan writes:

> Hi,
>
> Is there a way to execute all the org-mode code blocks in a file, and
> send the output to stdout?
>
> For example, I have the following org file:
>
> === BEGIN ===
>
> * Greeting
>
> #+BEGIN_SRC sh :results output
>   echo "Hello $USER! Today is `date`"
> #+END_SRC
>
> * Current directory
>
> #+BEGIN_SRC sh :results output
>   pwd
> #+END_SRC
>
> === END ===
>
> I could go to each code block, and type C-c C-c to produce an output.
> But, I just want to be able to execute the entire file, and produce
> one single output.
>
> Is this possible?
>
> SK

--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu

Re: Scripting with org-mode

[Nick Dokos]

John Kitchin <jkitchin@andrew.cmu.edu> writes:

> I think one of these will do what you want:
>
> ** Rerun all src blocks
>
> #+BEGIN_SRC emacs-lisp
> (defun run-blocks ()
>   (interactive)
>   (save-excursion
>     (org-element-map (org-element-parse-buffer) 'src-block
>       (lambda (src-block)
>         (goto-char (org-element-property :begin src-block))
>         (org-babel-execute-src-block)))))
>
>
> #+END_SRC
>
> #+RESULTS:
> : run-blocks
>
>
> #+BEGIN_SRC emacs-lisp
> (defun run-blocks-2 ()
>   (interactive)
>   (save-excursion
>     (goto-char (point-min))
>     (while (re-search-forward "^#\\+BEGIN_SRC" nil t)
>       (org-babel-execute-src-block))))
> #+END_SRC
> #+RESULTS:
>
>
>
>
>
> Shakthi Kannan writes:
>
>> Hi,
>>
>> Is there a way to execute all the org-mode code blocks in a file, and
>> send the output to stdout?
>>
>> For example, I have the following org file:
>>
>> === BEGIN ===
>>
>> * Greeting
>>
>> #+BEGIN_SRC sh :results output
>>   echo "Hello $USER! Today is `date`"
>> #+END_SRC
>>
>> * Current directory
>>
>> #+BEGIN_SRC sh :results output
>>   pwd
>> #+END_SRC
>>
>> === END ===
>>
>> I could go to each code block, and type C-c C-c to produce an output.
>> But, I just want to be able to execute the entire file, and produce
>> one single output.
>>
>> Is this possible?
>>


IIUC, org-babel-execute-buffer is exactly what the OP
needs.

--
Nick

Re: Scripting with org-mode

[John Kitchin]

[-- Attachment #1: Type: text/plain, Size: 1881 bytes --]

of course there is a simpler way ;)

John

-----------------------------------
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu


On Mon, Nov 30, 2015 at 3:22 PM, Nick Dokos <ndokos@gmail.com> wrote:

> John Kitchin <jkitchin@andrew.cmu.edu> writes:
>
> > I think one of these will do what you want:
> >
> > ** Rerun all src blocks
> >
> > #+BEGIN_SRC emacs-lisp
> > (defun run-blocks ()
> >   (interactive)
> >   (save-excursion
> >     (org-element-map (org-element-parse-buffer) 'src-block
> >       (lambda (src-block)
> >         (goto-char (org-element-property :begin src-block))
> >         (org-babel-execute-src-block)))))
> >
> >
> > #+END_SRC
> >
> > #+RESULTS:
> > : run-blocks
> >
> >
> > #+BEGIN_SRC emacs-lisp
> > (defun run-blocks-2 ()
> >   (interactive)
> >   (save-excursion
> >     (goto-char (point-min))
> >     (while (re-search-forward "^#\\+BEGIN_SRC" nil t)
> >       (org-babel-execute-src-block))))
> > #+END_SRC
> > #+RESULTS:
> >
> >
> >
> >
> >
> > Shakthi Kannan writes:
> >
> >> Hi,
> >>
> >> Is there a way to execute all the org-mode code blocks in a file, and
> >> send the output to stdout?
> >>
> >> For example, I have the following org file:
> >>
> >> === BEGIN ===
> >>
> >> * Greeting
> >>
> >> #+BEGIN_SRC sh :results output
> >>   echo "Hello $USER! Today is `date`"
> >> #+END_SRC
> >>
> >> * Current directory
> >>
> >> #+BEGIN_SRC sh :results output
> >>   pwd
> >> #+END_SRC
> >>
> >> === END ===
> >>
> >> I could go to each code block, and type C-c C-c to produce an output.
> >> But, I just want to be able to execute the entire file, and produce
> >> one single output.
> >>
> >> Is this possible?
> >>
>
>
> IIUC, org-babel-execute-buffer is exactly what the OP
> needs.
>
> --
> Nick
>
>
>

[-- Attachment #2: Type: text/html, Size: 3083 bytes --]

Re: Scripting with org-mode

[Shakthi Kannan]

Hi,

--- On Tue, Dec 1, 2015 at 1:52 AM, Nick Dokos <ndokos@gmail.com> wrote:
| IIUC, org-babel-execute-buffer is exactly what the OP
| needs.
\--

Yes, that did it. Thanks!

SK

-- 
Shakthi Kannan
http://www.shakthimaan.com