Org Linking to Bookmark [+]

Org Linking to Bookmark [+]

[Tory S. Anderson]

I have weekly TODO items that link to something that needs to be updated; for instance, I write a weekly letter to my daughter where  each week the actual file for the letter will change. Right now I have to manually update that link in the org file, which is quite cumbersome. If I could just link to a bookmark then periodic updates of the bookmark would take care of any problem with updating the todo item. So, I've been tryin to kludge a solution based on the orgmode manual; while any suggestions would be useful for my budding elisp skills, in particular I'm not sure how to write the last function (org-bmkp-get-bookmark-name). Any suggestions? 

--8<---------------cut here---------------start------------->8---
;;; * bmkp links http://orgmode.org/manual/Adding-hyperlink-types.html
     (org-add-link-type "bmkp" 'org-bmkp-open)
     (add-hook 'org-store-link-functions 'org-bmkp-store-link)
     
     (defcustom org-bmkp-command 'bmkp
       "The Emacs command to be used to display a bmkp page."
       :group 'org-link
       :type '(choice (const bookmark-jump) (const bookmark-jump-other-window)))
     
     (defun org-bmkp-open (path)
       "Visit the bmkppage on PATH.
     PATH should be a bookmark name that can be thrown at the `bookmark-jump' function."
       (funcall org-bmkp-command path))
     
     (defun org-bmkp-store-link ()
       "Store a link to a bmkp bookmark."
       (when (memq major-mode '(bookmark-bmenu-mode))
         (let* ((bookmark (org-bmkp-get-bookmark-name))
                (link (concat "bmkp:" bookmark))
                (description (format "Bookmark")))
           (org-store-link-props
            :type "bmkp"
            :link link
            :description description))))
     
     (defun org-bmkp-get-bookmark-name () ;; TODO
       "Get the bookmark name at point (from bookmark list)."
       (if (string-match " \\(\\S-+\\)\\*" (buffer-name))
           (match-string 1 (buffer-name))
         (error "Cannot create link to this bmkp bookmark")))
--8<---------------cut here---------------end--------------->8---

Re: Org Linking to Bookmark [+]

[Drew Adams]

>      (defun org-bmkp-store-link ()
>        "Store a link to a bmkp bookmark."
>        (when (memq major-mode '(bookmark-bmenu-mode))
>          (let* ((bookmark (org-bmkp-get-bookmark-name))
                            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                                          |
                                          v
                             (bookmark-bmenu-bookmark)

It looks like you are trying to get the name of the bookmark at
point in buffer `*Bookmark List*'.  To do that, just evaluate
(bookmark-bmenu-bookmark).

For Bookmark+, if you pass that function a non-nil arg then you
get the full bookmark record, not just the name.  (But anyway,
most bookmark functions accept either the name or the bookmark.)

(No relation with Org links, but you can also create simple, 
non-persistent bookmark links using `bmkp-insert-bookmark-link'.
Dunno whether that will help with what you want to do.
http://www.emacswiki.org/emacs/BookmarkPlus#BookmarkLinks)

[DONE] Re: Org Linking to Bookmark [+]

[Tory S. Anderson]

Thanks, Drew; I have it now. To all concerned, it's easy to add bookmark+ link support to org-mode with the following:

--8<---------------cut here---------------start------------->8---
;;; * bmkp links http://orgmode.org/manual/Adding-hyperlink-types.html
     (org-add-link-type "bmkp" 'org-bmkp-open)
     (add-hook 'org-store-link-functions 'org-bmkp-store-link)
     
     (defcustom org-bmkp-command 'bookmark-jump
       "The Emacs command to be used to display a bmkp page."
       :group 'org-link
       :type '(choice (const bookmark-jump) (const bookmark-jump-other-window)))

     (defun org-bmkp-open (path)
       "Visit the bmkppage on PATH.
     PATH should be a bookmark name that can be thrown at the `bookmark-jump' function."
       (funcall org-bmkp-command path))
     
     (defun org-bmkp-store-link ()
       "Store a link to a bmkp bookmark."
       (when (memq major-mode '(bookmark-bmenu-mode))
         (let* ((bookmark (bookmark-bmenu-bookmark))
                (link (concat "bmkp:" bookmark))
                (description (format "Bookmark: %s" bookmark)))
           (org-store-link-props
            :type "bmkp"
            :link link
            :description description))))
--8<---------------cut here---------------end--------------->8---




Drew Adams <drew.adams@oracle.com> writes:

>>      (defun org-bmkp-store-link ()
>>        "Store a link to a bmkp bookmark."
>>        (when (memq major-mode '(bookmark-bmenu-mode))
>>          (let* ((bookmark (org-bmkp-get-bookmark-name))
>                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>                                           |
>                                           v
>                              (bookmark-bmenu-bookmark)
>
> It looks like you are trying to get the name of the bookmark at
> point in buffer `*Bookmark List*'.  To do that, just evaluate
> (bookmark-bmenu-bookmark).
>
> For Bookmark+, if you pass that function a non-nil arg then you
> get the full bookmark record, not just the name.  (But anyway,
> most bookmark functions accept either the name or the bookmark.)
>
> (No relation with Org links, but you can also create simple, 
> non-persistent bookmark links using `bmkp-insert-bookmark-link'.
> Dunno whether that will help with what you want to do.
> http://www.emacswiki.org/emacs/BookmarkPlus#BookmarkLinks)

Re: Org Linking to Bookmark [+]

[Marcin Borkowski]

On 2015-02-11, at 15:46, Drew Adams <drew.adams@oracle.com> wrote:

> It looks like you are trying to get the name of the bookmark at
> point in buffer `*Bookmark List*'.  To do that, just evaluate
> (bookmark-bmenu-bookmark).

           _________________________________________________________________
 __	  / 						                    \
/  \	  | 							            |
|  |	  | It looks like you are trying to get the name of the bookmark at |
@  @	  | point in buffer `*Bookmark List*'.  To do that, just evaluate   |
|| ||  <--| (bookmark-bmenu-bookmark).				            |
|| ||	  | 							            |
|\_/|	  |                                                                 |
\___/     \_________________________________________________________________/


FTFY.  (Courtesy Fuco's clippy.el.)

(SCNR...)

Best,

-- 
Marcin Borkowski
http://octd.wmi.amu.edu.pl/en/Marcin_Borkowski
Faculty of Mathematics and Computer Science
Adam Mickiewicz University