Feature request: org-agenda-store-link

From: "Peter Westlake" <peter.westlake@pobox.com>
To: emacs-orgmode@gnu.org
Subject: Feature request: org-agenda-store-link
Date: Fri, 11 Sep 2009 12:41:17 +0100	[thread overview]
Message-ID: <1252669277.3930.1334331775@webmail.messagingengine.com> (raw)
In-Reply-To: <1252506234.20644.1333969045@webmail.messagingengine.com>

Carsten,

Could I request this as a small feature enhancement, please?
Commands like org-refile have an agenda equivalent so that
the same keys work in the agenda, and it would be very nice
to be able to store a link to an item that way as well.

Regards,

Peter.

On Wed, 09 Sep 2009 15:23 +0100, "Peter Westlake"
<peter.westlake@pobox.com> wrote:
> On Wed, 09 Sep 2009 14:39 +0200, "Carsten Dominik"
> <carsten.dominik@gmail.com> wrote:
> >
> > On Sep 8, 2009, at 8:14 PM, Raffi R wrote:
> ...
> > > In org-mode normally, I can get this behaviour by pressing C-0 C-x
> > > C-e.  Looking at org.el suggested that I should be able to simply
> > > provide the 0 as an argument, i.e. using (org-export 0). However,
> > > org-export seems to ignore that 0.
> >
> > (let ((current-prefix-arg 0))
> >   (call-interactively 'org-export))
> 
> This also happens to be the reason a function I was trying to write
> didn't work! I would never have worked it out for myself - does
> anyone have time to explain why the original form doesn't work?
> 
> Here, incidentally, is the function I was writing. It works now!
> It is intended to be bound to C-c l in the agenda buffer, and
> was written by imitating org-agenda-refile:
> 
> (defun org-agenda-store-link (arg)
>   "Store a link to the item at point."
>   (interactive "P")
>   (let* ((marker (or (get-text-property (point) 'org-hd-marker)
>                      (org-agenda-error)))
>          (buffer (marker-buffer marker))
>          (org-link-to-org-use-id t))
>     (with-current-buffer buffer
>       (save-excursion
>         (save-restriction
>           (widen)
>           (goto-char marker)
>           (let ((current-prefix-arg 0))
>             (call-interactively 'org-store-link)))))))
> 
> Is this the right way to do it?
> 
> Peter.
> 
> 
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode