Re: Extract source code /with/ captions

[Nick Dokos <ndokos@gmail.com>]

[I sent a follow-up that has not shown up yet(?) but
 perhaps this is more useful in any case]

James Harkins <jamshark70@gmail.com> writes:

> ELEMENT:
> (((#("25% coin toss in SuperCollider" 0 30 (:parent #2)))))
>
> This is correct, and I also see that I can use (plist-get ... :value)
> to get the code string.
>
> Here, I'm hung up on some (large?) gaps in my elisp knowledge. I have
> no idea what #(...) signifies, or what functions I can use to get the
> string out of it. "#" Is not an especially useful search term in
> google, bing etc...
>
> Can anyone help with my next step?
>
 
Try:

--8<---------------cut here---------------start------------->8---
 (defun hjh-print-src-blocks ()
 "Iterate src blocks from org-element and print them to *Messages*."
 (interactive)
 (let ((tree (org-element-parse-buffer)))
   (org-element-map tree 'src-block
     (lambda (element)
	(message "\n\n\nELEMENT:")
	(print (substring-no-properties (plist-get (car (cdr element)) :caption)))))))
--8<---------------cut here---------------end--------------->8---

Nick