Re: requested feature

From: David Maus <dmaus@ictsoc.de>
To: Marvin Doyley <marvinpas@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: requested feature
Date: Sun, 14 Nov 2010 20:31:25 +0100	[thread overview]
Message-ID: <87k4kfvh0y.wl%dmaus@ictsoc.de> (raw)
In-Reply-To: <AANLkTi=kX4gnLc9h55NFcPgke=Ga1=uDwEnQrhCx9_5v@mail.gmail.com>

[-- Attachment #1.1: Type: text/plain, Size: 1013 bytes --]

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

[-- Attachment #1.2: Type: application/pgp-signature, Size: 230 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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