Format output of org-babel-tangle for exported file

Format output of org-babel-tangle for exported file

[Rainer M Krug]

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

Hi

I am calling (org-bable-tangle) in a code block in an org file and I
would show the files resulting from the tangling in a nice format.

But I do not manage. I have the following at the moment:

--8<---------------cut here---------------start------------->8---
#+begin_src emacs-lisp 
(replace-regexp-in-string "[)\"]" ""
     (replace-regexp-in-string "[(]" "- "
          (replace-regexp-in-string " " "\n- "
               (prin1-to-string (org-babel-tangle)))))
#+end_src

#+RESULTS:
#+begin_example
- /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.el
- /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.makefile
- /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.RDescr
- ./R/SDI.R
- ./R/plot.frontier.R
- ./R/selectPlotsVallet.R
- ./R/loadIFNstl.R
- ./R/loadIFNqmd.R
- ./R/loadIFNcompetition.R
- ./R/loadIFN.R
- ./R/initializeAnalysis.R
- /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.R
#+end_example
--8<---------------cut here---------------end--------------->8---

Which is neither elegant nor short, and I am sure I could do this
easier. Any suggestions?

Rainer

-- 
Rainer M. Krug
email: Rainer<at>krugs<dot>de
PGP: 0x0F52F982

[-- Attachment #2: Type: application/pgp-signature, Size: 494 bytes --]

Re: Format output of org-babel-tangle for exported file

[Rainer M Krug]

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


Some further information, as I just realized that it is not working:
In the message buffer I get the following output:
,----
| executing Emacs-Lisp code block...
| Saving file /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.org...
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.org
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.R [7 times]
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/initializeAnalysis.R [8 times]
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/loadIFN.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/loadIFNcompetition.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/loadIFNqmd.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/loadIFNstl.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/selectPlotsVallet.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/plot.frontier.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/SDI.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.R [11 times]
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.RDescr
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.makefile [7 times]
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.el [7 times]
| Tangled 48 code blocks from prodMixStands.org
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.RDescr
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/SDI.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/plot.frontier.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/selectPlotsVallet.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/loadIFNstl.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/loadIFNqmd.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/loadIFNcompetition.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/loadIFN.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/R/initializeAnalysis.R
| Wrote /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.R
| Code block evaluation complete.
`----

So not all files tangled are passed on in the script (I assume because
of the length?). In addition, not all files resulting from the tangling
are in the message buffer (I am tangling a ./DESCRIPTION file as well).

How can I get all names resulting from the tangling in the results block
of the code block?

Rainer


Rainer M Krug <Rainer@krugs.de> writes:

> Hi
>
> I am calling (org-bable-tangle) in a code block in an org file and I
> would show the files resulting from the tangling in a nice format.
>
> But I do not manage. I have the following at the moment:
>
> #+begin_src emacs-lisp 
> (replace-regexp-in-string "[)\"]" ""
>      (replace-regexp-in-string "[(]" "- "
>           (replace-regexp-in-string " " "\n- "
>                (prin1-to-string (org-babel-tangle)))))
> #+end_src
>
> #+RESULTS:
> #+begin_example
> - /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.el
> - /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.makefile
> - /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.RDescr
> - ./R/SDI.R
> - ./R/plot.frontier.R
> - ./R/selectPlotsVallet.R
> - ./R/loadIFNstl.R
> - ./R/loadIFNqmd.R
> - ./R/loadIFNcompetition.R
> - ./R/loadIFN.R
> - ./R/initializeAnalysis.R
> - /Users/rainerkrug/Documents/Projects/IFN/ProductivityMixedStands/prodMixStands.R
> #+end_example
>
> Which is neither elegant nor short, and I am sure I could do this
> easier. Any suggestions?
>
> Rainer

-- 
Rainer M. Krug
email: Rainer<at>krugs<dot>de
PGP: 0x0F52F982

[-- Attachment #2: Type: application/pgp-signature, Size: 494 bytes --]

Re: Format output of org-babel-tangle for exported file

[Charles Berry]

Rainer M Krug <Rainer <at> krugs.de> writes:

> 
> Hi
> 
> I am calling (org-bable-tangle) in a code block in an org file and I
> would show the files resulting from the tangling in a nice format.
> 
> But I do not manage. I have the following at the moment:
> 
> --8<---------------cut here---------------start------------->8---
> #+begin_src emacs-lisp 
> (replace-regexp-in-string "[)\"]" ""
>      (replace-regexp-in-string "[(]" "- "
>           (replace-regexp-in-string " " "\n- "
>                (prin1-to-string (org-babel-tangle)))))
> #+end_src
> 

[snip]

> Which is neither elegant nor short, and I am sure I could do this
> easier. Any suggestions?

Something like this? Possibly with `(reverse (org-babel-tangle))'

#+BEGIN_SRC emacs-lisp :results value
(mapconcat (lambda (x) (file-relative-name x "..")) (org-babel-tangle) "\n")
#+END_SRC


HTH,

Chuck

Tangling from code block and header arguments WAS: Format output of org-babel-tangle for exported file

[Rainer M Krug]

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

Charles Berry <ccberry@ucsd.edu> writes:

> Rainer M Krug <Rainer <at> krugs.de> writes:
>
>> 
>> Hi
>> 
>> I am calling (org-bable-tangle) in a code block in an org file and I
>> would show the files resulting from the tangling in a nice format.
>> 
>> But I do not manage. I have the following at the moment:
>> 
>> --8<---------------cut here---------------start------------->8---
>> #+begin_src emacs-lisp 
>> (replace-regexp-in-string "[)\"]" ""
>>      (replace-regexp-in-string "[(]" "- "
>>           (replace-regexp-in-string " " "\n- "
>>                (prin1-to-string (org-babel-tangle)))))
>> #+end_src
>> 
>
> [snip]
>
>> Which is neither elegant nor short, and I am sure I could do this
>> easier. Any suggestions?
>
> Something like this? Possibly with `(reverse (org-babel-tangle))'
>
> #+BEGIN_SRC emacs-lisp :results value
> (mapconcat (lambda (x) (file-relative-name x "..")) (org-babel-tangle) "\n")
> #+END_SRC

Thanks - this looks promising.

But I now have another problem: The result of tangling from a code block
is different then when calling interactively.

Consider the following org file:

--8<---------------cut here---------------start------------->8---
#+PROPERTY: header-args :tangle no

* DESCRIPTION File
:PROPERTIES:
:header-args+: :tangle ./DESCRIPTION
:END:

#+begin_src RDescr
test
#+end_src

* And the tangling
#+BEGIN_SRC emacs-lisp :results value
(mapconcat (lambda (x) (file-relative-name x "..")) (org-babel-tangle) "\n")
#+END_SRC

#+RESULTS:

--8<---------------cut here---------------end--------------->8---

When tangling interactively, the file DESCRIPTION is tangled properly.
But when I call (org-babel-tangle) from the code block, nothing is
tangled because in this case, the property =tangle= is equal to =no=
based on the file wide property setting in the beginning.

Is this a bug or is it simply not possible to tangle from a code block?

Thanks,

Rainer

>
>
> HTH,
>
> Chuck
>
>
>
>

-- 
Rainer M. Krug
email: Rainer<at>krugs<dot>de
PGP: 0x0F52F982

[-- Attachment #2: Type: application/pgp-signature, Size: 494 bytes --]

Re: Tangling from code block and header arguments WAS: Format output of org-babel-tangle for exported file

[Charles C. Berry]

On Wed, 3 Sep 2014, Rainer M Krug wrote:

> Charles Berry <ccberry@ucsd.edu> writes:
>
>> Rainer M Krug <Rainer <at> krugs.de> writes:
>>
>>>
>>> Hi
>>>
>>> I am calling (org-bable-tangle) in a code block in an org file and I
>>> would show the files resulting from the tangling in a nice format.
>>>

[original question nd answer deleted]


> Thanks - this looks promising.
>
> But I now have another problem: The result of tangling from a code block
> is different then when calling interactively.
>
> Consider the following org file:
>
> --8<---------------cut here---------------start------------->8---
> #+PROPERTY: header-args :tangle no
>
> * DESCRIPTION File
> :PROPERTIES:
> :header-args+: :tangle ./DESCRIPTION
> :END:
>
> #+begin_src RDescr
> test
> #+end_src
>
> * And the tangling
> #+BEGIN_SRC emacs-lisp :results value
> (mapconcat (lambda (x) (file-relative-name x "..")) (org-babel-tangle) "\n")
> #+END_SRC
>
> #+RESULTS:
>
> --8<---------------cut here---------------end--------------->8---
>
> When tangling interactively, the file DESCRIPTION is tangled properly.
> But when I call (org-babel-tangle) from the code block, nothing is
> tangled because in this case, the property =tangle= is equal to =no=
> based on the file wide property setting in the beginning.
>
> Is this a bug or is it simply not possible to tangle from a code block?

I think this is a bug.

Here is an ECM to demo it.

Note that the :tangle header arg for the 'Descr' src block is correctly 
rendered from the DESCRIPTION subtree, but not from the 'new heading' 
subtree.



--8<---------------cut here---------------start------------->8---
#+PROPERTY: header-args :tangle no

* DESCRIPTION File
:PROPERTIES:
:header-args: :tangle ./DESCRIPTION
:END:

#+NAME: Descr
#+begin_src RDescr
test
#+end_src

#+BEGIN_SRC emacs-lisp :results pp
   (save-excursion
     (org-babel-goto-named-src-block "Descr")
     (assoc :tangle (nth 2 (org-babel-get-src-block-info))))
#+END_SRC

#+RESULTS:
: (:tangle . "./DESCRIPTION")



* new heading

#+BEGIN_SRC emacs-lisp :results pp
   (save-excursion
     (org-babel-goto-named-src-block "Descr")
     (assoc :tangle (nth 2 (org-babel-get-src-block-info))))
#+END_SRC

#+RESULTS:
: (:tangle . "no")

--8<---------------cut here---------------end--------------->8---



HTH,

Chuck