From: Christian Wittern <cwittern@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Re: patch for custom colored links in org-mode
Date: Mon, 27 Jun 2016 21:52:32 +0900 [thread overview]
Message-ID: <57712190.6060007@gmail.com> (raw)
In-Reply-To: <m2d1n43we8.fsf@Johns-MacBook-Air.local>
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
next prev parent reply other threads:[~2016-06-27 12:52 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-06-26 13:35 patch for custom colored links in org-mode John Kitchin
2016-06-27 12:52 ` Christian Wittern [this message]
2016-06-28 14:46 ` Nicolas Goaziou
2016-06-28 18:34 ` Thomas S. Dye
2016-06-28 19:23 ` Rasmus
2016-06-28 20:11 ` Nicolas Goaziou
2016-06-28 20:27 ` Rasmus
2016-06-28 20:44 ` John Kitchin
2016-07-01 23:23 ` Nicolas Goaziou
2016-07-06 11:25 ` Rasmus
2016-06-28 20:42 ` John Kitchin
2016-07-01 12:51 ` Nicolas Goaziou
2016-07-01 17:20 ` John Kitchin
2016-07-01 23:20 ` Nicolas Goaziou
2016-07-02 15:46 ` John Kitchin
2016-07-02 22:17 ` Nicolas Goaziou
2016-07-03 20:57 ` John Kitchin
2016-06-29 0:44 ` John Kitchin
2016-06-30 11:58 ` Nicolas Goaziou
2016-06-30 17:44 ` John Kitchin
-- strict thread matches above, loose matches on Subject: below --
2016-07-02 0:51 John Kitchin
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=57712190.6060007@gmail.com \
--to=cwittern@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).