How to get a block’s contents by name

How to get a block’s contents by name

[George Mauer]

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

I'm trying to figure out how I could fetch the contents of another block by
name from an elisp script

I've seen `org-sbe` but I just want to get the block contents, (ideally
with noweb and vars filled in - just as it would be tangled if we were to
tangle it)

How do I do that?

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

Re: How to get a block’s contents by name

[Kyle Meyer]

George Mauer writes:

> I'm trying to figure out how I could fetch the contents of another block by
> name from an elisp script
>
> I've seen `org-sbe` but I just want to get the block contents, (ideally
> with noweb and vars filled in - just as it would be tangled if we were to
> tangle it)
>
> How do I do that?

How about something like this?

  (save-excursion
    (goto-char (org-babel-find-named-block "b"))
    (org-babel-expand-src-block))

Re: How to get a block’s contents by name

[George Mauer]

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

Well that pains me on a software-engineer-aip-design level but that works!
Thanks a lot.

On Fri, Nov 27, 2020 at 8:22 PM Kyle Meyer <kyle@kyleam.com> wrote:

> George Mauer writes:
>
> > I'm trying to figure out how I could fetch the contents of another block
> by
> > name from an elisp script
> >
> > I've seen `org-sbe` but I just want to get the block contents, (ideally
> > with noweb and vars filled in - just as it would be tangled if we were to
> > tangle it)
> >
> > How do I do that?
>
> How about something like this?
>
>   (save-excursion
>     (goto-char (org-babel-find-named-block "b"))
>     (org-babel-expand-src-block))
>

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

Re: How to get a block’s contents by name

[John Kitchin]

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

I would do this:

#+BEGIN_SRC emacs-lisp
(defun org-get-named-block-contents (name)
  (save-excursion
    (goto-char (point-min))
    (let ((regexp (org-babel-named-src-block-regexp-for-name name)))
      (or (and (looking-at regexp)
      (progn (goto-char (match-beginning 1))
     (line-beginning-position)))
 (ignore-errors (org-next-block 1 nil regexp)))
      (org-babel-expand-src-block))))
#+END_SRC

This is basically what org-babel-find-named-block does, with the
(org-babel-expand-src-block) return instead of the position. It avoids the
double save-excursion.

This is probably faster than any alternative that involves parsing the
buffer, especially for large buffers.
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 Fri, Nov 27, 2020 at 10:47 PM George Mauer <gmauer@gmail.com> wrote:

> Well that pains me on a software-engineer-aip-design level but that works!
> Thanks a lot.
>
> On Fri, Nov 27, 2020 at 8:22 PM Kyle Meyer <kyle@kyleam.com> wrote:
>
>> George Mauer writes:
>>
>> > I'm trying to figure out how I could fetch the contents of another
>> block by
>> > name from an elisp script
>> >
>> > I've seen `org-sbe` but I just want to get the block contents, (ideally
>> > with noweb and vars filled in - just as it would be tangled if we were
>> to
>> > tangle it)
>> >
>> > How do I do that?
>>
>> How about something like this?
>>
>>   (save-excursion
>>     (goto-char (org-babel-find-named-block "b"))
>>     (org-babel-expand-src-block))
>>
>

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