(require 'reftex-cite)
(require 'dash)
(require 'helm)
+(require 'helm-config)
(require 'helm-bibtex)
#+END_SRC
citenum:sokalski-2012-optim-ta,zhang-2011-spatial-tio2,li-2012-heter-ceram,li-2013-photoc
-#+BEGIN_SRC emacs-lisp
+ref:test
+
+label:test
+
+#+BEGIN_SRC emacs-lisp :tangle org-ref.el
(defcustom org-ref-colorize-links
- nil
+ t
"When non-nil, change colors of links"
:group 'org-ref)
(defcustom org-ref-ref-color
- "royal blue"
+ "dark red"
"Color of ref like links"
:group 'org-ref)
(setq org-ref-cite-re
- (concat "\\(" (mapconcat 'identity org-ref-cite-types "\\|") "\\)"
+ (concat "\\(" (mapconcat
+ (lambda (x)
+ (replace-regexp-in-string "\*" "\\\\*" x)
+ )
+ org-ref-cite-types "\\|") "\\)"
":\\([a-zA-Z0-9-_:]*,?\\)*"))
(defface org-ref-cite-face
`((t (:inherit org-link :foreground ,org-ref-cite-color)))
- "Color for cite links")
+ "Color for cite-like links in org-ref.")
+
(defface org-ref-label-face
`((t (:inherit org-link :foreground ,org-ref-label-color)))
- "Color for cite links")
+ "Color for ref links in org-ref.")
+
(defface org-ref-ref-face
`((t (:inherit org-link :foreground ,org-ref-ref-color)))
- "Color for cite links")
+ "Face for ref links in org-ref.")
+
(when org-ref-colorize-links
(highlight-regexp org-ref-cite-re 'org-ref-cite-face)
#+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
(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."
#+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
+(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)