From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Kitchin Subject: [PATCH] Make links colored if a custom link face exists. Date: Sun, 26 Jun 2016 10:54:40 -0400 Message-ID: <1466952880-50632-1-git-send-email-jkitchin@andrew.cmu.edu> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39480) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bHBSl-0001rP-HN for emacs-orgmode@gnu.org; Sun, 26 Jun 2016 10:55:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bHBSi-0006cU-FK for emacs-orgmode@gnu.org; Sun, 26 Jun 2016 10:55:07 -0400 Received: from mail-qt0-x234.google.com ([2607:f8b0:400d:c0d::234]:36585) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bHBSi-0006cQ-At for emacs-orgmode@gnu.org; Sun, 26 Jun 2016 10:55:04 -0400 Received: by mail-qt0-x234.google.com with SMTP id w59so12602131qtd.3 for ; Sun, 26 Jun 2016 07:55:04 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org Cc: John Kitchin --- lisp/org.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index af68539..f1c500d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5851,14 +5851,19 @@ prompted for." "Add link properties for plain links." (when (and (re-search-forward org-plain-link-re limit t) (not (org-in-src-block-p))) - (let ((face (get-text-property (max (1- (match-beginning 0)) (point-min)) - 'face)) - (link (org-match-string-no-properties 0))) + (let* ((face (get-text-property (max (1- (match-beginning 0)) (point-min)) + 'face)) + (link (org-match-string-no-properties 0)) + (type (org-match-string-no-properties 1)) + (link-face-symbol (intern (format "org-link-%s" type))) + (link-face (if (facep link-face-symbol) + link-face-symbol + 'org-link))) (unless (if (consp face) (memq 'org-tag face) (eq 'org-tag face)) (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0)) (add-text-properties (match-beginning 0) (match-end 0) (list 'mouse-face 'highlight - 'face 'org-link + 'face link-face 'htmlize-link `(:uri ,link) 'keymap org-mouse-map)) (org-rear-nonsticky-at (match-end 0)) @@ -6340,8 +6345,8 @@ needs to be inserted at a specific position in the font-lock sequence.") ;; Links (if (memq 'tag lk) '(org-activate-tags (1 'org-tag prepend))) (if (memq 'angle lk) '(org-activate-angle-links (0 'org-link t))) - (if (memq 'plain lk) '(org-activate-plain-links (0 'org-link t))) - (if (memq 'bracket lk) '(org-activate-bracket-links (0 'org-link t))) + (if (memq 'plain lk) '(org-activate-plain-links (0 'org-link))) + (if (memq 'bracket lk) '(org-activate-bracket-links (0 'org-link))) (if (memq 'radio lk) '(org-activate-target-links (1 'org-link t))) (if (memq 'date lk) '(org-activate-dates (0 'org-date t))) (if (memq 'footnote lk) '(org-activate-footnote-links)) -- 2.4.4