[O] 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---