X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=40fe0412895ff46d609baabef730e2395f6f76a5;hp=a4bd3ae11be1c98f8041d806f635b7f590b2107b;hb=86398931c210878a59e970f83c9fd782f9d874c4;hpb=21e4c9b5f63623a9bcded19d7b1e3e0562cd4174 diff --git a/org-ref.org b/org-ref.org index a4bd3ae..40fe041 100644 --- a/org-ref.org +++ b/org-ref.org @@ -3667,41 +3667,38 @@ This is a list of cons cells '((\"description\" . action)). The action function 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)