From 57ff28b6ba2737fe823bac1f5db2a9a684e6fd80 Mon Sep 17 00:00:00 2001 From: John Kitchin Date: Mon, 2 Feb 2015 21:38:31 -0500 Subject: [PATCH] i think my regexps work now. --- org-ref.org | 29 ++++++++++++++++++++++++++--- 1 file changed, 26 insertions(+), 3 deletions(-) diff --git a/org-ref.org b/org-ref.org index 1776f66..166536f 100644 --- a/org-ref.org +++ b/org-ref.org @@ -392,35 +392,58 @@ citenum:sokalski-2012-optim-ta,zhang-2011-spatial-tio2,li-2012-heter-ceram,li-20 "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 "royal blue" "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 "\\|") "\\)" ":\\([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"))) + `((t (:inherit org-link :foreground ,org-ref-cite-color))) + "Color for cite links") + +(defface org-ref-label-face + `((t (:inherit org-link :foreground ,org-ref-label-color))) + "Color for cite links") + +(defface org-ref-ref-face + `((t (:inherit org-link :foreground ,org-ref-ref-color))) "Color for cite links") (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: -- 2.39.2