On Sat, 12 Sep 2009 07:06 +0200, "Carsten Dominik" <carsten.domi...@gmail.com> wrote: > Hi Peter, > > that does make a lot of sense, why did we not think of this earlier? > Works now. > > Thanks!
Well, thank *you* - I'm quite thrilled to have made a contribution, however small! Peter. > - Carsten > > On Sep 11, 2009, at 1:41 PM, Peter Westlake wrote: > > > 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.westl...@pobox.com> wrote: > >> On Wed, 09 Sep 2009 14:39 +0200, "Carsten Dominik" > >> <carsten.domi...@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 > > > > > > _______________________________________________ > > 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 > _______________________________________________ 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
