Variable: vc-annotate-color-map

vc-annotate-color-map is a customizable variable defined in vc-annotate.el.gz.

Value

((20 . "#FF3F3F") (40 . "#FF6C3F") (60 . "#FF993F") (80 . "#FFC63F")
 (100 . "#FFF33F") (120 . "#DDFF3F") (140 . "#B0FF3F")
 (160 . "#83FF3F") (180 . "#56FF3F") (200 . "#3FFF56")
 (220 . "#3FFF83") (240 . "#3FFFB0") (260 . "#3FFFDD")
 (280 . "#3FF3FF") (300 . "#3FC6FF") (320 . "#3F99FF")
 (340 . "#3F6CFF") (360 . "#3F3FFF"))

Documentation

Association list of age versus color, for C-x v g (vc-annotate).

Ages are given in units of fractional days. Default is eighteen steps using a twenty day increment, from red to blue. For TTY displays with 8 or fewer colors, the default is red to blue with all other colors between (excluding black and white).

Probably introduced at or before Emacs version 25.1.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-annotate.el.gz
(defcustom vc-annotate-color-map
  (if (and (tty-display-color-p) (<= (display-color-cells) 8))
      ;; A custom sorted TTY colormap
      (let* ((colors
	      (sort
	       (delq nil
		     (mapcar (lambda (x)
			       (if (not (or
					 (string-equal (car x) "white")
					 (string-equal (car x) "black") ))
				   (car x)))
			     (tty-color-alist)))
	       (lambda (a b)
		 (cond
		  ((or (string-equal a "red") (string-equal b "blue")) t)
		  ((or (string-equal b "red") (string-equal a "blue")) nil)
		  ((string-equal a "yellow") t)
		  ((string-equal b "yellow") nil)
		  ((string-equal a "cyan") t)
		  ((string-equal b "cyan") nil)
		  ((string-equal a "green") t)
		  ((string-equal b "green") nil)
		  ((string-equal a "magenta") t)
		  ((string-equal b "magenta") nil)
		  (t (string< a b))))))
	     (date 20.)
	     (delta (/ (- 360. date) (1- (length colors)))))
	(mapcar (lambda (x)
		  (prog1
		      (cons date x)
		    (setq date (+ date delta)))) colors))
    (cond
     ;; Normal colormap for background colors with dark foreground:
     ;; hue stepped from 0-240deg, value=1., saturation=0.20
     (vc-annotate-background-mode
      '(( 20. . "#FFCCCC")
	( 40. . "#FFD8CC")
	( 60. . "#FFE4CC")
	( 80. . "#FFF0CC")
	(100. . "#FFFCCC")
	(120. . "#F6FFCC")
	(140. . "#EAFFCC")
	(160. . "#DEFFCC")
	(180. . "#D2FFCC")
	(200. . "#CCFFD2")
	(220. . "#CCFFDE")
	(240. . "#CCFFEA")
	(260. . "#CCFFF6")
	(280. . "#CCFCFF")
	(300. . "#CCF0FF")
	(320. . "#CCE4FF")
	(340. . "#CCD8FF")
	(360. . "#CCCCFF")))
     ;; Normal colormap for foreground colors on dark background:
     ;; hue stepped from 0-240deg, value=1., saturation=0.75
     (t
      '(( 20. . "#FF3F3F")
	( 40. . "#FF6C3F")
	( 60. . "#FF993F")
	( 80. . "#FFC63F")
	(100. . "#FFF33F")
	(120. . "#DDFF3F")
	(140. . "#B0FF3F")
	(160. . "#83FF3F")
	(180. . "#56FF3F")
	(200. . "#3FFF56")
	(220. . "#3FFF83")
	(240. . "#3FFFB0")
	(260. . "#3FFFDD")
	(280. . "#3FF3FF")
	(300. . "#3FC6FF")
	(320. . "#3F99FF")
	(340. . "#3F6CFF")
	(360. . "#3F3FFF")))))
  "Association list of age versus color, for \\[vc-annotate].
Ages are given in units of fractional days.  Default is eighteen
steps using a twenty day increment, from red to blue.  For TTY
displays with 8 or fewer colors, the default is red to blue with
all other colors between (excluding black and white)."
  :type 'alist
  :group 'vc)