From: David Maus <dmaus@ictsoc.de>
To: Paul Mead <paul.d.mead@gmail.com>
Cc: Marvin Doyley <marvinpas@gmail.com>,
emacs-orgmode@gnu.org, David Maus <dmaus@ictsoc.de>
Subject: Re: requested feature
Date: Mon, 15 Nov 2010 19:02:54 +0100 [thread overview]
Message-ID: <87ipzyea7l.wl%dmaus@ictsoc.de> (raw)
In-Reply-To: <87zktahbre.fsf@gmail.com>
[-- Attachment #1.1: Type: text/plain, Size: 942 bytes --]
At Mon, 15 Nov 2010 15:01:09 +0000,
Paul Mead wrote:
>
>
> This looks pretty interesting to me, but how would you change this so
> that it used the whole heading text, not just one word?
It's basically the same, only difference is finding the headline text
and making the headline text link-safe:
(defun dmj:turn-headline-into-org-mode-link ()
"Replace word at point by an Org mode link."
(interactive)
(when (org-at-heading-p)
(let ((hl-text (nth 4 (org-heading-components))))
(unless (or (null hl-text)
(org-string-match-p "^[ \t]*:[^:]+:$" hl-text))
(beginning-of-line)
(search-forward hl-text (point-at-eol))
(replace-string
hl-text
(format "[[file:%s.org][%s]]"
(org-link-escape hl-text)
(org-link-escape hl-text '((?\] . "%5D") (?\[ . "%5B"))))
nil (- (point) (length hl-text)) (point))))))
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
next prev parent reply other threads:[~2010-11-15 18:03 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-10-29 23:24 requested feature Marvin Doyley
2010-11-14 19:31 ` David Maus
2010-11-15 14:01 ` Marvin Doyley
2010-11-15 15:01 ` Paul Mead
2010-11-15 18:02 ` David Maus [this message]
2010-11-15 18:23 ` Marvin Doyley
2010-11-16 19:43 ` Suvayu Ali
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ipzyea7l.wl%dmaus@ictsoc.de \
--to=dmaus@ictsoc.de \
--cc=emacs-orgmode@gnu.org \
--cc=marvinpas@gmail.com \
--cc=paul.d.mead@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).