[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Using variables instead of hex values
From: |
Jean Louis |
Subject: |
Re: Using variables instead of hex values |
Date: |
Tue, 9 Nov 2021 12:46:17 +0300 |
User-agent: |
Mutt/2.0.7+183 (3d24855) (2021-05-28) |
* Jean Louis <bugs@gnu.support> [2021-11-08 19:50]:
> * irenezerafa via Users list for the GNU Emacs text editor
> <help-gnu-emacs@gnu.org> [2021-11-08 11:05]:
> > I have the following piece of code and would like to use variable names
> > instead of
> > using hex values directly.
> >
> > (eval-when-compile
> > (defmacro rich-faces ()
> > (let ( (faces '())
> > (light-colors [ "#a8007f" "#005f88" "#904200" "#7f10d0"
> > "#006800" "#b60000" "#1f1fce" "#605b00" "#000000"])
> > (dark-colors [ "#ff62d4" "#3fdfd0" "#fba849" "#9f80ff"
> > "#4fe42f" "#fe6060" "#4fafff" "#f0dd60" "#ffffff" ]) )
>
> (color-name-to-rgb "white") ⇒ (1.0 1.0 1.0)
> (color-rgb-to-hex 1.0 1.0 1.0) ⇒ "#ffffffffffff"
>
> (defun my-color-name (color)
> (apply 'color-rgb-to-hex (color-name-to-rgb color)))
>
> (my-color-name "white") ⇒ "#ffffffffffff"
> (my-color-name "red") ⇒ "#ffff00000000"
To add, you wanted variables instead of hex, then you would do
something like:
(setq white-color (my-color-name "white")) ⇒ "#ffffffffffff"
and then use it as:
(light-colors [ white ] )
--
Jean
Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns
In support of Richard M. Stallman
https://stallmansupport.org/