X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=42283e29e4fe03c5de48aea05611f7e0a5e70024;hp=1776f66c8bd52525327423c462659621be6caf9e;hb=25723f493debde941357f2fdf9150443a02b1a68;hpb=716e4f316ac36aa47d2234e9a626260bb055cd29 diff --git a/org-ref.org b/org-ref.org index 1776f66..42283e2 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 @@ -386,9 +387,13 @@ cite*:sokalski-2012-optim-ta,zhang-2011-spatial-tio2,li-2012-heter-ceram,li-2013 citenum:sokalski-2012-optim-ta,zhang-2011-spatial-tio2,li-2012-heter-ceram,li-2013-photoc +ref:test + +label:test + #+BEGIN_SRC emacs-lisp (defcustom org-ref-colorize-links - nil + t "When non-nil, change colors of links" :group 'org-ref) @@ -397,30 +402,59 @@ citenum:sokalski-2012-optim-ta,zhang-2011-spatial-tio2,li-2012-heter-ceram,li-20 "Color of cite like links" :group 'org-ref) + (defcustom org-ref-ref-color - "royal blue" + "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 'identity org-ref-cite-types "\\|") "\\)" + (concat "\\(" (mapconcat + (lambda (x) + (replace-regexp-in-string "\*" "\\\\*" x) + ) + org-ref-cite-types "\\|") "\\)" ":\\([a-zA-Z0-9-_:]*,?\\)*")) -(setq org-ref-cite-color "red" org-ref-colorize-links t) + +(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 "red"))) - "Color for cite links") + `((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-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: