[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] requested feature
From: |
David Maus |
Subject: |
Re: [Orgmode] requested feature |
Date: |
Sun, 14 Nov 2010 20:31:25 +0100 |
User-agent: |
Wanderlust/2.15.9 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (Gojō) APEL/10.8 Emacs/23.2 (i486-pc-linux-gnu) MULE/6.0 (HANACHIRUSATO) |
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.... address@hidden
Email..... address@hidden
pgpOeOkseCH4V.pgp
Description: PGP signature
- Re: [Orgmode] requested feature,
David Maus <=