:type 'function
:group 'org-ref)
+
(defcustom org-ref-show-citation-on-enter t
"If non-nil add a hook function to show the citation summary in
the minibuffer just by putting the cursor in a link"
(defcustom org-ref-label-color
- "black"
+ "dark magenta"
"Color of label links"
:group 'org-ref)
"Face for ref links in org-ref.")
-(when org-ref-colorize-links
+(defun org-ref-colorize-links ()
+ "Colorize org-ref links."
+ (hi-lock-mode 1)
(highlight-regexp org-ref-cite-re 'org-ref-cite-face)
(highlight-regexp org-ref-label-re 'org-ref-label-face)
(highlight-regexp org-ref-ref-re 'org-ref-ref-face))
+
+
+(when org-ref-colorize-links
+ (add-hook 'org-mode-hook 'org-ref-colorize-links))
#+END_SRC
#+RESULTS:
(catch 'done
(let ((url (bibtex-autokey-get-field "url")))
(when url
- (browse-url url)
+ (browse-url (s-trim url))
(throw 'done nil)))
(let ((doi (bibtex-autokey-get-field "doi")))
(when doi
(if (string-match "^http" doi)
(browse-url doi)
- (browse-url (format "http://dx.doi.org/%s" doi)))
+ (browse-url (format "http://dx.doi.org/%s" (s-trim doi))))
(throw 'done nil))))))))
I like hydra a lot. Here we define a hydra menu you might like for the link click action.
#+BEGIN_SRC emacs-lisp :tangle org-ref.el
-(require 'hydra)
-(setq hydra-is-helpful t)
+(when (featurep 'hydra)
+ (require 'hydra)
+ (setq hydra-is-helpful t)
-(defhydra org-ref-cite-hydra (:color blue)
- "
+ (defhydra org-ref-cite-hydra (:color blue)
+ "
_p_: Open pdf _w_: WOS _g_: Google Scholar _K_: Copy citation to clipboard
_u_: Open url _r_: WOS related _P_: Pubmed _k_: Copy key to clipboard
_n_: Open notes _c_: WOS citing _C_: Crossref _f_: Copy bibtex entry to file
_o_: Open entry _e_: Email entry and pdf
"
- ("o" org-ref-open-citation-at-point nil)
- ("p" org-ref-open-pdf-at-point nil)
- ("n" org-ref-open-notes-at-point nil)
- ("u" org-ref-open-url-at-point nil)
- ("w" org-ref-wos-at-point nil)
- ("r" org-ref-wos-related-at-point nil)
- ("c" org-ref-wos-citing-at-point nil)
- ("g" org-ref-google-scholar-at-point nil)
- ("P" org-ref-pubmed-at-point nil)
- ("C" org-ref-crossref-at-point nil)
- ("K" org-ref-copy-entry-as-summary nil)
- ("k" (progn
- (kill-new
- (car (org-ref-get-bibtex-key-and-file)))) nil)
- ("f" org-ref-copy-entry-at-point-to-file nil)
-
- ("e" (save-excursion
- (org-ref-open-citation-at-point)
- (email-bibtex-entry)) nil))
+ ("o" org-ref-open-citation-at-point nil)
+ ("p" org-ref-open-pdf-at-point nil)
+ ("n" org-ref-open-notes-at-point nil)
+ ("u" org-ref-open-url-at-point nil)
+ ("w" org-ref-wos-at-point nil)
+ ("r" org-ref-wos-related-at-point nil)
+ ("c" org-ref-wos-citing-at-point nil)
+ ("g" org-ref-google-scholar-at-point nil)
+ ("P" org-ref-pubmed-at-point nil)
+ ("C" org-ref-crossref-at-point nil)
+ ("K" org-ref-copy-entry-as-summary nil)
+ ("k" (progn
+ (kill-new
+ (car (org-ref-get-bibtex-key-and-file)))) nil)
+ ("f" org-ref-copy-entry-at-point-to-file nil)
+
+ ("e" (save-excursion
+ (org-ref-open-citation-at-point)
+ (email-bibtex-entry)) nil)))
#+END_SRC
-#+RESULTS:
-: org-ref-cite-hydra/body
-
-cite:oberhofer-2013-first
* End of code
#+BEGIN_SRC emacs-lisp :tangle org-ref.el
(provide 'org-ref)