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.... dmj...@jabber.org Email..... dm...@ictsoc.de
pgpfllHLj2D4A.pgp
Description: PGP signature
_______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode