## Improving org-ref cite links with tooltips

| categories: | tags: | View Comments

Org-ref uses timers to give you messages about the cite link at point. I am not so crazy about the timer, there is always a (short) delay, and I have had trouble debugging timers in the past, and you have to put the point on the link. Since I wrote that code, I have learned some new things about Emacs, including dynamic tooltips. This will allow me to use the mouse to see what a cite link refers to. While reading documents, I am more likely to use a mouse than when typing a document, and getting a tooltip by hovering sounds like a good idea.

Here, we explore using dynamic tooltips on cite links. The idea is pretty simple, we tie into font-lock to add a function to the :help-echo property of a cite link. The function will go to point, and compute the citation string at point, which will be displayed as a tooltip when the mouse hovers over the citation.

Font-lock allows you to specify a function that sets match-data and that can have other side-effects, e.g. setting text properties. Org-ref has a regexp that defines cite links, which we use here, and a function that gets the citation string at point. We just go to the mouse position, and get that string, wrapped in a save-excursion macro so that point does not actually move. Then, we add the function to font-lock keywords, and we are done!

Here are some papers we wrote on using org-mode kitchin-2015-examp,kitchin-2015-data-surfac-scien and some other references in my bibliography zou-2014-cobal-embed,zlotea-2014-nanoal and one final example zhu-2015.

Here is the short code required to do this. You can see the tooltips in action here: https://www.youtube.com/watch?v=ifSmlId2rk0

(defun org-ref-match-next-cite-link (&optional limit)
(when (re-search-forward org-ref-cite-re limit t)
(match-beginning 0) (match-end 0)
(list
'help-echo (lambda (window object position)
(save-excursion
(goto-char position)
(let ((s (org-ref-get-citation-string-at-point)))
(with-temp-buffer
(insert s)
(fill-paragraph)
(buffer-string)))))))))

; do this for this buffer
nil
'((org-ref-match-next-cite-link (0  'org-ref-cite-face t)))
t)
(font-lock-fontify-buffer)

;; do this for every org file
'org-mode-hook
(lambda ()
nil
'((org-ref-match-next-cite-link (0  'org-ref-cite-face t)))
t)))


# Bibliography

Copyright (C) 2015 by John Kitchin. See the License for information about copying.

org-mode source

Org-mode version = 8.2.10