Re: Using variables instead of hex values

[Jean Louis]

* 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"
                                  

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/