Rainer M Krug <[email protected]> writes: > On Tuesday, June 11, 2013, Eric Schulte wrote: > >> Rainer M Krug <[email protected] <javascript:;>> writes: >> >> > Eric Schulte <[email protected] <javascript:;>> writes: >> > >> >>>>> >> >>>>> I've added a :tangle-mode header argument which may be used to >> control >> >>>>> the permissions of tangled files. See the manual for instructions on >> >>>>> it's usage. >> >>>> >> >>>> >> >>>> Thanks a lot. I will try it out today or tomorrow. >> >>> >> >>> I did, and there is a problem with tangling multiple blocks into a >> >>> single file: >> >>> >> >> >> >> Oh, stupid of me. Thanks for sending this alert, I've just pushed up a >> >> change which should fix this problem. We now wait to set the file modes >> >> until after all blocks are tangled and after the post-tangle-hook has >> >> been run. >> >> >> >> Thanks, >> > >> > Hi >> > >> > Unfortunately, it is now worse, as even without the tangle-mode header, >> > I can't tangle two blocks - the second block overwrites the before >> > tangled blocks. It tells me that two blocks were tangled, but only the >> > last one is in the tangled file. >> > >> > I will for revert for now to the version from yesterday. >> > >> > Cheers, >> > >> >> Just pushed up a fix. Cheers, > > > Thanks. Will try it out tomorrow,
Hi
it seems that I have no luck at the moment.
Now the post tangle hook does not seem to be called.
If I use the file below, evaluate the code to set the hook, the hook is
not executed.
,----
| #+PROPERTY: tangle ./test.R
|
| * Internal configurations :noexport:
| ** Evaluate to run post tangle script
| #+begin_src emacs-lisp :results silent :tangle no :exports none
| (add-hook 'org-babel-post-tangle-hook(
| lambda () (call-process-shell-command
"./postTangleScript.sh" nil 0 nil))
| )
| #+end_src
|
| ** Post tangle script
| #+begin_src sh :tangle postTangleScript.sh
| touch PostTangleScriptHasBeenExecuted
| #+end_src
|
| #+results:
|
|
| * Two blocks
| Block 1
| #+begin_src R
| suitName <- function(species)
| {
| return( paste(species$layer, "suitability", sep="_") )
| }
| #+end_src
|
| Block 2
| #+begin_src R
| statDistName <- function(species){
| return( paste(species$layer, "disturbances_static", sep="_") )
| }
| #+end_src
`----
The hook is set:
,----
| Its value is
| ((lambda nil
| (call-process-shell-command "./postTangleScript.sh" nil 0 nil)))
|
| Original value was nil
`----
Strangely enough, if I use
,----
| #+begin_src emacs-lisp :tangle no
| (defvar org-babel-tangled-file nil
| "If non-nill, current file was tangled with org-babel-tangle")
| (put 'org-babel-tangled-file 'safe-local-variable 'booleanp)
|
| (defun org-babel-mark-file-as-tangled ()
|
| (when (string-match "[.]R" (buffer-file-name))
| (add-file-local-variable 'org-babel-tangled-file t)
| (add-file-local-variable 'buffer-read-only t)
| ;; (add-file-local-variable 'eval: (auto-revert-mode))
| (basic-save-buffer)))
|
| (add-hook 'org-babel-post-tangle-hook 'org-babel-mark-file-as-tangled)
| #+end_src
`----
and evaluate this block (after resetting the post-tangle-hook), this
function is executed?
Sorry about all the hassles,
Rainer
>
> Cheers,
>
> Rainer
>
>>
>> --
>> Eric Schulte
>> http://cs.unm.edu/~eschulte
>>
--
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology,
UCT), Dipl. Phys. (Germany)
Centre of Excellence for Invasion Biology
Stellenbosch University
South Africa
Tel : +33 - (0)9 53 10 27 44
Cell: +33 - (0)6 85 62 59 98
Fax : +33 - (0)9 58 10 27 44
Fax (D): +49 - (0)3 21 21 25 22 44
email: [email protected]
Skype: RMkrug
pgpML9UV3sGef.pgp
Description: PGP signature
