From: goncholden <goncholden@protonmail.com>
To: Emanuel Berg <moasenwood@zoho.eu>
Cc: help-gnu-emacs@gnu.org
Subject: Re: face-remap-add-relative versus set-face-attribute
Date: Sun, 13 Feb 2022 05:06:24 +0000 [thread overview]
Message-ID: <J3pwuxN9gpHrrqplZ8vW1RaMw0hbJaJpIUyHxpm2Q73cwJBCtj4BIPwzTRLuIFdkxi52y5thDUVULu3nglEYf-bIeGCk7DRwzgJUs2GQh_M=@protonmail.com> (raw)
In-Reply-To: <87leyfbf0l.fsf@zoho.eu>
------- Original Message -------
On Sunday, February 13th, 2022 at 3:51 AM, Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> wrote:
> goncholden wrote:
> > > You have to evaluate it to find out what it does ...
> > The beginning (characters ;; are red), the rest is another
> > colour I had set up. Should one also colourise
> > the delimiters?
> I want them the same color, so I copy the color of
> font-lock-comment-face to font-lock-comment-delimiter-face.
I am a little stuck here
(defvar richkov-annotation-contrast 2
"Sets the colour contrast (against background) for comments.")
(defvar richkov-annotation-chroma
'( (dark . ((low . "#8300E0") (mid . "#AA33FF") (high . "#C370FF")))
(light . ((low . "#C16BFF") (mid . "#AA33FF") (high . "#8000DB"))) )
"Colour contrast for comments, indigo on dark and light background.")
(defun richkov-annotation-typeface (chroma)
"Set the foreground colour for comments.
CHROMA Intensity Key used for setting colour of comments ."
(message "richkov-annotation-typeface ")
(let* ( (colors richkov-annotation-chroma)
(levels
(alist-get (frame-parameter nil 'background-mode) colors)) )
(face-remap-add-relative 'font-lock-comment-face
`(:foreground ,(alist-get chroma levels)))
(message "richkov-annotation: %s contrast" chroma)) )
(defun richkov-annotation-low-contrast ()
(when richkov-minor-mode
(richkov-annotation-typeface 'low)))
;;;###autoload
(define-minor-mode richkov-minor-mode
"Colour Brace Marks according to their depth."
:lighter "richkov" ; indicator in mode-line
(font-lock-remove-keywords nil richkov-font-lock)
(set-face-attribute 'font-lock-comment-face nil
:weight (face-attribute 'default :weight))
(when richkov-minor-mode
(set-face-attribute 'default :weight 'bold)
(set-face-attribute 'font-lock-comment-face nil :weight 'normal)
(font-lock-add-keywords nil richkov-font-lock 'append)
(set (make-local-variable 'jit-lock-contextually) t)
(richkov-annotation-tools))
(when font-lock-mode
(if (fboundp 'font-lock-flush)
(font-lock-flush)
(with-no-warnings (font-lock-fontify-buffer)) )) )
next prev parent reply other threads:[~2022-02-13 5:06 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-02-12 23:43 face-remap-add-relative versus set-face-attribute goncholden via Users list for the GNU Emacs text editor
2022-02-13 0:59 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 2:12 ` goncholden
2022-02-13 2:23 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 2:30 ` goncholden
2022-02-13 2:26 ` goncholden
2022-02-13 2:34 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 2:44 ` goncholden
2022-02-13 2:59 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 3:18 ` goncholden
2022-02-13 3:51 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 5:06 ` goncholden [this message]
2022-02-13 5:59 ` goncholden
2022-02-13 6:32 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 6:37 ` goncholden
2022-02-13 6:50 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 8:41 ` Jean Louis
2022-02-13 8:58 ` goncholden
2022-02-13 6:35 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 6:59 ` goncholden
2022-02-13 9:12 ` goncholden
2022-02-13 9:19 ` Emanuel Berg via Users list for the GNU Emacs text editor
2022-02-13 9:22 ` goncholden
2022-02-13 9:27 ` Emanuel Berg via Users list for the GNU Emacs text editor
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='J3pwuxN9gpHrrqplZ8vW1RaMw0hbJaJpIUyHxpm2Q73cwJBCtj4BIPwzTRLuIFdkxi52y5thDUVULu3nglEYf-bIeGCk7DRwzgJUs2GQh_M=@protonmail.com' \
--to=goncholden@protonmail.com \
--cc=help-gnu-emacs@gnu.org \
--cc=moasenwood@zoho.eu \
/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 external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.