Hi David,

This is exactly what I was looking for, thank you.

cheers
M

On Sun, Nov 14, 2010 at 2:31 PM, David Maus <dmaus@ictsoc.de> wrote:

> At Fri, 29 Oct 2010 19:24:32 -0400,
> Marvin Doyley wrote:
> >
> > [1  <multipart/alternative (7bit)>]
> > [1.1  <text/plain; ISO-8859-1 (7bit)>]
> > Does anybody have a function that turns a org header into file with a
> link
> > to the file where it originated from ?
> > For example, lets say I have the following heading
> >
> > * Apples
> > * Cherry
> > * Tomatoes
> >
> > Lets say I have a mini project on Apples, it would be nice to issue a
> single
> > command that turns Applies into Apples.org with a link
>
> Maybe something like this:
>
> (defun dmj:turn-word-into-org-mode-link ()
>  "Replace word at point by an Org mode link."
>  (interactive)
>  (let ((word (thing-at-point 'word)))
>    (when word
>      (re-search-backward "\\W" nil t)
>      (replace-string
>       word (format "[[file:%s.org][%s]]" word word) t)
>      (point) (+ (point) (length word)))))
>
> Grab word at point, go to its beginning, replace with an Org mode
> link.
>
> Best,
>  -- David
> --
> OpenPGP... 0x99ADB83B5A4478E6
> Jabber.... dmjena@jabber.org
> Email..... dmaus@ictsoc.de
>