X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=abb9ef4e31153bc225ba50fedfdc58860a1d18e2;hp=44aa74b7541844d857924bc3f64cd1fd6476c44c;hb=8b33d476323e9bc25e1d7415de4ad5eaf5b0c097;hpb=41c19fbd5206e37ce7b6d38279635790a630bef5 diff --git a/org-ref.org b/org-ref.org index 44aa74b..abb9ef4 100644 --- a/org-ref.org +++ b/org-ref.org @@ -66,6 +66,7 @@ The only external require is reftex-cite (require 'reftex-cite) (require 'dash) (require 'helm) +(require 'helm-config) (require 'helm-bibtex) #+END_SRC @@ -150,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) @@ -371,6 +372,95 @@ The basic idea here is to get the mouse position, and if we can determine there #+RESULTS: : org-ref-mouse-messages-off +** Color-coded links +Here we make the org-ref links a different color. + +citations are green +refs are blue +labels are black + +mailto:john + +cite:sokalski-2012-optim-ta,zhang-2011-spatial-tio2,li-2012-heter-ceram,li-2013-photoc + +cite*:sokalski-2012-optim-ta,zhang-2011-spatial-tio2,li-2012-heter-ceram,li-2013-photoc + +citenum:sokalski-2012-optim-ta,zhang-2011-spatial-tio2,li-2012-heter-ceram,li-2013-photoc + +ref:test + +label:test + +#+BEGIN_SRC emacs-lisp :tangle org-ref.el +(defcustom org-ref-colorize-links + t + "When non-nil, change colors of links" + :group 'org-ref) + + +(defcustom org-ref-cite-color + "forest green" + "Color of cite like links" + :group 'org-ref) + + +(defcustom org-ref-ref-color + "dark red" + "Color of ref like links" + :group 'org-ref) + + +(defcustom org-ref-label-color + "black" + "Color of label links" + :group 'org-ref) + + +(defvar org-ref-cite-re nil + "regexp for cite links") + + +(setq org-ref-cite-re + (concat "\\(" (mapconcat + (lambda (x) + (replace-regexp-in-string "\*" "\\\\*" x) + ) + org-ref-cite-types "\\|") "\\)" + ":\\([a-zA-Z0-9-_:]*,?\\)*")) + + +(setq org-ref-label-re + "label:\\([a-zA-Z0-9-_:]*,?\\)*") + + +(setq org-ref-ref-re + "ref:\\([a-zA-Z0-9-_:]*,?\\)*") + + +(defface org-ref-cite-face + `((t (:inherit org-link :foreground ,org-ref-cite-color))) + "Color for cite-like links in org-ref.") + + +(defface org-ref-label-face + `((t (:inherit org-link :foreground ,org-ref-label-color))) + "Color for ref links in org-ref.") + + +(defface org-ref-ref-face + `((t (:inherit org-link :foreground ,org-ref-ref-color))) + "Face for ref links in org-ref.") + + +(when org-ref-colorize-links + (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)) +#+END_SRC + +#+RESULTS: + + * Links Most of this library is the creation of functional links to help with references and citations. ** General utilities @@ -1623,9 +1713,15 @@ 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 + ;; you have added to it, the only way I find to get the update to update + ;; is to close it and reopen it. or to save it and revert it. + (when (get-file-buffer filename) + (set-buffer (get-file-buffer filename)) + (save-buffer) + (revert-buffer t t)) (bibtex-search-entry key t)))) #+END_SRC @@ -3432,6 +3528,7 @@ This code provides a helm interface to things you can do when you click on a cit (org-ref-bib-citation))) "!!! No entry found !!!" ))) + (defun org-ref-cite-candidates () "Generate the list of possible candidates for click actions on a cite link. Checks for pdf and doi, and add appropriate functions." @@ -3565,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)