From eb92f0312dda3a7a3e459e3b1bab033ba19bb1f8 Mon Sep 17 00:00:00 2001 From: John Kitchin Date: Mon, 23 Feb 2015 14:01:19 -0500 Subject: [PATCH] wrap hydra code in featurep --- org-ref.org | 47 ++++++++++++++++++++++++----------------------- 1 file changed, 24 insertions(+), 23 deletions(-) diff --git a/org-ref.org b/org-ref.org index a4bd3ae..632f807 100644 --- a/org-ref.org +++ b/org-ref.org @@ -3667,35 +3667,36 @@ 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: -- 2.39.2