X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=abb9ef4e31153bc225ba50fedfdc58860a1d18e2;hp=bf6c7a45ae213aa33b5c08cbc64fde239392e2a5;hb=8b33d476323e9bc25e1d7415de4ad5eaf5b0c097;hpb=1f688e976ac0c5e3b193e3f1d5c5f1885d64066a

diff --git a/org-ref.org b/org-ref.org
index bf6c7a4..abb9ef4 100644
--- a/org-ref.org
+++ b/org-ref.org
@@ -151,7 +151,7 @@ There are some variables needed later to tell this library where you store your
 
 (defcustom org-ref-cite-onclick-function
   'org-ref-cite-click-helm
-  "Function that runs when you click on a cite link. The function must take no arguments. You may also use `org-ref-cite-onclick-minibuffer-menu' if you do not like helm."
+  "Function that runs when you click on a cite link. The function must take no arguments. You may also use `org-ref-cite-onclick-minibuffer-menu' if you do not like helm. If you like `hydra', consider using `org-ref-cite-hydra'."
  :type 'function
  :group 'org-ref)
 
@@ -1713,7 +1713,6 @@ Now, we can see if an entry is in a file.
 #+BEGIN_SRC emacs-lisp :tangle org-ref.el
 (defun org-ref-key-in-file-p (key filename)
   "determine if the key is in the file"
-  (interactive "skey: \nsFile: ")
   (save-current-buffer
     (let ((bibtex-files (list filename)))
       ;; This is something I am trying because when the bibtex file is open, and
@@ -3663,6 +3662,45 @@ This is a list of cons cells '((\"description\" . action)). The action function
 #+RESULTS:
 : org-ref-cite-click-helm
 
+** A hydra click interface
+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)
+
+(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))
+#+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)