Re: [O] patch for custom colored links in org-mode

[Christian Wittern]

Dear John,

I was wishing for this feature for a couple of years and would very much 
like for this to become possible! While I do not exactly understand how you 
are doing it, if it works that should be good enough.

Thanks a lot!

Christian

On 06/26/2016 10:35 PM, John Kitchin wrote:
> Hi all,
>
> I tried this aproach to enable custom colored links in org-mode if an
> org-link-type face is defined. If no face is applied, then it just gets
> the default org-link face
>
> For example this will make all doi links red.
>
> (defface org-link-doi
>    `((t (:inherit org-link
>                   :foreground "red")))
>    "Color for doi links.")
>
> It seems to work pretty well for me. What do you think about making this
> a feature in org-mode?
>
> 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))


--
Christian Wittern, Kyoto