Re: [Orgmode] org-protocol://remember:// question

[Carsten Dominik]

On Apr 2, 2009, at 8:00 PM, Sebastian Rose wrote:

> Carsten Dominik <address@hidden> writes:
> > Hi Sebastian, Tassilo,
> >
> > this can be easily fixed.
> >
> > Org-protocol may add arbitrary properties to the link properties.
> > For example, after a call
> >
> >      (org-store-link-props :type type
> >                            :link url
> >                            :region region
> >                            :description title
> >                            :hello "Hello world")
> >
> > a template could use "%:hello" to access and insert this
> > string.  I have just changed org-remember so that the
> > property :annotation will be the default for %a.
> > Sebastian, could you please add
> >
> >   :annotation (concat "[[" url "][" title "]]")
> >
> > or something similar to the call to org-store-link-props?
> >
> > Also, feel free to add any other properties that might
> > provide useful information for a template.
>
>
> Doesn't that apply to certain link types only?
>
> Also, the situation seems to be different for org-protocol-remember. I
> think it's the way remember is used inside that function that has to  
> be
> changed.
> Maybe I can figure that out.

Sorry my mistake.  Indeed, the way you call org-remember
overwrites the link property list.  What you need to do is this:

   (let (remember-annotation-functions)
      (org-remember nil (string-to-char template)))

Now, another advantage of doing it like this is that you
do not even have to create a temporary buffer from which you
launch org-remember.  Right now you do this, only for
the effect to get the region inserted for %i.

Much easier will not be to set the :initial property in the
call to org-store-link-props.

Thus, don't even create the *org-protocol* buffer and then do this:

      (org-store-link-props :type type
                            :link url
                            :annotation (concat "[[" url "][" title "]]")
                            :initial (or region "")
                            :description title)
      (setq org-stored-links
            (cons (list url title) org-stored-links))
      (raise-frame)
      (kill-new orglink)
      (let (remember-annotation-functions)
        (org-remember nil (string-to-char template)))

I hope that this will take care of it.

- Carsten