wrap hydra code in featurep
authorJohn Kitchin <jkitchin@andrew.cmu.edu>
Mon, 23 Feb 2015 19:01:19 +0000 (14:01 -0500)
committerJohn Kitchin <jkitchin@andrew.cmu.edu>
Mon, 23 Feb 2015 19:01:19 +0000 (14:01 -0500)
org-ref.org

index a4bd3ae..632f807 100644 (file)
@@ -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: