Re: [BUG][babel] Tangling into directories does not add directories to org file

[Aaron Ecay <aaronecay@gmail.com>]

Hi Rainer,

2014ko urriak 10an, Rainer M Krug-ek idatzi zuen:
> It looks like this - but I am always shocked by the number of brackets
> in lisp.

It’s a bit of an adjustment.  If you get into any serious lisp coding,
check out paredit – it forces you to always have balanced brackets in
the file, thus avoiding a whole class of silly but hard-to-spot mistakes
on lines ending with and avalanche of )))))

<http://www.emacswiki.org/emacs/ParEdit>

> 
> The "problem" is in the function =defun org-babel-spec-to-string (spec)=
> in the file =lisp/ob-tangle.R= in the section
> 
> #+begin_src emacs-lisp 
>   (file (if org-babel-tangle-use-relative-file-links
> 		   (file-relative-name (nth 1 spec))
> 		 (nth 1 spec)))
> 	 (link (let ((link (nth 2 spec)))
> 		 (if org-babel-tangle-use-relative-file-links
> 		     (when (string-match "^\\(file:\\|docview:\\)\\(.*\\)" link)
> 		       (let* ((type (match-string 1 link))
> 			      (path (match-string 2 link))
> 			      (origpath path)
> 			      (case-fold-search nil))
> 			 (setq path (file-relative-name path))
> 			 (concat type path)))
> 		   link)))
> #+end_src
> 
> the function file-relative-name (file-relative-name FILENAME &optional
> DIRECTORY). If I am not mistaken, the optional argument DIRECTORY
> needs to be set to the directory of the tangled file. I assume it is
> not set at the moment. 
> 
> But I have no idea how to get this path and how to pass it to the
> function.

Something like (file-name-directory (buffer-file-name)) should do the
trick, I think.  It would be good if you could test tangling from a
remote (i.e. via TRAMP) org file to a local output file and vice versa
to make sure that this DTRT in those cases as well.

Don’t hesitate to ask if you have more questions!

-- 
Aaron Ecay