2015-09-28 22:39:14 +00:00
|
|
|
|
;;; color.el --- Color manipulation library -*- lexical-binding:t -*-
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2022-01-01 07:45:51 +00:00
|
|
|
|
;; Copyright (C) 2010-2022 Free Software Foundation, Inc.
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
;; Authors: Julien Danjou <julien@danjou.info>
|
|
|
|
|
|
;; Drew Adams <drew.adams@oracle.com>
|
|
|
|
|
|
;; Keywords: lisp, faces, color, hex, rgb, hsv, hsl, cie-lab, background
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
|
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
|
;; (at your option) any later version.
|
|
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2017-09-13 22:52:52 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
;; This package provides functions for manipulating colors, including
|
|
|
|
|
|
;; converting between color representations, computing color
|
|
|
|
|
|
;; complements, and computing CIEDE2000 color distances.
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; Supported color representations include RGB (red, green, blue), HSV
|
2011-11-19 09:18:31 +00:00
|
|
|
|
;; (hue, saturation, value), HSL (hue, saturation, luminance), sRGB,
|
2011-02-21 06:03:36 +00:00
|
|
|
|
;; CIE XYZ, and CIE L*a*b* color components.
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
;;;###autoload
|
|
|
|
|
|
(defun color-name-to-rgb (color &optional frame)
|
|
|
|
|
|
"Convert COLOR string to a list of normalized RGB components.
|
|
|
|
|
|
COLOR should be a color name (e.g. \"white\") or an RGB triplet
|
2017-09-07 18:40:12 +00:00
|
|
|
|
string (e.g. \"#ffff1122eecc\").
|
2011-02-21 06:03:36 +00:00
|
|
|
|
|
|
|
|
|
|
Normally the return value is a list of three floating-point
|
|
|
|
|
|
numbers, (RED GREEN BLUE), each between 0.0 and 1.0 inclusive.
|
|
|
|
|
|
|
2012-10-05 07:17:23 +00:00
|
|
|
|
Optional argument FRAME specifies the frame where the color is to be
|
2011-02-21 06:03:36 +00:00
|
|
|
|
displayed. If FRAME is omitted or nil, use the selected frame.
|
|
|
|
|
|
If FRAME cannot display COLOR, return nil."
|
2020-09-23 11:35:55 +00:00
|
|
|
|
;; `color-values' maximum value is either 65535 or 65280 depending on the
|
2012-10-05 07:17:23 +00:00
|
|
|
|
;; display system. So we use a white conversion to get the max value.
|
2017-03-03 14:05:02 +00:00
|
|
|
|
(let ((valmax (float (car (color-values "#ffffffffffff")))))
|
2012-01-19 23:06:49 +00:00
|
|
|
|
(mapcar (lambda (x) (/ x valmax)) (color-values color frame))))
|
2011-02-21 06:03:36 +00:00
|
|
|
|
|
2017-03-03 14:05:02 +00:00
|
|
|
|
(defun color-rgb-to-hex (red green blue &optional digits-per-component)
|
|
|
|
|
|
"Return hexadecimal #RGB notation for the color specified by RED GREEN BLUE.
|
|
|
|
|
|
RED, GREEN, and BLUE should be numbers between 0.0 and 1.0, inclusive.
|
|
|
|
|
|
Optional argument DIGITS-PER-COMPONENT can be either 4 (the default)
|
|
|
|
|
|
or 2; use the latter if you need a 24-bit specification of a color."
|
|
|
|
|
|
(or digits-per-component (setq digits-per-component 4))
|
|
|
|
|
|
(let* ((maxval (if (= digits-per-component 2) 255 65535))
|
|
|
|
|
|
(fmt (if (= digits-per-component 2) "#%02x%02x%02x" "#%04x%04x%04x")))
|
|
|
|
|
|
(format fmt (* red maxval) (* green maxval) (* blue maxval))))
|
2010-11-25 14:51:51 +00:00
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(defun color-complement (color-name)
|
|
|
|
|
|
"Return the color that is the complement of COLOR-NAME.
|
|
|
|
|
|
COLOR-NAME should be a string naming a color (e.g. \"white\"), or
|
2017-09-07 18:40:12 +00:00
|
|
|
|
a string specifying a color's RGB
|
|
|
|
|
|
components (e.g. \"#ffff1212ecec\")."
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(let ((color (color-name-to-rgb color-name)))
|
Use cl-lib instead of cl, and interactive-p => called-interactively-p.
* lisp/erc/erc-track.el, lisp/erc/erc-networks.el, lisp/erc/erc-netsplit.el:
* lisp/erc/erc-dcc.el, lisp/erc/erc-backend.el: Use cl-lib, nth, pcase, and
called-interactively-p instead of cl.
* lisp/erc/erc-speedbar.el, lisp/erc/erc-services.el:
* lisp/erc/erc-pcomplete.el, lisp/erc/erc-notify.el, lisp/erc/erc-match.el:
* lisp/erc/erc-log.el, lisp/erc/erc-join.el, lisp/erc/erc-ezbounce.el:
* lisp/erc/erc-capab.el: Don't require cl since we don't use it.
* lisp/erc/erc.el: Use cl-lib, nth, pcase, and called-interactively-p i.s.o cl.
(erc-lurker-ignore-chars, erc-common-server-suffixes): Move before first use.
* lisp/json.el: Don't require cl since we don't use it.
* lisp/color.el: Don't require cl.
(color-complement): `caddr' -> `nth 2'.
* test/automated/ert-x-tests.el: Use cl-lib.
* test/automated/ert-tests.el: Use lexical-binding and cl-lib.
2012-11-19 17:24:12 +00:00
|
|
|
|
(list (- 1.0 (nth 0 color))
|
|
|
|
|
|
(- 1.0 (nth 1 color))
|
|
|
|
|
|
(- 1.0 (nth 2 color)))))
|
2010-11-25 14:51:51 +00:00
|
|
|
|
|
2011-02-01 23:46:27 +00:00
|
|
|
|
(defun color-gradient (start stop step-number)
|
|
|
|
|
|
"Return a list with STEP-NUMBER colors from START to STOP.
|
|
|
|
|
|
The color list builds a color gradient starting at color START to
|
2012-10-05 07:17:23 +00:00
|
|
|
|
color STOP. It does not include the START and STOP color in the
|
2011-02-01 23:46:27 +00:00
|
|
|
|
resulting list."
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(let* ((r (nth 0 start))
|
|
|
|
|
|
(g (nth 1 start))
|
|
|
|
|
|
(b (nth 2 start))
|
2017-09-13 13:59:37 +00:00
|
|
|
|
(interval (float (1+ step-number)))
|
|
|
|
|
|
(r-step (/ (- (nth 0 stop) r) interval))
|
|
|
|
|
|
(g-step (/ (- (nth 1 stop) g) interval))
|
|
|
|
|
|
(b-step (/ (- (nth 2 stop) b) interval))
|
2011-02-21 06:03:36 +00:00
|
|
|
|
result)
|
2012-08-13 19:10:35 +00:00
|
|
|
|
(dotimes (_ step-number)
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(push (list (setq r (+ r r-step))
|
|
|
|
|
|
(setq g (+ g g-step))
|
|
|
|
|
|
(setq b (+ b b-step)))
|
|
|
|
|
|
result))
|
|
|
|
|
|
(nreverse result)))
|
2011-02-01 23:46:27 +00:00
|
|
|
|
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(defun color-hue-to-rgb (v1 v2 h)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Compute hue from V1 and V2 H.
|
|
|
|
|
|
Used internally by `color-hsl-to-rgb'."
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(cond
|
2015-10-21 01:16:47 +00:00
|
|
|
|
((< h (/ 6.0)) (+ v1 (* (- v2 v1) h 6.0)))
|
2012-01-24 12:06:51 +00:00
|
|
|
|
((< h 0.5) v2)
|
|
|
|
|
|
((< h (/ 2.0 3)) (+ v1 (* (- v2 v1) (- (/ 2.0 3) h) 6.0)))
|
|
|
|
|
|
(t v1)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-hsl-to-rgb (H S L)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Convert hue, saturation and luminance to their RGB representation.
|
|
|
|
|
|
H, S, and L should each be numbers between 0.0 and 1.0, inclusive.
|
|
|
|
|
|
Return a list (RED GREEN BLUE), where each element is between 0.0 and 1.0,
|
|
|
|
|
|
inclusive."
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(if (= S 0.0)
|
|
|
|
|
|
(list L L L)
|
|
|
|
|
|
(let* ((m2 (if (<= L 0.5)
|
|
|
|
|
|
(* L (+ 1.0 S))
|
|
|
|
|
|
(- (+ L S) (* L S))))
|
|
|
|
|
|
(m1 (- (* 2.0 L) m2)))
|
|
|
|
|
|
(list
|
2015-10-21 01:16:47 +00:00
|
|
|
|
(color-hue-to-rgb m1 m2 (mod (+ H (/ 3.0)) 1))
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(color-hue-to-rgb m1 m2 H)
|
2015-10-21 01:16:47 +00:00
|
|
|
|
(color-hue-to-rgb m1 m2 (mod (- H (/ 3.0)) 1))))))
|
2012-01-24 12:06:51 +00:00
|
|
|
|
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(defun color-complement-hex (color)
|
|
|
|
|
|
"Return the color that is the complement of COLOR, in hexadecimal format."
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(apply 'color-rgb-to-hex (color-complement color)))
|
2010-11-25 14:51:51 +00:00
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(defun color-rgb-to-hsv (red green blue)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Convert RGB color components to HSV.
|
2011-02-21 06:03:36 +00:00
|
|
|
|
RED, GREEN, and BLUE should each be numbers between 0.0 and 1.0,
|
2012-10-05 07:17:23 +00:00
|
|
|
|
inclusive. Return a list (HUE SATURATION VALUE), where HUE is
|
2011-02-21 06:03:36 +00:00
|
|
|
|
in radians and both SATURATION and VALUE are between 0.0 and 1.0,
|
|
|
|
|
|
inclusive."
|
|
|
|
|
|
(let* ((r (float red))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(g (float green))
|
|
|
|
|
|
(b (float blue))
|
|
|
|
|
|
(max (max r g b))
|
|
|
|
|
|
(min (min r g b)))
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(if (< (- max min) 1e-8)
|
2013-01-11 15:04:24 +00:00
|
|
|
|
(list 0.0 0.0 min)
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(list
|
|
|
|
|
|
(/ (* 2 float-pi
|
|
|
|
|
|
(cond ((and (= r g) (= g b)) 0)
|
|
|
|
|
|
((and (= r max)
|
|
|
|
|
|
(>= g b))
|
|
|
|
|
|
(* 60 (/ (- g b) (- max min))))
|
|
|
|
|
|
((and (= r max)
|
|
|
|
|
|
(< g b))
|
|
|
|
|
|
(+ 360 (* 60 (/ (- g b) (- max min)))))
|
|
|
|
|
|
((= max g)
|
|
|
|
|
|
(+ 120 (* 60 (/ (- b r) (- max min)))))
|
|
|
|
|
|
((= max b)
|
|
|
|
|
|
(+ 240 (* 60 (/ (- r g) (- max min)))))))
|
|
|
|
|
|
360)
|
|
|
|
|
|
(if (= max 0) 0 (- 1 (/ min max)))
|
2013-01-11 15:04:24 +00:00
|
|
|
|
max))))
|
2011-02-21 06:03:36 +00:00
|
|
|
|
|
|
|
|
|
|
(defun color-rgb-to-hsl (red green blue)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Convert RGB colors to their HSL representation.
|
2011-02-21 06:03:36 +00:00
|
|
|
|
RED, GREEN, and BLUE should each be numbers between 0.0 and 1.0,
|
2012-10-05 07:17:23 +00:00
|
|
|
|
inclusive. Return a list (HUE SATURATION LUMINANCE), where
|
|
|
|
|
|
each element is between 0.0 and 1.0, inclusive."
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(let* ((r red)
|
|
|
|
|
|
(g green)
|
|
|
|
|
|
(b blue)
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(max (max r g b))
|
|
|
|
|
|
(min (min r g b))
|
|
|
|
|
|
(delta (- max min))
|
|
|
|
|
|
(l (/ (+ max min) 2.0)))
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(if (= delta 0)
|
|
|
|
|
|
(list 0.0 0.0 l)
|
|
|
|
|
|
(let* ((s (if (<= l 0.5) (/ delta (+ max min))
|
|
|
|
|
|
(/ delta (- 2.0 max min))))
|
|
|
|
|
|
(rc (/ (- max r) delta))
|
|
|
|
|
|
(gc (/ (- max g) delta))
|
|
|
|
|
|
(bc (/ (- max b) delta))
|
|
|
|
|
|
(h (mod
|
|
|
|
|
|
(/
|
|
|
|
|
|
(cond
|
|
|
|
|
|
((= r max) (- bc gc))
|
|
|
|
|
|
((= g max) (+ 2.0 rc (- bc)))
|
|
|
|
|
|
(t (+ 4.0 gc (- rc))))
|
2017-09-07 18:40:12 +00:00
|
|
|
|
6.0)
|
|
|
|
|
|
1.0)))
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(list h s l)))))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(defun color-srgb-to-xyz (red green blue)
|
|
|
|
|
|
"Convert RED GREEN BLUE colors from the sRGB color space to CIE XYZ.
|
2012-10-05 07:17:23 +00:00
|
|
|
|
RED, GREEN and BLUE should be between 0.0 and 1.0, inclusive."
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(let ((r (if (<= red 0.04045)
|
|
|
|
|
|
(/ red 12.95)
|
|
|
|
|
|
(expt (/ (+ red 0.055) 1.055) 2.4)))
|
|
|
|
|
|
(g (if (<= green 0.04045)
|
|
|
|
|
|
(/ green 12.95)
|
|
|
|
|
|
(expt (/ (+ green 0.055) 1.055) 2.4)))
|
|
|
|
|
|
(b (if (<= blue 0.04045)
|
|
|
|
|
|
(/ blue 12.95)
|
|
|
|
|
|
(expt (/ (+ blue 0.055) 1.055) 2.4))))
|
|
|
|
|
|
(list (+ (* 0.4124564 r) (* 0.3575761 g) (* 0.1804375 b))
|
|
|
|
|
|
(+ (* 0.21266729 r) (* 0.7151522 g) (* 0.0721750 b))
|
|
|
|
|
|
(+ (* 0.0193339 r) (* 0.1191920 g) (* 0.9503041 b)))))
|
|
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(defun color-xyz-to-srgb (X Y Z)
|
|
|
|
|
|
"Convert CIE X Y Z colors to sRGB color space."
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(let ((r (+ (* 3.2404542 X) (* -1.5371385 Y) (* -0.4985314 Z)))
|
|
|
|
|
|
(g (+ (* -0.9692660 X) (* 1.8760108 Y) (* 0.0415560 Z)))
|
|
|
|
|
|
(b (+ (* 0.0556434 X) (* -0.2040259 Y) (* 1.0572252 Z))))
|
|
|
|
|
|
(list (if (<= r 0.0031308)
|
|
|
|
|
|
(* 12.92 r)
|
2015-10-21 01:16:47 +00:00
|
|
|
|
(- (* 1.055 (expt r (/ 2.4))) 0.055))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(if (<= g 0.0031308)
|
|
|
|
|
|
(* 12.92 g)
|
2015-10-21 01:16:47 +00:00
|
|
|
|
(- (* 1.055 (expt g (/ 2.4))) 0.055))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(if (<= b 0.0031308)
|
|
|
|
|
|
(* 12.92 b)
|
2015-10-21 01:16:47 +00:00
|
|
|
|
(- (* 1.055 (expt b (/ 2.4))) 0.055)))))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2017-09-13 14:00:39 +00:00
|
|
|
|
(defconst color-d75-xyz '(0.9497 1.0 1.2264)
|
|
|
|
|
|
"D75 white point in CIE XYZ.")
|
|
|
|
|
|
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(defconst color-d65-xyz '(0.950455 1.0 1.088753)
|
2010-11-23 00:03:44 +00:00
|
|
|
|
"D65 white point in CIE XYZ.")
|
|
|
|
|
|
|
2017-09-13 14:00:39 +00:00
|
|
|
|
(defconst color-d55-xyz '(0.9568 1.0 0.9215)
|
|
|
|
|
|
"D55 white point in CIE XYZ.")
|
|
|
|
|
|
|
|
|
|
|
|
(defconst color-d50-xyz '(0.9642 1.0 0.8249)
|
|
|
|
|
|
"D50 white point in CIE XYZ.")
|
|
|
|
|
|
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(defconst color-cie-ε (/ 216 24389.0))
|
|
|
|
|
|
(defconst color-cie-κ (/ 24389 27.0))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(defun color-xyz-to-lab (X Y Z &optional white-point)
|
|
|
|
|
|
"Convert CIE XYZ to CIE L*a*b*.
|
|
|
|
|
|
WHITE-POINT specifies the (X Y Z) white point for the
|
2012-10-05 07:17:23 +00:00
|
|
|
|
conversion. If omitted or nil, use `color-d65-xyz'."
|
2012-08-13 19:10:35 +00:00
|
|
|
|
(pcase-let* ((`(,Xr ,Yr ,Zr) (or white-point color-d65-xyz))
|
|
|
|
|
|
(xr (/ X Xr))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(yr (/ Y Yr))
|
|
|
|
|
|
(zr (/ Z Zr))
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(fx (if (> xr color-cie-ε)
|
2015-10-21 01:16:47 +00:00
|
|
|
|
(expt xr (/ 3.0))
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(/ (+ (* color-cie-κ xr) 16) 116.0)))
|
|
|
|
|
|
(fy (if (> yr color-cie-ε)
|
2015-10-21 01:16:47 +00:00
|
|
|
|
(expt yr (/ 3.0))
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(/ (+ (* color-cie-κ yr) 16) 116.0)))
|
|
|
|
|
|
(fz (if (> zr color-cie-ε)
|
2015-10-21 01:16:47 +00:00
|
|
|
|
(expt zr (/ 3.0))
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(/ (+ (* color-cie-κ zr) 16) 116.0))))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(list
|
|
|
|
|
|
(- (* 116 fy) 16) ; L
|
|
|
|
|
|
(* 500 (- fx fy)) ; a
|
2012-08-13 19:10:35 +00:00
|
|
|
|
(* 200 (- fy fz))))) ; b
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(defun color-lab-to-xyz (L a b &optional white-point)
|
|
|
|
|
|
"Convert CIE L*a*b* to CIE XYZ.
|
|
|
|
|
|
WHITE-POINT specifies the (X Y Z) white point for the
|
2012-10-05 07:17:23 +00:00
|
|
|
|
conversion. If omitted or nil, use `color-d65-xyz'."
|
2012-08-13 19:10:35 +00:00
|
|
|
|
(pcase-let* ((`(,Xr ,Yr ,Zr) (or white-point color-d65-xyz))
|
|
|
|
|
|
(fy (/ (+ L 16) 116.0))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(fz (- fy (/ b 200.0)))
|
|
|
|
|
|
(fx (+ (/ a 500.0) fy))
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(xr (if (> (expt fx 3.0) color-cie-ε)
|
2010-11-24 11:32:22 +00:00
|
|
|
|
(expt fx 3.0)
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(/ (- (* fx 116) 16) color-cie-κ)))
|
|
|
|
|
|
(yr (if (> L (* color-cie-κ color-cie-ε))
|
2010-11-24 11:32:22 +00:00
|
|
|
|
(expt (/ (+ L 16) 116.0) 3.0)
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(/ L color-cie-κ)))
|
|
|
|
|
|
(zr (if (> (expt fz 3) color-cie-ε)
|
2010-11-24 11:32:22 +00:00
|
|
|
|
(expt fz 3.0)
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(/ (- (* 116 fz) 16) color-cie-κ))))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
(list (* xr Xr) ; X
|
|
|
|
|
|
(* yr Yr) ; Y
|
2012-08-13 19:10:35 +00:00
|
|
|
|
(* zr Zr)))) ; Z
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(defun color-srgb-to-lab (red green blue)
|
|
|
|
|
|
"Convert RGB to CIE L*a*b*."
|
|
|
|
|
|
(apply 'color-xyz-to-lab (color-srgb-to-xyz red green blue)))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2011-02-21 06:03:36 +00:00
|
|
|
|
(defun color-lab-to-srgb (L a b)
|
|
|
|
|
|
"Convert CIE L*a*b* to RGB."
|
|
|
|
|
|
(apply 'color-xyz-to-srgb (color-lab-to-xyz L a b)))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2017-09-13 14:00:39 +00:00
|
|
|
|
(defun color-xyz-to-xyy (X Y Z)
|
|
|
|
|
|
"Convert CIE XYZ to xyY."
|
|
|
|
|
|
(let ((d (float (+ X Y Z))))
|
|
|
|
|
|
(list (/ X d) (/ Y d) Y)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-xyy-to-xyz (x y Y)
|
|
|
|
|
|
"Convert CIE xyY to XYZ."
|
|
|
|
|
|
(let ((y (float y)))
|
|
|
|
|
|
(list (/ (* Y x) y) Y (/ (* Y (- 1 x y)) y))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-lab-to-lch (L a b)
|
lisp/*.el: Fix typos and other trivial doc fixes
* lisp/allout-widgets.el (allout-widgets-auto-activation)
(allout-current-decorated-p):
* lisp/auth-source.el (auth-source-protocols):
* lisp/autorevert.el (auto-revert-set-timer):
* lisp/battery.el (battery-mode-line-limit):
* lisp/calc/calcalg3.el (math-map-binop):
* lisp/calendar/cal-dst.el (calendar-dst-find-startend):
* lisp/calendar/cal-mayan.el (calendar-mayan-long-count-to-absolute):
* lisp/calendar/calendar.el (calendar-date-echo-text)
(calendar-generate-month, calendar-string-spread)
(calendar-cursor-to-date, calendar-read, calendar-read-date)
(calendar-mark-visible-date, calendar-dayname-on-or-before):
* lisp/calendar/diary-lib.el (diary-ordinal-suffix):
* lisp/cedet/ede/autoconf-edit.el (autoconf-new-program)
(autoconf-find-last-macro, autoconf-parameter-strip):
* lisp/cedet/ede/config.el (ede-target-with-config-build):
* lisp/cedet/ede/linux.el (ede-linux--detect-architecture)
(ede-linux--get-architecture):
* lisp/cedet/semantic/complete.el (semantic-collector-calculate-cache)
(semantic-displayer-abstract, semantic-displayer-point-position):
* lisp/cedet/semantic/format.el (semantic-format-face-alist)
(semantic-format-tag-short-doc):
* lisp/cedet/semantic/fw.el (semantic-find-file-noselect):
* lisp/cedet/semantic/idle.el (semantic-idle-scheduler-work-idle-time)
(semantic-idle-breadcrumbs-display-function)
(semantic-idle-breadcrumbs-format-tag-list-function):
* lisp/cedet/semantic/lex.el (semantic-lex-map-types)
(define-lex, define-lex-block-type-analyzer):
* lisp/cedet/semantic/senator.el (senator-search-default-tag-filter):
* lisp/cedet/semantic/symref.el (semantic-symref-result)
(semantic-symref-hit-to-tag-via-db):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-new-variable)
(semantic-tag-new-include, semantic-tag-new-package)
(semantic-tag-set-faux, semantic-create-tag-proxy)
(semantic-tag-function-parent)
(semantic-tag-components-with-overlays):
* lisp/cedet/srecode/cpp.el (srecode-cpp-namespaces)
(srecode-semantic-handle-:c, srecode-semantic-apply-tag-to-dict):
* lisp/cedet/srecode/dictionary.el (srecode-create-dictionary)
(srecode-dictionary-add-entries, srecode-dictionary-lookup-name)
(srecode-create-dictionaries-from-tags):
* lisp/cmuscheme.el (scheme-compile-region):
* lisp/color.el (color-lab-to-lch):
* lisp/doc-view.el (doc-view-image-width)
(doc-view-set-up-single-converter):
* lisp/dynamic-setting.el (font-setting-change-default-font)
(dynamic-setting-handle-config-changed-event):
* lisp/elec-pair.el (electric-pair-text-pairs)
(electric-pair-skip-whitespace-function)
(electric-pair-string-bound-function):
* lisp/emacs-lisp/avl-tree.el (avl-tree--del-balance)
(avl-tree-member, avl-tree-mapcar, avl-tree-iter):
* lisp/emacs-lisp/bytecomp.el (byte-compile-generate-call-tree):
* lisp/emacs-lisp/checkdoc.el (checkdoc-autofix-flag)
(checkdoc-spellcheck-documentation-flag, checkdoc-ispell)
(checkdoc-ispell-current-buffer, checkdoc-ispell-interactive)
(checkdoc-ispell-message-interactive)
(checkdoc-ispell-message-text, checkdoc-ispell-start)
(checkdoc-ispell-continue, checkdoc-ispell-comments)
(checkdoc-ispell-defun):
* lisp/emacs-lisp/cl-generic.el (cl--generic-search-method):
* lisp/emacs-lisp/eieio-custom.el (eieio-read-customization-group):
* lisp/emacs-lisp/lisp.el (forward-sexp, up-list):
* lisp/emacs-lisp/package-x.el (package--archive-contents-from-file):
* lisp/emacs-lisp/package.el (package-desc)
(package--make-autoloads-and-stuff, package-hidden-regexps):
* lisp/emacs-lisp/tcover-ses.el (ses-exercise-startup):
* lisp/emacs-lisp/testcover.el (testcover-nohits)
(testcover-1value):
* lisp/epg.el (epg-receive-keys, epg-start-edit-key):
* lisp/erc/erc-backend.el (erc-server-processing-p)
(erc-split-line-length, erc-server-coding-system)
(erc-server-send, erc-message):
* lisp/erc/erc-button.el (erc-button-face, erc-button-alist)
(erc-browse-emacswiki):
* lisp/erc/erc-ezbounce.el (erc-ezbounce, erc-ezb-get-login):
* lisp/erc/erc-fill.el (erc-fill-variable-maximum-indentation):
* lisp/erc/erc-log.el (erc-current-logfile):
* lisp/erc/erc-match.el (erc-log-match-format)
(erc-text-matched-hook):
* lisp/erc/erc-netsplit.el (erc-netsplit, erc-netsplit-debug):
* lisp/erc/erc-networks.el (erc-server-alist)
(erc-networks-alist, erc-current-network):
* lisp/erc/erc-ring.el (erc-input-ring-index):
* lisp/erc/erc-speedbar.el (erc-speedbar)
(erc-speedbar-update-channel):
* lisp/erc/erc-stamp.el (erc-timestamp-only-if-changed-flag):
* lisp/erc/erc-track.el (erc-track-position-in-mode-line)
(erc-track-remove-from-mode-line, erc-modified-channels-update)
(erc-track-last-non-erc-buffer, erc-track-sort-by-importance)
(erc-track-get-active-buffer):
* lisp/erc/erc.el (erc-get-channel-user-list)
(erc-echo-notice-hook, erc-echo-notice-always-hook)
(erc-wash-quit-reason, erc-format-@nick):
* lisp/ffap.el (ffap-latex-mode):
* lisp/files.el (abort-if-file-too-large)
(dir-locals--get-sort-score, buffer-stale--default-function):
* lisp/filesets.el (filesets-tree-max-level, filesets-data)
(filesets-update-pre010505):
* lisp/gnus/gnus-agent.el (gnus-agent-flush-cache):
* lisp/gnus/gnus-art.el (gnus-article-encrypt-protocol)
(gnus-button-prefer-mid-or-mail):
* lisp/gnus/gnus-cus.el (gnus-group-parameters):
* lisp/gnus/gnus-demon.el (gnus-demon-handlers)
(gnus-demon-run-callback):
* lisp/gnus/gnus-dired.el (gnus-dired-print):
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event-from-buffer):
* lisp/gnus/gnus-range.el (gnus-range-normalize):
* lisp/gnus/gnus-spec.el (gnus-pad-form):
* lisp/gnus/gnus-srvr.el (gnus-server-agent, gnus-server-cloud)
(gnus-server-opened, gnus-server-closed, gnus-server-denied)
(gnus-server-offline):
* lisp/gnus/gnus-sum.el (gnus-refer-thread-use-nnir)
(gnus-refer-thread-limit-to-thread)
(gnus-summary-limit-include-thread, gnus-summary-refer-thread)
(gnus-summary-find-matching):
* lisp/gnus/gnus-util.el (gnus-rescale-image):
* lisp/gnus/gnus.el (gnus-summary-line-format, gnus-no-server):
* lisp/gnus/mail-source.el (mail-source-incoming-file-prefix):
* lisp/gnus/message.el (message-cite-reply-position)
(message-cite-style-outlook, message-cite-style-thunderbird)
(message-cite-style-gmail, message--send-mail-maybe-partially):
* lisp/gnus/mm-extern.el (mm-inline-external-body):
* lisp/gnus/mm-partial.el (mm-inline-partial):
* lisp/gnus/mml-sec.el (mml-secure-message-sign)
(mml-secure-message-sign-encrypt, mml-secure-message-encrypt):
* lisp/gnus/mml2015.el (mml2015-epg-key-image)
(mml2015-epg-key-image-to-string):
* lisp/gnus/nndiary.el (nndiary-reminders, nndiary-get-new-mail):
* lisp/gnus/nnheader.el (nnheader-directory-files-is-safe):
* lisp/gnus/nnir.el (nnir-search-history)
(nnir-imap-search-other, nnir-artlist-length)
(nnir-artlist-article, nnir-artitem-group, nnir-artitem-number)
(nnir-artitem-rsv, nnir-article-group, nnir-article-number)
(nnir-article-rsv, nnir-article-ids, nnir-categorize)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-hyrex-additional-switches)
(gnus-group-make-nnir-group, nnir-run-namazu, nnir-read-parms)
(nnir-read-parm, nnir-read-server-parm, nnir-search-thread):
* lisp/gnus/nnmairix.el (nnmairix-default-group)
(nnmairix-propagate-marks):
* lisp/gnus/smime.el (smime-keys, smime-crl-check)
(smime-verify-buffer, smime-noverify-buffer):
* lisp/gnus/spam-report.el (spam-report-url-ping-mm-url):
* lisp/gnus/spam.el (spam-spamassassin-positive-spam-flag-header)
(spam-spamassassin-spam-status-header, spam-sa-learn-rebuild)
(spam-classifications, spam-check-stat, spam-spamassassin-score):
* lisp/help.el (describe-minor-mode-from-symbol):
* lisp/hippie-exp.el (hippie-expand-ignore-buffers):
* lisp/htmlfontify.el (hfy-optimizations, hfy-face-resolve-face)
(hfy-begin-span):
* lisp/ibuf-ext.el (ibuffer-update-saved-filters-format)
(ibuffer-saved-filters, ibuffer-old-saved-filters-warning)
(ibuffer-filtering-qualifiers, ibuffer-repair-saved-filters)
(eval, ibuffer-unary-operand, file-extension, directory):
* lisp/image-dired.el (image-dired-cmd-pngcrush-options):
* lisp/image-mode.el (image-toggle-display):
* lisp/international/ccl.el (ccl-compile-read-multibyte-character)
(ccl-compile-write-multibyte-character):
* lisp/international/kkc.el (kkc-save-init-file):
* lisp/international/latin1-disp.el (latin1-display):
* lisp/international/ogonek.el (ogonek-name-encoding-alist)
(ogonek-information, ogonek-lookup-encoding)
(ogonek-deprefixify-region):
* lisp/isearch.el (isearch-filter-predicate)
(isearch--momentary-message):
* lisp/jsonrpc.el (jsonrpc-connection-send)
(jsonrpc-process-connection, jsonrpc-shutdown)
(jsonrpc--async-request-1):
* lisp/language/tibet-util.el (tibetan-char-p):
* lisp/mail/feedmail.el (feedmail-queue-use-send-time-for-date)
(feedmail-last-chance-hook, feedmail-before-fcc-hook)
(feedmail-send-it-immediately-wrapper, feedmail-find-eoh):
* lisp/mail/hashcash.el (hashcash-generate-payment)
(hashcash-generate-payment-async, hashcash-insert-payment)
(hashcash-verify-payment):
* lisp/mail/rmail.el (rmail-movemail-variant-in-use)
(rmail-get-attr-value):
* lisp/mail/rmailmm.el (rmail-mime-prefer-html, rmail-mime):
* lisp/mail/rmailsum.el (rmail-summary-show-message):
* lisp/mail/supercite.el (sc-raw-mode-toggle):
* lisp/man.el (Man-start-calling):
* lisp/mh-e/mh-acros.el (mh-do-at-event-location)
(mh-iterate-on-messages-in-region, mh-iterate-on-range):
* lisp/mh-e/mh-alias.el (mh-alias-system-aliases)
(mh-alias-reload, mh-alias-ali)
(mh-alias-canonicalize-suggestion, mh-alias-add-alias-to-file)
(mh-alias-add-alias):
* lisp/mouse.el (mouse-save-then-kill):
* lisp/net/browse-url.el (browse-url-default-macosx-browser):
* lisp/net/eudc.el (eudc-set, eudc-variable-protocol-value)
(eudc-variable-server-value, eudc-update-variable)
(eudc-expand-inline):
* lisp/net/eudcb-bbdb.el (eudc-bbdb-format-record-as-result):
* lisp/net/eudcb-ldap.el (eudc-ldap-get-field-list):
* lisp/net/pop3.el (pop3-list):
* lisp/net/soap-client.el (soap-namespace-put)
(soap-xs-parse-sequence, soap-parse-envelope):
* lisp/net/soap-inspect.el (soap-inspect-xs-complex-type):
* lisp/nxml/rng-xsd.el (rng-xsd-date-to-days):
* lisp/org/ob-C.el (org-babel-prep-session:C)
(org-babel-load-session:C):
* lisp/org/ob-J.el (org-babel-execute:J):
* lisp/org/ob-asymptote.el (org-babel-prep-session:asymptote):
* lisp/org/ob-awk.el (org-babel-execute:awk):
* lisp/org/ob-core.el (org-babel-process-file-name):
* lisp/org/ob-ebnf.el (org-babel-execute:ebnf):
* lisp/org/ob-forth.el (org-babel-execute:forth):
* lisp/org/ob-fortran.el (org-babel-execute:fortran)
(org-babel-prep-session:fortran, org-babel-load-session:fortran):
* lisp/org/ob-groovy.el (org-babel-execute:groovy):
* lisp/org/ob-io.el (org-babel-execute:io):
* lisp/org/ob-js.el (org-babel-execute:js):
* lisp/org/ob-lilypond.el (org-babel-default-header-args:lilypond)
(org-babel-lilypond-compile-post-tangle)
(org-babel-lilypond-display-pdf-post-tangle)
(org-babel-lilypond-tangle)
(org-babel-lilypond-execute-tangled-ly)
(org-babel-lilypond-compile-lilyfile)
(org-babel-lilypond-check-for-compile-error)
(org-babel-lilypond-process-compile-error)
(org-babel-lilypond-mark-error-line)
(org-babel-lilypond-parse-error-line)
(org-babel-lilypond-attempt-to-open-pdf)
(org-babel-lilypond-attempt-to-play-midi)
(org-babel-lilypond-switch-extension)
(org-babel-lilypond-set-header-args):
* lisp/org/ob-lua.el (org-babel-prep-session:lua):
* lisp/org/ob-picolisp.el (org-babel-execute:picolisp):
* lisp/org/ob-processing.el (org-babel-prep-session:processing):
* lisp/org/ob-python.el (org-babel-prep-session:python):
* lisp/org/ob-scheme.el (org-babel-scheme-capture-current-message)
(org-babel-scheme-execute-with-geiser, org-babel-execute:scheme):
* lisp/org/ob-shen.el (org-babel-execute:shen):
* lisp/org/org-agenda.el (org-agenda-entry-types)
(org-agenda-move-date-from-past-immediately-to-today)
(org-agenda-time-grid, org-agenda-sorting-strategy)
(org-agenda-filter-by-category, org-agenda-forward-block):
* lisp/org/org-colview.el (org-columns--overlay-text):
* lisp/org/org-faces.el (org-verbatim, org-cycle-level-faces):
* lisp/org/org-indent.el (org-indent-set-line-properties):
* lisp/org/org-macs.el (org-get-limited-outline-regexp):
* lisp/org/org-mobile.el (org-mobile-files):
* lisp/org/org.el (org-use-fast-todo-selection)
(org-extend-today-until, org-use-property-inheritance)
(org-refresh-effort-properties, org-open-at-point-global)
(org-track-ordered-property-with-tag, org-shiftright):
* lisp/org/ox-html.el (org-html-checkbox-type):
* lisp/org/ox-man.el (org-man-source-highlight)
(org-man-verse-block):
* lisp/org/ox-publish.el (org-publish-sitemap-default):
* lisp/outline.el (outline-head-from-level):
* lisp/progmodes/dcl-mode.el (dcl-back-to-indentation-1)
(dcl-calc-command-indent, dcl-indent-to):
* lisp/progmodes/flymake.el (flymake-make-diagnostic)
(flymake--overlays, flymake-diagnostic-functions)
(flymake-diagnostic-types-alist, flymake--backend-state)
(flymake-is-running, flymake--collect, flymake-mode):
* lisp/progmodes/gdb-mi.el (gdb-threads-list, gdb, gdb-non-stop)
(gdb-buffers, gdb-gud-context-call, gdb-jsonify-buffer):
* lisp/progmodes/grep.el (grep-error-screen-columns):
* lisp/progmodes/gud.el (gud-prev-expr):
* lisp/progmodes/ps-mode.el (ps-mode, ps-mode-target-column)
(ps-run-goto-error):
* lisp/progmodes/python.el (python-eldoc-get-doc)
(python-eldoc-function-timeout-permanent, python-eldoc-function):
* lisp/shadowfile.el (shadow-make-group):
* lisp/speedbar.el (speedbar-obj-do-check):
* lisp/textmodes/flyspell.el (flyspell-auto-correct-previous-hook):
* lisp/textmodes/reftex-cite.el (reftex-bib-or-thebib):
* lisp/textmodes/reftex-index.el (reftex-index-goto-entry)
(reftex-index-kill, reftex-index-undo):
* lisp/textmodes/reftex-parse.el (reftex-context-substring):
* lisp/textmodes/reftex.el (reftex-TeX-master-file):
* lisp/textmodes/rst.el (rst-next-hdr, rst-toc)
(rst-uncomment-region, rst-font-lock-extend-region-internal):
* lisp/thumbs.el (thumbs-mode):
* lisp/vc/ediff-util.el (ediff-restore-diff):
* lisp/vc/pcvs-defs.el (cvs-cvsroot, cvs-force-dir-tag):
* lisp/vc/vc-hg.el (vc-hg--ignore-patterns-valid-p):
* lisp/wid-edit.el (widget-field-value-set, string):
* lisp/x-dnd.el (x-dnd-version-from-flags)
(x-dnd-more-than-3-from-flags): Assorted docfixes.
2019-09-20 22:27:53 +00:00
|
|
|
|
"Convert CIE L*a*b* to L*C*h*."
|
2017-09-13 14:00:39 +00:00
|
|
|
|
(list L (sqrt (+ (* a a) (* b b))) (atan b a)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-lch-to-lab (L C h)
|
lisp/*.el: Fix typos and other trivial doc fixes
* lisp/allout-widgets.el (allout-widgets-auto-activation)
(allout-current-decorated-p):
* lisp/auth-source.el (auth-source-protocols):
* lisp/autorevert.el (auto-revert-set-timer):
* lisp/battery.el (battery-mode-line-limit):
* lisp/calc/calcalg3.el (math-map-binop):
* lisp/calendar/cal-dst.el (calendar-dst-find-startend):
* lisp/calendar/cal-mayan.el (calendar-mayan-long-count-to-absolute):
* lisp/calendar/calendar.el (calendar-date-echo-text)
(calendar-generate-month, calendar-string-spread)
(calendar-cursor-to-date, calendar-read, calendar-read-date)
(calendar-mark-visible-date, calendar-dayname-on-or-before):
* lisp/calendar/diary-lib.el (diary-ordinal-suffix):
* lisp/cedet/ede/autoconf-edit.el (autoconf-new-program)
(autoconf-find-last-macro, autoconf-parameter-strip):
* lisp/cedet/ede/config.el (ede-target-with-config-build):
* lisp/cedet/ede/linux.el (ede-linux--detect-architecture)
(ede-linux--get-architecture):
* lisp/cedet/semantic/complete.el (semantic-collector-calculate-cache)
(semantic-displayer-abstract, semantic-displayer-point-position):
* lisp/cedet/semantic/format.el (semantic-format-face-alist)
(semantic-format-tag-short-doc):
* lisp/cedet/semantic/fw.el (semantic-find-file-noselect):
* lisp/cedet/semantic/idle.el (semantic-idle-scheduler-work-idle-time)
(semantic-idle-breadcrumbs-display-function)
(semantic-idle-breadcrumbs-format-tag-list-function):
* lisp/cedet/semantic/lex.el (semantic-lex-map-types)
(define-lex, define-lex-block-type-analyzer):
* lisp/cedet/semantic/senator.el (senator-search-default-tag-filter):
* lisp/cedet/semantic/symref.el (semantic-symref-result)
(semantic-symref-hit-to-tag-via-db):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-new-variable)
(semantic-tag-new-include, semantic-tag-new-package)
(semantic-tag-set-faux, semantic-create-tag-proxy)
(semantic-tag-function-parent)
(semantic-tag-components-with-overlays):
* lisp/cedet/srecode/cpp.el (srecode-cpp-namespaces)
(srecode-semantic-handle-:c, srecode-semantic-apply-tag-to-dict):
* lisp/cedet/srecode/dictionary.el (srecode-create-dictionary)
(srecode-dictionary-add-entries, srecode-dictionary-lookup-name)
(srecode-create-dictionaries-from-tags):
* lisp/cmuscheme.el (scheme-compile-region):
* lisp/color.el (color-lab-to-lch):
* lisp/doc-view.el (doc-view-image-width)
(doc-view-set-up-single-converter):
* lisp/dynamic-setting.el (font-setting-change-default-font)
(dynamic-setting-handle-config-changed-event):
* lisp/elec-pair.el (electric-pair-text-pairs)
(electric-pair-skip-whitespace-function)
(electric-pair-string-bound-function):
* lisp/emacs-lisp/avl-tree.el (avl-tree--del-balance)
(avl-tree-member, avl-tree-mapcar, avl-tree-iter):
* lisp/emacs-lisp/bytecomp.el (byte-compile-generate-call-tree):
* lisp/emacs-lisp/checkdoc.el (checkdoc-autofix-flag)
(checkdoc-spellcheck-documentation-flag, checkdoc-ispell)
(checkdoc-ispell-current-buffer, checkdoc-ispell-interactive)
(checkdoc-ispell-message-interactive)
(checkdoc-ispell-message-text, checkdoc-ispell-start)
(checkdoc-ispell-continue, checkdoc-ispell-comments)
(checkdoc-ispell-defun):
* lisp/emacs-lisp/cl-generic.el (cl--generic-search-method):
* lisp/emacs-lisp/eieio-custom.el (eieio-read-customization-group):
* lisp/emacs-lisp/lisp.el (forward-sexp, up-list):
* lisp/emacs-lisp/package-x.el (package--archive-contents-from-file):
* lisp/emacs-lisp/package.el (package-desc)
(package--make-autoloads-and-stuff, package-hidden-regexps):
* lisp/emacs-lisp/tcover-ses.el (ses-exercise-startup):
* lisp/emacs-lisp/testcover.el (testcover-nohits)
(testcover-1value):
* lisp/epg.el (epg-receive-keys, epg-start-edit-key):
* lisp/erc/erc-backend.el (erc-server-processing-p)
(erc-split-line-length, erc-server-coding-system)
(erc-server-send, erc-message):
* lisp/erc/erc-button.el (erc-button-face, erc-button-alist)
(erc-browse-emacswiki):
* lisp/erc/erc-ezbounce.el (erc-ezbounce, erc-ezb-get-login):
* lisp/erc/erc-fill.el (erc-fill-variable-maximum-indentation):
* lisp/erc/erc-log.el (erc-current-logfile):
* lisp/erc/erc-match.el (erc-log-match-format)
(erc-text-matched-hook):
* lisp/erc/erc-netsplit.el (erc-netsplit, erc-netsplit-debug):
* lisp/erc/erc-networks.el (erc-server-alist)
(erc-networks-alist, erc-current-network):
* lisp/erc/erc-ring.el (erc-input-ring-index):
* lisp/erc/erc-speedbar.el (erc-speedbar)
(erc-speedbar-update-channel):
* lisp/erc/erc-stamp.el (erc-timestamp-only-if-changed-flag):
* lisp/erc/erc-track.el (erc-track-position-in-mode-line)
(erc-track-remove-from-mode-line, erc-modified-channels-update)
(erc-track-last-non-erc-buffer, erc-track-sort-by-importance)
(erc-track-get-active-buffer):
* lisp/erc/erc.el (erc-get-channel-user-list)
(erc-echo-notice-hook, erc-echo-notice-always-hook)
(erc-wash-quit-reason, erc-format-@nick):
* lisp/ffap.el (ffap-latex-mode):
* lisp/files.el (abort-if-file-too-large)
(dir-locals--get-sort-score, buffer-stale--default-function):
* lisp/filesets.el (filesets-tree-max-level, filesets-data)
(filesets-update-pre010505):
* lisp/gnus/gnus-agent.el (gnus-agent-flush-cache):
* lisp/gnus/gnus-art.el (gnus-article-encrypt-protocol)
(gnus-button-prefer-mid-or-mail):
* lisp/gnus/gnus-cus.el (gnus-group-parameters):
* lisp/gnus/gnus-demon.el (gnus-demon-handlers)
(gnus-demon-run-callback):
* lisp/gnus/gnus-dired.el (gnus-dired-print):
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event-from-buffer):
* lisp/gnus/gnus-range.el (gnus-range-normalize):
* lisp/gnus/gnus-spec.el (gnus-pad-form):
* lisp/gnus/gnus-srvr.el (gnus-server-agent, gnus-server-cloud)
(gnus-server-opened, gnus-server-closed, gnus-server-denied)
(gnus-server-offline):
* lisp/gnus/gnus-sum.el (gnus-refer-thread-use-nnir)
(gnus-refer-thread-limit-to-thread)
(gnus-summary-limit-include-thread, gnus-summary-refer-thread)
(gnus-summary-find-matching):
* lisp/gnus/gnus-util.el (gnus-rescale-image):
* lisp/gnus/gnus.el (gnus-summary-line-format, gnus-no-server):
* lisp/gnus/mail-source.el (mail-source-incoming-file-prefix):
* lisp/gnus/message.el (message-cite-reply-position)
(message-cite-style-outlook, message-cite-style-thunderbird)
(message-cite-style-gmail, message--send-mail-maybe-partially):
* lisp/gnus/mm-extern.el (mm-inline-external-body):
* lisp/gnus/mm-partial.el (mm-inline-partial):
* lisp/gnus/mml-sec.el (mml-secure-message-sign)
(mml-secure-message-sign-encrypt, mml-secure-message-encrypt):
* lisp/gnus/mml2015.el (mml2015-epg-key-image)
(mml2015-epg-key-image-to-string):
* lisp/gnus/nndiary.el (nndiary-reminders, nndiary-get-new-mail):
* lisp/gnus/nnheader.el (nnheader-directory-files-is-safe):
* lisp/gnus/nnir.el (nnir-search-history)
(nnir-imap-search-other, nnir-artlist-length)
(nnir-artlist-article, nnir-artitem-group, nnir-artitem-number)
(nnir-artitem-rsv, nnir-article-group, nnir-article-number)
(nnir-article-rsv, nnir-article-ids, nnir-categorize)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-hyrex-additional-switches)
(gnus-group-make-nnir-group, nnir-run-namazu, nnir-read-parms)
(nnir-read-parm, nnir-read-server-parm, nnir-search-thread):
* lisp/gnus/nnmairix.el (nnmairix-default-group)
(nnmairix-propagate-marks):
* lisp/gnus/smime.el (smime-keys, smime-crl-check)
(smime-verify-buffer, smime-noverify-buffer):
* lisp/gnus/spam-report.el (spam-report-url-ping-mm-url):
* lisp/gnus/spam.el (spam-spamassassin-positive-spam-flag-header)
(spam-spamassassin-spam-status-header, spam-sa-learn-rebuild)
(spam-classifications, spam-check-stat, spam-spamassassin-score):
* lisp/help.el (describe-minor-mode-from-symbol):
* lisp/hippie-exp.el (hippie-expand-ignore-buffers):
* lisp/htmlfontify.el (hfy-optimizations, hfy-face-resolve-face)
(hfy-begin-span):
* lisp/ibuf-ext.el (ibuffer-update-saved-filters-format)
(ibuffer-saved-filters, ibuffer-old-saved-filters-warning)
(ibuffer-filtering-qualifiers, ibuffer-repair-saved-filters)
(eval, ibuffer-unary-operand, file-extension, directory):
* lisp/image-dired.el (image-dired-cmd-pngcrush-options):
* lisp/image-mode.el (image-toggle-display):
* lisp/international/ccl.el (ccl-compile-read-multibyte-character)
(ccl-compile-write-multibyte-character):
* lisp/international/kkc.el (kkc-save-init-file):
* lisp/international/latin1-disp.el (latin1-display):
* lisp/international/ogonek.el (ogonek-name-encoding-alist)
(ogonek-information, ogonek-lookup-encoding)
(ogonek-deprefixify-region):
* lisp/isearch.el (isearch-filter-predicate)
(isearch--momentary-message):
* lisp/jsonrpc.el (jsonrpc-connection-send)
(jsonrpc-process-connection, jsonrpc-shutdown)
(jsonrpc--async-request-1):
* lisp/language/tibet-util.el (tibetan-char-p):
* lisp/mail/feedmail.el (feedmail-queue-use-send-time-for-date)
(feedmail-last-chance-hook, feedmail-before-fcc-hook)
(feedmail-send-it-immediately-wrapper, feedmail-find-eoh):
* lisp/mail/hashcash.el (hashcash-generate-payment)
(hashcash-generate-payment-async, hashcash-insert-payment)
(hashcash-verify-payment):
* lisp/mail/rmail.el (rmail-movemail-variant-in-use)
(rmail-get-attr-value):
* lisp/mail/rmailmm.el (rmail-mime-prefer-html, rmail-mime):
* lisp/mail/rmailsum.el (rmail-summary-show-message):
* lisp/mail/supercite.el (sc-raw-mode-toggle):
* lisp/man.el (Man-start-calling):
* lisp/mh-e/mh-acros.el (mh-do-at-event-location)
(mh-iterate-on-messages-in-region, mh-iterate-on-range):
* lisp/mh-e/mh-alias.el (mh-alias-system-aliases)
(mh-alias-reload, mh-alias-ali)
(mh-alias-canonicalize-suggestion, mh-alias-add-alias-to-file)
(mh-alias-add-alias):
* lisp/mouse.el (mouse-save-then-kill):
* lisp/net/browse-url.el (browse-url-default-macosx-browser):
* lisp/net/eudc.el (eudc-set, eudc-variable-protocol-value)
(eudc-variable-server-value, eudc-update-variable)
(eudc-expand-inline):
* lisp/net/eudcb-bbdb.el (eudc-bbdb-format-record-as-result):
* lisp/net/eudcb-ldap.el (eudc-ldap-get-field-list):
* lisp/net/pop3.el (pop3-list):
* lisp/net/soap-client.el (soap-namespace-put)
(soap-xs-parse-sequence, soap-parse-envelope):
* lisp/net/soap-inspect.el (soap-inspect-xs-complex-type):
* lisp/nxml/rng-xsd.el (rng-xsd-date-to-days):
* lisp/org/ob-C.el (org-babel-prep-session:C)
(org-babel-load-session:C):
* lisp/org/ob-J.el (org-babel-execute:J):
* lisp/org/ob-asymptote.el (org-babel-prep-session:asymptote):
* lisp/org/ob-awk.el (org-babel-execute:awk):
* lisp/org/ob-core.el (org-babel-process-file-name):
* lisp/org/ob-ebnf.el (org-babel-execute:ebnf):
* lisp/org/ob-forth.el (org-babel-execute:forth):
* lisp/org/ob-fortran.el (org-babel-execute:fortran)
(org-babel-prep-session:fortran, org-babel-load-session:fortran):
* lisp/org/ob-groovy.el (org-babel-execute:groovy):
* lisp/org/ob-io.el (org-babel-execute:io):
* lisp/org/ob-js.el (org-babel-execute:js):
* lisp/org/ob-lilypond.el (org-babel-default-header-args:lilypond)
(org-babel-lilypond-compile-post-tangle)
(org-babel-lilypond-display-pdf-post-tangle)
(org-babel-lilypond-tangle)
(org-babel-lilypond-execute-tangled-ly)
(org-babel-lilypond-compile-lilyfile)
(org-babel-lilypond-check-for-compile-error)
(org-babel-lilypond-process-compile-error)
(org-babel-lilypond-mark-error-line)
(org-babel-lilypond-parse-error-line)
(org-babel-lilypond-attempt-to-open-pdf)
(org-babel-lilypond-attempt-to-play-midi)
(org-babel-lilypond-switch-extension)
(org-babel-lilypond-set-header-args):
* lisp/org/ob-lua.el (org-babel-prep-session:lua):
* lisp/org/ob-picolisp.el (org-babel-execute:picolisp):
* lisp/org/ob-processing.el (org-babel-prep-session:processing):
* lisp/org/ob-python.el (org-babel-prep-session:python):
* lisp/org/ob-scheme.el (org-babel-scheme-capture-current-message)
(org-babel-scheme-execute-with-geiser, org-babel-execute:scheme):
* lisp/org/ob-shen.el (org-babel-execute:shen):
* lisp/org/org-agenda.el (org-agenda-entry-types)
(org-agenda-move-date-from-past-immediately-to-today)
(org-agenda-time-grid, org-agenda-sorting-strategy)
(org-agenda-filter-by-category, org-agenda-forward-block):
* lisp/org/org-colview.el (org-columns--overlay-text):
* lisp/org/org-faces.el (org-verbatim, org-cycle-level-faces):
* lisp/org/org-indent.el (org-indent-set-line-properties):
* lisp/org/org-macs.el (org-get-limited-outline-regexp):
* lisp/org/org-mobile.el (org-mobile-files):
* lisp/org/org.el (org-use-fast-todo-selection)
(org-extend-today-until, org-use-property-inheritance)
(org-refresh-effort-properties, org-open-at-point-global)
(org-track-ordered-property-with-tag, org-shiftright):
* lisp/org/ox-html.el (org-html-checkbox-type):
* lisp/org/ox-man.el (org-man-source-highlight)
(org-man-verse-block):
* lisp/org/ox-publish.el (org-publish-sitemap-default):
* lisp/outline.el (outline-head-from-level):
* lisp/progmodes/dcl-mode.el (dcl-back-to-indentation-1)
(dcl-calc-command-indent, dcl-indent-to):
* lisp/progmodes/flymake.el (flymake-make-diagnostic)
(flymake--overlays, flymake-diagnostic-functions)
(flymake-diagnostic-types-alist, flymake--backend-state)
(flymake-is-running, flymake--collect, flymake-mode):
* lisp/progmodes/gdb-mi.el (gdb-threads-list, gdb, gdb-non-stop)
(gdb-buffers, gdb-gud-context-call, gdb-jsonify-buffer):
* lisp/progmodes/grep.el (grep-error-screen-columns):
* lisp/progmodes/gud.el (gud-prev-expr):
* lisp/progmodes/ps-mode.el (ps-mode, ps-mode-target-column)
(ps-run-goto-error):
* lisp/progmodes/python.el (python-eldoc-get-doc)
(python-eldoc-function-timeout-permanent, python-eldoc-function):
* lisp/shadowfile.el (shadow-make-group):
* lisp/speedbar.el (speedbar-obj-do-check):
* lisp/textmodes/flyspell.el (flyspell-auto-correct-previous-hook):
* lisp/textmodes/reftex-cite.el (reftex-bib-or-thebib):
* lisp/textmodes/reftex-index.el (reftex-index-goto-entry)
(reftex-index-kill, reftex-index-undo):
* lisp/textmodes/reftex-parse.el (reftex-context-substring):
* lisp/textmodes/reftex.el (reftex-TeX-master-file):
* lisp/textmodes/rst.el (rst-next-hdr, rst-toc)
(rst-uncomment-region, rst-font-lock-extend-region-internal):
* lisp/thumbs.el (thumbs-mode):
* lisp/vc/ediff-util.el (ediff-restore-diff):
* lisp/vc/pcvs-defs.el (cvs-cvsroot, cvs-force-dir-tag):
* lisp/vc/vc-hg.el (vc-hg--ignore-patterns-valid-p):
* lisp/wid-edit.el (widget-field-value-set, string):
* lisp/x-dnd.el (x-dnd-version-from-flags)
(x-dnd-more-than-3-from-flags): Assorted docfixes.
2019-09-20 22:27:53 +00:00
|
|
|
|
"Convert CIE L*a*b* to L*C*h*."
|
2017-09-13 14:00:39 +00:00
|
|
|
|
(list L (* C (cos h)) (* C (sin h))))
|
|
|
|
|
|
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(defun color-cie-de2000 (color1 color2 &optional kL kC kH)
|
2011-02-21 06:03:36 +00:00
|
|
|
|
"Return the CIEDE2000 color distance between COLOR1 and COLOR2.
|
|
|
|
|
|
Both COLOR1 and COLOR2 should be in CIE L*a*b* format, as
|
|
|
|
|
|
returned by `color-srgb-to-lab' or `color-xyz-to-lab'."
|
2012-08-13 19:10:35 +00:00
|
|
|
|
(pcase-let*
|
|
|
|
|
|
((`(,L₁ ,a₁ ,b₁) color1)
|
|
|
|
|
|
(`(,L₂ ,a₂ ,b₂) color2)
|
|
|
|
|
|
(kL (or kL 1))
|
|
|
|
|
|
(kC (or kC 1))
|
|
|
|
|
|
(kH (or kH 1))
|
|
|
|
|
|
(C₁ (sqrt (+ (expt a₁ 2.0) (expt b₁ 2.0))))
|
|
|
|
|
|
(C₂ (sqrt (+ (expt a₂ 2.0) (expt b₂ 2.0))))
|
|
|
|
|
|
(C̄ (/ (+ C₁ C₂) 2.0))
|
|
|
|
|
|
(G (* 0.5 (- 1 (sqrt (/ (expt C̄ 7.0)
|
|
|
|
|
|
(+ (expt C̄ 7.0) (expt 25 7.0)))))))
|
|
|
|
|
|
(a′₁ (* (+ 1 G) a₁))
|
|
|
|
|
|
(a′₂ (* (+ 1 G) a₂))
|
|
|
|
|
|
(C′₁ (sqrt (+ (expt a′₁ 2.0) (expt b₁ 2.0))))
|
|
|
|
|
|
(C′₂ (sqrt (+ (expt a′₂ 2.0) (expt b₂ 2.0))))
|
|
|
|
|
|
(h′₁ (if (and (= b₁ 0) (= a′₁ 0))
|
|
|
|
|
|
0
|
|
|
|
|
|
(let ((v (atan b₁ a′₁)))
|
|
|
|
|
|
(if (< v 0)
|
|
|
|
|
|
(+ v (* 2 float-pi))
|
|
|
|
|
|
v))))
|
|
|
|
|
|
(h′₂ (if (and (= b₂ 0) (= a′₂ 0))
|
|
|
|
|
|
0
|
|
|
|
|
|
(let ((v (atan b₂ a′₂)))
|
|
|
|
|
|
(if (< v 0)
|
|
|
|
|
|
(+ v (* 2 float-pi))
|
|
|
|
|
|
v))))
|
|
|
|
|
|
(ΔL′ (- L₂ L₁))
|
|
|
|
|
|
(ΔC′ (- C′₂ C′₁))
|
|
|
|
|
|
(Δh′ (cond ((= (* C′₁ C′₂) 0)
|
|
|
|
|
|
0)
|
|
|
|
|
|
((<= (abs (- h′₂ h′₁)) float-pi)
|
|
|
|
|
|
(- h′₂ h′₁))
|
|
|
|
|
|
((> (- h′₂ h′₁) float-pi)
|
|
|
|
|
|
(- (- h′₂ h′₁) (* 2 float-pi)))
|
|
|
|
|
|
((< (- h′₂ h′₁) (- float-pi))
|
|
|
|
|
|
(+ (- h′₂ h′₁) (* 2 float-pi)))))
|
|
|
|
|
|
(ΔH′ (* 2 (sqrt (* C′₁ C′₂)) (sin (/ Δh′ 2.0))))
|
|
|
|
|
|
(L̄′ (/ (+ L₁ L₂) 2.0))
|
|
|
|
|
|
(C̄′ (/ (+ C′₁ C′₂) 2.0))
|
|
|
|
|
|
(h̄′ (cond ((= (* C′₁ C′₂) 0)
|
|
|
|
|
|
(+ h′₁ h′₂))
|
|
|
|
|
|
((<= (abs (- h′₁ h′₂)) float-pi)
|
|
|
|
|
|
(/ (+ h′₁ h′₂) 2.0))
|
|
|
|
|
|
((< (+ h′₁ h′₂) (* 2 float-pi))
|
|
|
|
|
|
(/ (+ h′₁ h′₂ (* 2 float-pi)) 2.0))
|
|
|
|
|
|
((>= (+ h′₁ h′₂) (* 2 float-pi))
|
|
|
|
|
|
(/ (+ h′₁ h′₂ (* -2 float-pi)) 2.0))))
|
|
|
|
|
|
(T (+ 1
|
|
|
|
|
|
(- (* 0.17 (cos (- h̄′ (degrees-to-radians 30)))))
|
|
|
|
|
|
(* 0.24 (cos (* h̄′ 2)))
|
|
|
|
|
|
(* 0.32 (cos (+ (* h̄′ 3) (degrees-to-radians 6))))
|
|
|
|
|
|
(- (* 0.20 (cos (- (* h̄′ 4) (degrees-to-radians 63)))))))
|
|
|
|
|
|
(Δθ (* (degrees-to-radians 30)
|
|
|
|
|
|
(exp (- (expt (/ (- h̄′ (degrees-to-radians 275))
|
|
|
|
|
|
(degrees-to-radians 25)) 2.0)))))
|
|
|
|
|
|
(Rc (* 2 (sqrt (/ (expt C̄′ 7.0) (+ (expt C̄′ 7.0) (expt 25.0 7.0))))))
|
|
|
|
|
|
(Sl (+ 1 (/ (* 0.015 (expt (- L̄′ 50) 2.0))
|
|
|
|
|
|
(sqrt (+ 20 (expt (- L̄′ 50) 2.0))))))
|
|
|
|
|
|
(Sc (+ 1 (* C̄′ 0.045)))
|
|
|
|
|
|
(Sh (+ 1 (* 0.015 C̄′ T)))
|
|
|
|
|
|
(Rt (- (* (sin (* Δθ 2)) Rc))))
|
2010-11-24 11:32:22 +00:00
|
|
|
|
(sqrt (+ (expt (/ ΔL′ (* Sl kL)) 2.0)
|
|
|
|
|
|
(expt (/ ΔC′ (* Sc kC)) 2.0)
|
|
|
|
|
|
(expt (/ ΔH′ (* Sh kH)) 2.0)
|
2012-08-13 19:10:35 +00:00
|
|
|
|
(* Rt (/ ΔC′ (* Sc kC)) (/ ΔH′ (* Sh kH)))))))
|
2010-11-23 00:03:44 +00:00
|
|
|
|
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(defun color-clamp (value)
|
|
|
|
|
|
"Make sure VALUE is a number between 0.0 and 1.0 inclusive."
|
|
|
|
|
|
(min 1.0 (max 0.0 value)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-saturate-hsl (H S L percent)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Make a color more saturated by a specified amount.
|
|
|
|
|
|
Given a color defined in terms of hue, saturation, and luminance
|
|
|
|
|
|
\(arguments H, S, and L), return a color that is PERCENT more
|
|
|
|
|
|
saturated. Returns a list (HUE SATURATION LUMINANCE)."
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(list H (color-clamp (+ S (/ percent 100.0))) L))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-saturate-name (name percent)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Make a color with a specified NAME more saturated by PERCENT.
|
2012-01-24 12:06:51 +00:00
|
|
|
|
See `color-saturate-hsl'."
|
|
|
|
|
|
(apply 'color-rgb-to-hex
|
|
|
|
|
|
(apply 'color-hsl-to-rgb
|
|
|
|
|
|
(apply 'color-saturate-hsl
|
|
|
|
|
|
(append
|
|
|
|
|
|
(apply 'color-rgb-to-hsl
|
|
|
|
|
|
(color-name-to-rgb name))
|
|
|
|
|
|
(list percent))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-desaturate-hsl (H S L percent)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Make a color less saturated by a specified amount.
|
|
|
|
|
|
Given a color defined in terms of hue, saturation, and luminance
|
|
|
|
|
|
\(arguments H, S, and L), return a color that is PERCENT less
|
|
|
|
|
|
saturated. Returns a list (HUE SATURATION LUMINANCE)."
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(color-saturate-hsl H S L (- percent)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-desaturate-name (name percent)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Make a color with a specified NAME less saturated by PERCENT.
|
2012-01-24 12:06:51 +00:00
|
|
|
|
See `color-desaturate-hsl'."
|
|
|
|
|
|
(color-saturate-name name (- percent)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-lighten-hsl (H S L percent)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Make a color lighter by a specified amount.
|
|
|
|
|
|
Given a color defined in terms of hue, saturation, and luminance
|
|
|
|
|
|
\(arguments H, S, and L), return a color that is PERCENT lighter.
|
|
|
|
|
|
Returns a list (HUE SATURATION LUMINANCE)."
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(list H S (color-clamp (+ L (/ percent 100.0)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-lighten-name (name percent)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Make a color with a specified NAME lighter by PERCENT.
|
2012-01-24 12:06:51 +00:00
|
|
|
|
See `color-lighten-hsl'."
|
|
|
|
|
|
(apply 'color-rgb-to-hex
|
|
|
|
|
|
(apply 'color-hsl-to-rgb
|
2012-04-05 07:29:19 +00:00
|
|
|
|
(apply 'color-lighten-hsl
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(append
|
|
|
|
|
|
(apply 'color-rgb-to-hsl
|
|
|
|
|
|
(color-name-to-rgb name))
|
|
|
|
|
|
(list percent))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-darken-hsl (H S L percent)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Make a color darker by a specified amount.
|
|
|
|
|
|
Given a color defined in terms of hue, saturation, and luminance
|
|
|
|
|
|
\(arguments H, S, and L), return a color that is PERCENT darker.
|
|
|
|
|
|
Returns a list (HUE SATURATION LUMINANCE)."
|
2012-01-24 12:06:51 +00:00
|
|
|
|
(color-lighten-hsl H S L (- percent)))
|
|
|
|
|
|
|
|
|
|
|
|
(defun color-darken-name (name percent)
|
2012-10-05 07:17:23 +00:00
|
|
|
|
"Make a color with a specified NAME darker by PERCENT.
|
2012-01-24 12:06:51 +00:00
|
|
|
|
See `color-darken-hsl'."
|
|
|
|
|
|
(color-lighten-name name (- percent)))
|
|
|
|
|
|
|
2010-11-25 14:51:51 +00:00
|
|
|
|
(provide 'color)
|
2010-11-24 01:28:37 +00:00
|
|
|
|
|
2010-11-25 14:51:51 +00:00
|
|
|
|
;;; color.el ends here
|