* Colour picker widget
@ 2011-07-13 15:10 Vivek Dasmohapatra
2011-07-13 17:35 ` Drew Adams
0 siblings, 1 reply; 5+ messages in thread
From: Vivek Dasmohapatra @ 2011-07-13 15:10 UTC (permalink / raw)
To: emacs-devel
[-- Attachment #1: Type: TEXT/PLAIN, Size: 521 bytes --]
Hi - I've been playing around with a colour-picker widget for
emacs, and have gotten it into a somewhat usable state - would
upstream be interested in adopting such a widget?
M-x colour-widget-test RET after loading the file to see it
in action.
By default it displays all the named colours, but it can take a list
of colours to display instead. It works on the console too, although
it's not quite as well laid out there (can't stretch spaces on a
terminal with display properties, so the squares aren't, er, square).
[-- Attachment #2: Type: TEXT/PLAIN, Size: 55096 bytes --]
(eval-and-compile
(require 'widget)
(require 'wid-edit))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; munging colour names <-> values
(defconst colour-hex-regex "[0-9A-Fa-f]")
(defconst colour-rgb-triplet-regex
(concat "\\(" colour-hex-regex colour-hex-regex "\\)"
"\\(" colour-hex-regex colour-hex-regex "\\)"
"\\(" colour-hex-regex colour-hex-regex "\\)"))
(defun colour-rgb-values (colour)
"Where COLOUR is a colour name or #XXXXXX style triplet, return a
list of 3 (16 bit) rgb values for said colour."
(if (string-match colour-rgb-triplet-regex colour)
(mapcar (lambda (x)
(* (string-to-number (match-string x colour) 16) 257)) '(1 2 3))
;;(message ">> %s" colour)
(cond ((fboundp 'x-color-values) (x-color-values colour))
((fboundp 'color-values) (color-values colour))
(colour-rgb-fallback-values colour)) ))
(defconst PI (* (atan 1) 4))
(defun colour-Θ (rgb-or-name)
(let (rgb www C W dotp Θ dummy)
(setq www (apply 'vector (colour-rgb-values "white"))
rgb (apply 'vector (if (stringp rgb-or-name)
(colour-rgb-values rgb-or-name)
rgb-or-name)))
(if (member rgb `([0 0 0] ,www))
0.0
(setq C (sqrt (apply '+ (mapcar (lambda (x) (expt x 2.0)) rgb)))
W (sqrt (apply '+ (mapcar (lambda (x) (expt x 2.0)) www)))
dotp (mapcar (lambda (x) (* (aref rgb x) (aref www x))) '(0 1 2))
dotp (apply '+ dotp)
Θ (/ (round (* (/ dotp (* C W)) 10000000.0)) 10000000.0)
Θ (acos Θ))
Θ)))
(defun colour-hsl-values (rgb-or-name)
(let (r g b h s l m M w δ)
(if (stringp rgb-or-name)
(setq rgb-or-name (colour-rgb-values rgb-or-name)))
(setq w (colour-rgb-values "white")
r (/ (nth 0 rgb-or-name) (* (nth 0 w) 1.0))
g (/ (nth 1 rgb-or-name) (* (nth 1 w) 1.0))
b (/ (nth 2 rgb-or-name) (* (nth 2 w) 1.0))
m (min r g b)
M (max r g b)
δ (- M m)
l (/ (+ m M) 2.0))
(if (eql m M)
;; white/black/grey: h is undefined
;; s is defined to be 0
(list nil 0.0 l)
(setq s (/ δ (if (< l 0.5) (+ M m) (- 2.0 M m)))
;; we can work out h w/o using trig, i turns out:
h (cond ((eql M r) (+ 0.0 (/ (- g b) δ)))
((eql M g) (+ 2.0 (/ (- b r) δ)))
((eql M b) (+ 4.0 (/ (- r g) δ))))
;; scale from 0-6 range we just calculated to radians:
h (/ (* PI h) 3.0))
;; flip h round into the +ve range if necessary
(if (< h 0) (setq h (+ (* PI 2) h)))
(list h s l)) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; comparing colours
(defvar colour-sort-value-cache (make-hash-table :test 'equal :size 512))
(defun colour-sort-value (rgb-or-name)
(let (sortval hsl hue sat lev Θ)
(if (setq sortval (gethash rgb-or-name colour-sort-value-cache))
sortval
(setq Θ (colour-Θ rgb-or-name)
sortval (apply 'vector
(nconc (colour-hsl-values rgb-or-name) (list Θ)))
hue (aref sortval 0)
lev (aref sortval 2)
sat (aref sortval 1) ;; squash saturation, to avoid oversorting
sat (/ (round (* 100 sat)) 100.0))
;; fake hue for things that we want artificaly sorted:
(setq hue
(cond ((null hue) -99) ;; greyscale pseudo-hue
((< Θ 0.090) (- hue 45)) ;; off-white pseudo-hue(s)
((< sat 0.25) (- hue 45)) ;; ibid, due to low saturation
((> lev 0.85) (- hue 45)) ;; ibid, high level
(t ;; default - squash the hue a bit to avoid oversorting:
(/ (round (* 100.0 hue)) 100.0))))
(aset sortval 0 hue)
(aset sortval 1 sat)
(aset sortval 3 (- 1 Θ))
(puthash rgb-or-name sortval colour-sort-value-cache) ;
sortval)))
(defconst colour-band-boundary
[-99 -46 0.0 0.34 0.85 1.30 2.55 3.75 4.54 5.04 6.29])
;;[-99 -46 0.0 0.34 0.87 1.57 2.62 3.67 4.51 5.04 6.29])
(defconst colour-band-name
[greyscale off-white red orange yellow green cyan blue purple magenta])
(defun colour-band-index (band)
(cond ((eq band 'greyscale) 0)
((eq band 'off-white) 1)
((eq band 'red ) 2)
((eq band 'orange ) 3)
((eq band 'yellow ) 4)
((eq band 'green ) 5)
((eq band 'cyan ) 6)
((eq band 'blue ) 7)
((eq band 'purple ) 8)
((eq band 'magenta ) 9)))
(defun colour-band (hue)
(let ((i 0) (L (length colour-band-boundary)) b B band)
(while (and (> L i) (not band))
(setq b (aref colour-band-boundary i)
B (aref colour-band-boundary (1+ i)))
(if (and (<= b hue) (> B hue))
(setq band (aref colour-band-name i)))
(setq i (1+ i)))
band))
(defun colour-sort-predicate (colour-a colour-b)
(let (a b x y z ha hb dcomp band-a band-b ia ib)
(setq a (colour-sort-value colour-a)
b (colour-sort-value colour-b)
ha (aref a 0)
hb (aref b 0)
band-a (colour-band ha)
band-b (colour-band hb)
ia (colour-band-index band-a)
ib (colour-band-index band-b))
;;(message "%20s : %-20s :: %S : %S" colour-a colour-b ia ib)
(cond ((and (eq band-a 'greyscale)) (setq x 2 y 1 z 0))
((and (eq band-a 'off-white)) (setq x 2 y 3 z 0))
(t (setq x 2 y 1 z 0 dcomp band-a)))
(cond ((< ia ib) t )
((> ia ib) nil)
((< (aref a x) (aref b x)) t )
((> (aref a x) (aref b x)) nil)
(dcomp (< (color-distance (symbol-name dcomp) colour-a)
(color-distance (symbol-name dcomp) colour-b)))
((< (aref a y) (aref b y)) t )
((> (aref a y) (aref b y)) nil)
((< (aref a z) (aref b z)) t )) ))
(defun colour-sort-predicate-simple (colour-a colour-b)
(let (a b x y z ha hb)
(setq a (colour-sort-value colour-a)
b (colour-sort-value colour-b)
ha (aref a 0)
hb (aref b 0))
;; greyscales are compared to greyscales by level, saturation, hue
;; off-whites are compared to off-whites by level, hue, saturation
;; all other comparisons are by hue, level, saturation
;; this implements separate subsorts for greyscales, off-whites and colours
;; resulting in "correct" looking bands for
;; greyscale/off-white/red/orange/yellow/green/cyan/blue/purple/pink
(cond ((and (< ha -90) (< hb -90)) (setq x 2 y 1 z 0)) ;; L S H
((and (> ha -90) (> hb -90)
(< ha 0) (< hb 0)) (setq x 2 y 0 z 1)) ;; L H S
(t (setq x 0 y 2 z 1))) ;; H L S
(cond ((< (aref a x) (aref b x)) t)
((> (aref a x) (aref b x)) nil)
((< (aref a y) (aref b y)) t)
((> (aref a y) (aref b y)) nil)
((< (aref a z) (aref b z)) t)) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; colour grid widget
(defvar colour-grid-keymap
(let ((map (make-sparse-keymap)))
(set-keymap-parent map widget-keymap)
(mapc (lambda (key)
(define-key map (read-kbd-macro key) 'colour-grid-clicked))
'("RET" "<down-mouse-1>" "<mouse-1>" "<down-mouse-2>" "<mouse-2>"))
map))
(defun colour-grid-enter (old new)
(if (not (eq cursor-type 'hollow)) (setq cursor-type 'hollow)))
(defun colour-grid-leave (old new &optional ctype)
(or (get-char-property new 'cursor-type)
(if (setq ctype (get-char-property old 'cursor-type))
(setq cursor-type cursor-type))))
(defun colour-widget-insert-sample (colour &optional prop val label)
(let ((values (colour-rgb-values colour)) start ovl scursor ocursor ctype)
(or values (error "Bad colour %S" colour))
(setq start (point)
ctype (frame-parameter nil 'cursor-type))
(insert (propertize " "
'cursor-type ctype
'help-echo colour
'point-entered 'colour-grid-enter
'point-left 'colour-grid-leave))
(setq ovl (make-overlay start (point) nil t))
(mapc (lambda (pv) (overlay-put ovl (car pv) (cdr pv)))
`((display space-width 2)
(face :background ,colour :box t)
(keymap . ,colour-grid-keymap) ))
(if prop (overlay-put ovl prop val))
(when label
(if window-system
(setq label (colour-rgb-label colour :rgb :hsl))
(setq label (colour-rgb-label colour :rgb)) )
(insert " " (propertize " " 'display label))) ))
(defun colour-widget-strip-duplicates (colour-list)
(let (seen cbuf)
(mapc (lambda (c &optional v)
(setq v (colour-rgb-values c))
(or (member v seen)
(setq seen (cons v seen)
cbuf (cons c cbuf)))) colour-list)
(nreverse cbuf)))
(defun colour-widget-default-colours (&optional frame)
(colour-widget-strip-duplicates
(mapcar 'car (list-colors-duplicates (defined-colors frame)))))
(defun colour-grid-render (colour-list &optional row-size)
(let ((start (point))
(start-column (current-column))
(n 0)
(r 0)
rstart props last-colour)
(when (and (boundp 'x-stretch-cursor)
(not x-stretch-cursor))
(set (make-local-variable 'x-stretch-cursor) t))
(or colour-list
(setq colour-list (colour-widget-default-colours)))
(setq colour-list (sort colour-list 'colour-sort-predicate))
(or row-size
(setq row-size (max 8 (ceiling (sqrt (length colour-list))))))
(setq rstart start
last-colour (car (last colour-list)))
(mapcar
(lambda (colour)
(colour-widget-insert-sample colour)
(setq n (1+ n))
(when (or (>= n row-size) (eq colour last-colour))
(setq n 0)
(if (eq colour last-colour)
(insert (if (> r 1) "\n" " "))
(insert "\n" (make-string start-column ?\ ))
(setq r (1+ r) rstart (point))) ))
colour-list)))
(defun colour-grid-clicked (widget &optional e)
(interactive
(let ((keys (this-command-keys-vector)) event pos)
(setq event (aref keys 0)
pos (if (eventp event) (posn-point (event-start event)) (point)))
(list (widget-at pos) (and (eventp event) event))))
(let (pos colour face)
(setq pos (if (eventp e) (posn-point (event-start e)) (point))
face (car (get-char-property-and-overlay pos 'face)))
(when face
(setq colour (if (symbolp face)
(face-attribute face :background nil 'default)
(plist-get face :background)))
(widget-value-set widget colour)
(goto-char pos)
(deactivate-mark)
(redisplay)
;;(setq colour (propertize colour 'face `(:background ,colour)))
(apply 'message "%s (%04x %04x %04x)" colour (colour-rgb-values colour))
colour) ))
(defun colour-grid-get (widget)
(widget-get widget :value))
(defun colour-grid-set (widget value)
(widget-put widget :value value)
(let ((overlay (widget-get widget :button-overlay)) start end loc label)
(setq start (overlay-start overlay)
end (overlay-end overlay)
loc (save-excursion
(next-single-char-property-change start 'selected nil end)))
(mapc
(lambda (o &optional s f)
(when (setq s (overlay-get o 'selected))
(setq f (overlay-get o 'face))
(plist-put f :background value)
(overlay-put o 'face f)
(overlay-put o 'help-echo value)
(overlay-put o 'selected value)))
(overlays-at loc))
(let ((inhibit-read-only t)
(inhibit-modification-hooks t))
(if window-system
(setq label (colour-rgb-label value :rgb :hsl))
(setq label (colour-rgb-label value :rgb)))
(add-text-properties (+ 2 loc) (+ 3 loc) (list 'display label))) ))
(defun colour-grid-value-create (widget)
(let ((colours (widget-get widget :colours))
(selected (widget-get widget :value )))
(or colours (setq colours (colour-widget-default-colours)))
(or selected (setq selected (car colours)))
(widget-put widget :value selected)
(colour-grid-render colours)
(insert "Selected: ")
(colour-widget-insert-sample selected 'selected selected t)
(insert " ") ))
(define-widget 'colour-grid 'default
"A clickable colour picker in the form of a grid of coloured blocks"
:value-create 'colour-grid-value-create
:value-set 'colour-grid-set
:value-get 'colour-grid-get
:action 'colour-grid-clicked
:suppress-face t
:tag "Colour"
:format "%t: %[%v%]")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; not working yet, rgb numeric/slider/other specifier, haven't decided:
(defun colour-rgb-insert-widgets (widget colour)
(let (rgb r g b)
(setq rgb (colour-rgb-values colour)
r (format "%04x" (nth 0 rgb))
g (format "%04x" (nth 1 rgb))
b (format "%04x" (nth 2 rgb)))
(widget-put widget :value (list r g b))
(widget-put widget :args 'editable-field)
(widget-editable-list-value-create widget)
)
)
(defun colour-rgb-value-create (widget)
(let ((colour (widget-get widget :value)))
(or colour (setq colour "black"))
(colour-rgb-insert-widgets widget colour)
(insert "Selected: ")
(colour-widget-insert-sample colour 'selected colour)))
(define-widget 'colour-rgb 'default
"A colour picker in the form of an RGB triplet"
:value-create 'colour-rgb-value-create
:value-set 'colour-rgb-set
:value-get 'colour-rgb-get
:action 'colour-rgb-clicked
:tag "Colour"
:format "%t: %v")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; demo code
(defun colour-widget-test ()
(interactive)
(let ((buffer (get-buffer-create "*cp-demo*")))
(set-buffer buffer)
(or (get-buffer-window buffer 'visible)
(display-buffer buffer))
(let ((inhibit-read-only t)
(inhibit-modification-hooks t))
(remove-overlays)
(erase-buffer))
(use-local-map widget-keymap)
(widget-insert "\n")
(widget-create 'colour-grid
;;:colours '("red" "green" "blue")
)
(widget-insert "\n")
;; (widget-create 'list
;; :size 6
;; :value '(#xdddd #xa0a0 #xdddd)
;; 'integer 'integer 'integer
;; )
;; (widget-insert "\n")
;; (widget-create 'integer
;; :size 6
;; :tag "entry"
;; :format "%t: %[-%] %v %[+%]"
;; #xff)
;; (widget-insert "\n")
(widget-setup) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; hardwired data
(defconst colour-rgb-fallback-map
'(("snow" 65535 64250 64250)
("ghost white" 63736 63736 65535)
("GhostWhite" 63736 63736 65535)
("white smoke" 62965 62965 62965)
("WhiteSmoke" 62965 62965 62965)
("gainsboro" 56540 56540 56540)
("floral white" 65535 64250 61680)
("FloralWhite" 65535 64250 61680)
("old lace" 65021 62965 59110)
("OldLace" 65021 62965 59110)
("linen" 64250 61680 59110)
("antique white" 64250 60395 55255)
("AntiqueWhite" 64250 60395 55255)
("papaya whip" 65535 61423 54741)
("PapayaWhip" 65535 61423 54741)
("blanched almond" 65535 60395 52685)
("BlanchedAlmond" 65535 60395 52685)
("bisque" 65535 58596 50372)
("peach puff" 65535 56026 47545)
("PeachPuff" 65535 56026 47545)
("navajo white" 65535 57054 44461)
("NavajoWhite" 65535 57054 44461)
("moccasin" 65535 58596 46517)
("cornsilk" 65535 63736 56540)
("ivory" 65535 65535 61680)
("lemon chiffon" 65535 64250 52685)
("LemonChiffon" 65535 64250 52685)
("seashell" 65535 62965 61166)
("honeydew" 61680 65535 61680)
("mint cream" 62965 65535 64250)
("MintCream" 62965 65535 64250)
("azure" 61680 65535 65535)
("alice blue" 61680 63736 65535)
("AliceBlue" 61680 63736 65535)
("lavender" 59110 59110 64250)
("lavender blush" 65535 61680 62965)
("LavenderBlush" 65535 61680 62965)
("misty rose" 65535 58596 57825)
("MistyRose" 65535 58596 57825)
("white" 65535 65535 65535)
("black" 0 0 0)
("dark slate gray" 12079 20303 20303)
("DarkSlateGray" 12079 20303 20303)
("dark slate grey" 12079 20303 20303)
("DarkSlateGrey" 12079 20303 20303)
("dim gray" 26985 26985 26985)
("DimGray" 26985 26985 26985)
("dim grey" 26985 26985 26985)
("DimGrey" 26985 26985 26985)
("slate gray" 28784 32896 37008)
("SlateGray" 28784 32896 37008)
("slate grey" 28784 32896 37008)
("SlateGrey" 28784 32896 37008)
("light slate gray" 30583 34952 39321)
("LightSlateGray" 30583 34952 39321)
("light slate grey" 30583 34952 39321)
("LightSlateGrey" 30583 34952 39321)
("gray" 48830 48830 48830)
("grey" 48830 48830 48830)
("light grey" 54227 54227 54227)
("LightGrey" 54227 54227 54227)
("light gray" 54227 54227 54227)
("LightGray" 54227 54227 54227)
("midnight blue" 6425 6425 28784)
("MidnightBlue" 6425 6425 28784)
("navy" 0 0 32896)
("navy blue" 0 0 32896)
("NavyBlue" 0 0 32896)
("cornflower blue" 25700 38293 60909)
("CornflowerBlue" 25700 38293 60909)
("dark slate blue" 18504 15677 35723)
("DarkSlateBlue" 18504 15677 35723)
("slate blue" 27242 23130 52685)
("SlateBlue" 27242 23130 52685)
("medium slate blue" 31611 26728 61166)
("MediumSlateBlue" 31611 26728 61166)
("light slate blue" 33924 28784 65535)
("LightSlateBlue" 33924 28784 65535)
("medium blue" 0 0 52685)
("MediumBlue" 0 0 52685)
("royal blue" 16705 26985 57825)
("RoyalBlue" 16705 26985 57825)
("blue" 0 0 65535)
("dodger blue" 7710 37008 65535)
("DodgerBlue" 7710 37008 65535)
("deep sky blue" 0 49087 65535)
("DeepSkyBlue" 0 49087 65535)
("sky blue" 34695 52942 60395)
("SkyBlue" 34695 52942 60395)
("light sky blue" 34695 52942 64250)
("LightSkyBlue" 34695 52942 64250)
("steel blue" 17990 33410 46260)
("SteelBlue" 17990 33410 46260)
("light steel blue" 45232 50372 57054)
("LightSteelBlue" 45232 50372 57054)
("light blue" 44461 55512 59110)
("LightBlue" 44461 55512 59110)
("powder blue" 45232 57568 59110)
("PowderBlue" 45232 57568 59110)
("pale turquoise" 44975 61166 61166)
("PaleTurquoise" 44975 61166 61166)
("dark turquoise" 0 52942 53713)
("DarkTurquoise" 0 52942 53713)
("medium turquoise" 18504 53713 52428)
("MediumTurquoise" 18504 53713 52428)
("turquoise" 16448 57568 53456)
("cyan" 0 65535 65535)
("light cyan" 57568 65535 65535)
("LightCyan" 57568 65535 65535)
("cadet blue" 24415 40606 41120)
("CadetBlue" 24415 40606 41120)
("medium aquamarine" 26214 52685 43690)
("MediumAquamarine" 26214 52685 43690)
("aquamarine" 32639 65535 54484)
("dark green" 0 25700 0)
("DarkGreen" 0 25700 0)
("dark olive green" 21845 27499 12079)
("DarkOliveGreen" 21845 27499 12079)
("dark sea green" 36751 48316 36751)
("DarkSeaGreen" 36751 48316 36751)
("sea green" 11822 35723 22359)
("SeaGreen" 11822 35723 22359)
("medium sea green" 15420 46003 29041)
("MediumSeaGreen" 15420 46003 29041)
("light sea green" 8224 45746 43690)
("LightSeaGreen" 8224 45746 43690)
("pale green" 39064 64507 39064)
("PaleGreen" 39064 64507 39064)
("spring green" 0 65535 32639)
("SpringGreen" 0 65535 32639)
("lawn green" 31868 64764 0)
("LawnGreen" 31868 64764 0)
("green" 0 65535 0)
("chartreuse" 32639 65535 0)
("medium spring green" 0 64250 39578)
("MediumSpringGreen" 0 64250 39578)
("green yellow" 44461 65535 12079)
("GreenYellow" 44461 65535 12079)
("lime green" 12850 52685 12850)
("LimeGreen" 12850 52685 12850)
("yellow green" 39578 52685 12850)
("YellowGreen" 39578 52685 12850)
("forest green" 8738 35723 8738)
("ForestGreen" 8738 35723 8738)
("olive drab" 27499 36494 8995)
("OliveDrab" 27499 36494 8995)
("dark khaki" 48573 47031 27499)
("DarkKhaki" 48573 47031 27499)
("khaki" 61680 59110 35980)
("pale goldenrod" 61166 59624 43690)
("PaleGoldenrod" 61166 59624 43690)
("light goldenrod yellow" 64250 64250 53970)
("LightGoldenrodYellow" 64250 64250 53970)
("light yellow" 65535 65535 57568)
("LightYellow" 65535 65535 57568)
("yellow" 65535 65535 0)
("gold" 65535 55255 0)
("light goldenrod" 61166 56797 33410)
("LightGoldenrod" 61166 56797 33410)
("goldenrod" 56026 42405 8224)
("dark goldenrod" 47288 34438 2827)
("DarkGoldenrod" 47288 34438 2827)
("rosy brown" 48316 36751 36751)
("RosyBrown" 48316 36751 36751)
("indian red" 52685 23644 23644)
("IndianRed" 52685 23644 23644)
("saddle brown" 35723 17733 4883)
("SaddleBrown" 35723 17733 4883)
("sienna" 41120 21074 11565)
("peru" 52685 34181 16191)
("burlywood" 57054 47288 34695)
("beige" 62965 62965 56540)
("wheat" 62965 57054 46003)
("sandy brown" 62708 42148 24672)
("SandyBrown" 62708 42148 24672)
("tan" 53970 46260 35980)
("chocolate" 53970 26985 7710)
("firebrick" 45746 8738 8738)
("brown" 42405 10794 10794)
("dark salmon" 59881 38550 31354)
("DarkSalmon" 59881 38550 31354)
("salmon" 64250 32896 29298)
("light salmon" 65535 41120 31354)
("LightSalmon" 65535 41120 31354)
("orange" 65535 42405 0)
("dark orange" 65535 35980 0)
("DarkOrange" 65535 35980 0)
("coral" 65535 32639 20560)
("light coral" 61680 32896 32896)
("LightCoral" 61680 32896 32896)
("tomato" 65535 25443 18247)
("orange red" 65535 17733 0)
("OrangeRed" 65535 17733 0)
("red" 65535 0 0)
("hot pink" 65535 26985 46260)
("HotPink" 65535 26985 46260)
("deep pink" 65535 5140 37779)
("DeepPink" 65535 5140 37779)
("pink" 65535 49344 52171)
("light pink" 65535 46774 49601)
("LightPink" 65535 46774 49601)
("pale violet red" 56283 28784 37779)
("PaleVioletRed" 56283 28784 37779)
("maroon" 45232 12336 24672)
("medium violet red" 51143 5397 34181)
("MediumVioletRed" 51143 5397 34181)
("violet red" 53456 8224 37008)
("VioletRed" 53456 8224 37008)
("magenta" 65535 0 65535)
("violet" 61166 33410 61166)
("plum" 56797 41120 56797)
("orchid" 56026 28784 54998)
("medium orchid" 47802 21845 54227)
("MediumOrchid" 47802 21845 54227)
("dark orchid" 39321 12850 52428)
("DarkOrchid" 39321 12850 52428)
("dark violet" 38036 0 54227)
("DarkViolet" 38036 0 54227)
("blue violet" 35466 11051 58082)
("BlueViolet" 35466 11051 58082)
("purple" 41120 8224 61680)
("medium purple" 37779 28784 56283)
("MediumPurple" 37779 28784 56283)
("thistle" 55512 49087 55512)
("snow1" 65535 64250 64250)
("snow2" 61166 59881 59881)
("snow3" 52685 51657 51657)
("snow4" 35723 35209 35209)
("seashell1" 65535 62965 61166)
("seashell2" 61166 58853 57054)
("seashell3" 52685 50629 49087)
("seashell4" 35723 34438 33410)
("AntiqueWhite1" 65535 61423 56283)
("AntiqueWhite2" 61166 57311 52428)
("AntiqueWhite3" 52685 49344 45232)
("AntiqueWhite4" 35723 33667 30840)
("bisque1" 65535 58596 50372)
("bisque2" 61166 54741 47031)
("bisque3" 52685 47031 40606)
("bisque4" 35723 32125 27499)
("PeachPuff1" 65535 56026 47545)
("PeachPuff2" 61166 52171 44461)
("PeachPuff3" 52685 44975 38293)
("PeachPuff4" 35723 30583 25957)
("NavajoWhite1" 65535 57054 44461)
("NavajoWhite2" 61166 53199 41377)
("NavajoWhite3" 52685 46003 35723)
("NavajoWhite4" 35723 31097 24158)
("LemonChiffon1" 65535 64250 52685)
("LemonChiffon2" 61166 59881 49087)
("LemonChiffon3" 52685 51657 42405)
("LemonChiffon4" 35723 35209 28784)
("cornsilk1" 65535 63736 56540)
("cornsilk2" 61166 59624 52685)
("cornsilk3" 52685 51400 45489)
("cornsilk4" 35723 34952 30840)
("ivory1" 65535 65535 61680)
("ivory2" 61166 61166 57568)
("ivory3" 52685 52685 49601)
("ivory4" 35723 35723 33667)
("honeydew1" 61680 65535 61680)
("honeydew2" 57568 61166 57568)
("honeydew3" 49601 52685 49601)
("honeydew4" 33667 35723 33667)
("LavenderBlush1" 65535 61680 62965)
("LavenderBlush2" 61166 57568 58853)
("LavenderBlush3" 52685 49601 50629)
("LavenderBlush4" 35723 33667 34438)
("MistyRose1" 65535 58596 57825)
("MistyRose2" 61166 54741 53970)
("MistyRose3" 52685 47031 46517)
("MistyRose4" 35723 32125 31611)
("azure1" 61680 65535 65535)
("azure2" 57568 61166 61166)
("azure3" 49601 52685 52685)
("azure4" 33667 35723 35723)
("SlateBlue1" 33667 28527 65535)
("SlateBlue2" 31354 26471 61166)
("SlateBlue3" 26985 22873 52685)
("SlateBlue4" 18247 15420 35723)
("RoyalBlue1" 18504 30326 65535)
("RoyalBlue2" 17219 28270 61166)
("RoyalBlue3" 14906 24415 52685)
("RoyalBlue4" 10023 16448 35723)
("blue1" 0 0 65535)
("blue2" 0 0 61166)
("blue3" 0 0 52685)
("blue4" 0 0 35723)
("DodgerBlue1" 7710 37008 65535)
("DodgerBlue2" 7196 34438 61166)
("DodgerBlue3" 6168 29812 52685)
("DodgerBlue4" 4112 20046 35723)
("SteelBlue1" 25443 47288 65535)
("SteelBlue2" 23644 44204 61166)
("SteelBlue3" 20303 38036 52685)
("SteelBlue4" 13878 25700 35723)
("DeepSkyBlue1" 0 49087 65535)
("DeepSkyBlue2" 0 45746 61166)
("DeepSkyBlue3" 0 39578 52685)
("DeepSkyBlue4" 0 26728 35723)
("SkyBlue1" 34695 52942 65535)
("SkyBlue2" 32382 49344 61166)
("SkyBlue3" 27756 42662 52685)
("SkyBlue4" 19018 28784 35723)
("LightSkyBlue1" 45232 58082 65535)
("LightSkyBlue2" 42148 54227 61166)
("LightSkyBlue3" 36237 46774 52685)
("LightSkyBlue4" 24672 31611 35723)
("SlateGray1" 50886 58082 65535)
("SlateGray2" 47545 54227 61166)
("SlateGray3" 40863 46774 52685)
("SlateGray4" 27756 31611 35723)
("LightSteelBlue1" 51914 57825 65535)
("LightSteelBlue2" 48316 53970 61166)
("LightSteelBlue3" 41634 46517 52685)
("LightSteelBlue4" 28270 31611 35723)
("LightBlue1" 49087 61423 65535)
("LightBlue2" 45746 57311 61166)
("LightBlue3" 39578 49344 52685)
("LightBlue4" 26728 33667 35723)
("LightCyan1" 57568 65535 65535)
("LightCyan2" 53713 61166 61166)
("LightCyan3" 46260 52685 52685)
("LightCyan4" 31354 35723 35723)
("PaleTurquoise1" 48059 65535 65535)
("PaleTurquoise2" 44718 61166 61166)
("PaleTurquoise3" 38550 52685 52685)
("PaleTurquoise4" 26214 35723 35723)
("CadetBlue1" 39064 62965 65535)
("CadetBlue2" 36494 58853 61166)
("CadetBlue3" 31354 50629 52685)
("CadetBlue4" 21331 34438 35723)
("turquoise1" 0 62965 65535)
("turquoise2" 0 58853 61166)
("turquoise3" 0 50629 52685)
("turquoise4" 0 34438 35723)
("cyan1" 0 65535 65535)
("cyan2" 0 61166 61166)
("cyan3" 0 52685 52685)
("cyan4" 0 35723 35723)
("DarkSlateGray1" 38807 65535 65535)
("DarkSlateGray2" 36237 61166 61166)
("DarkSlateGray3" 31097 52685 52685)
("DarkSlateGray4" 21074 35723 35723)
("aquamarine1" 32639 65535 54484)
("aquamarine2" 30326 61166 50886)
("aquamarine3" 26214 52685 43690)
("aquamarine4" 17733 35723 29812)
("DarkSeaGreen1" 49601 65535 49601)
("DarkSeaGreen2" 46260 61166 46260)
("DarkSeaGreen3" 39835 52685 39835)
("DarkSeaGreen4" 26985 35723 26985)
("SeaGreen1" 21588 65535 40863)
("SeaGreen2" 20046 61166 38036)
("SeaGreen3" 17219 52685 32896)
("SeaGreen4" 11822 35723 22359)
("PaleGreen1" 39578 65535 39578)
("PaleGreen2" 37008 61166 37008)
("PaleGreen3" 31868 52685 31868)
("PaleGreen4" 21588 35723 21588)
("SpringGreen1" 0 65535 32639)
("SpringGreen2" 0 61166 30326)
("SpringGreen3" 0 52685 26214)
("SpringGreen4" 0 35723 17733)
("green1" 0 65535 0)
("green2" 0 61166 0)
("green3" 0 52685 0)
("green4" 0 35723 0)
("chartreuse1" 32639 65535 0)
("chartreuse2" 30326 61166 0)
("chartreuse3" 26214 52685 0)
("chartreuse4" 17733 35723 0)
("OliveDrab1" 49344 65535 15934)
("OliveDrab2" 46003 61166 14906)
("OliveDrab3" 39578 52685 12850)
("OliveDrab4" 26985 35723 8738)
("DarkOliveGreen1" 51914 65535 28784)
("DarkOliveGreen2" 48316 61166 26728)
("DarkOliveGreen3" 41634 52685 23130)
("DarkOliveGreen4" 28270 35723 15677)
("khaki1" 65535 63222 36751)
("khaki2" 61166 59110 34181)
("khaki3" 52685 50886 29555)
("khaki4" 35723 34438 20046)
("LightGoldenrod1" 65535 60652 35723)
("LightGoldenrod2" 61166 56540 33410)
("LightGoldenrod3" 52685 48830 28784)
("LightGoldenrod4" 35723 33153 19532)
("LightYellow1" 65535 65535 57568)
("LightYellow2" 61166 61166 53713)
("LightYellow3" 52685 52685 46260)
("LightYellow4" 35723 35723 31354)
("yellow1" 65535 65535 0)
("yellow2" 61166 61166 0)
("yellow3" 52685 52685 0)
("yellow4" 35723 35723 0)
("gold1" 65535 55255 0)
("gold2" 61166 51657 0)
("gold3" 52685 44461 0)
("gold4" 35723 30069 0)
("goldenrod1" 65535 49601 9509)
("goldenrod2" 61166 46260 8738)
("goldenrod3" 52685 39835 7453)
("goldenrod4" 35723 26985 5140)
("DarkGoldenrod1" 65535 47545 3855)
("DarkGoldenrod2" 61166 44461 3598)
("DarkGoldenrod3" 52685 38293 3084)
("DarkGoldenrod4" 35723 25957 2056)
("RosyBrown1" 65535 49601 49601)
("RosyBrown2" 61166 46260 46260)
("RosyBrown3" 52685 39835 39835)
("RosyBrown4" 35723 26985 26985)
("IndianRed1" 65535 27242 27242)
("IndianRed2" 61166 25443 25443)
("IndianRed3" 52685 21845 21845)
("IndianRed4" 35723 14906 14906)
("sienna1" 65535 33410 18247)
("sienna2" 61166 31097 16962)
("sienna3" 52685 26728 14649)
("sienna4" 35723 18247 9766)
("burlywood1" 65535 54227 39835)
("burlywood2" 61166 50629 37265)
("burlywood3" 52685 43690 32125)
("burlywood4" 35723 29555 21845)
("wheat1" 65535 59367 47802)
("wheat2" 61166 55512 44718)
("wheat3" 52685 47802 38550)
("wheat4" 35723 32382 26214)
("tan1" 65535 42405 20303)
("tan2" 61166 39578 18761)
("tan3" 52685 34181 16191)
("tan4" 35723 23130 11051)
("chocolate1" 65535 32639 9252)
("chocolate2" 61166 30326 8481)
("chocolate3" 52685 26214 7453)
("chocolate4" 35723 17733 4883)
("firebrick1" 65535 12336 12336)
("firebrick2" 61166 11308 11308)
("firebrick3" 52685 9766 9766)
("firebrick4" 35723 6682 6682)
("brown1" 65535 16448 16448)
("brown2" 61166 15163 15163)
("brown3" 52685 13107 13107)
("brown4" 35723 8995 8995)
("salmon1" 65535 35980 26985)
("salmon2" 61166 33410 25186)
("salmon3" 52685 28784 21588)
("salmon4" 35723 19532 14649)
("LightSalmon1" 65535 41120 31354)
("LightSalmon2" 61166 38293 29298)
("LightSalmon3" 52685 33153 25186)
("LightSalmon4" 35723 22359 16962)
("orange1" 65535 42405 0)
("orange2" 61166 39578 0)
("orange3" 52685 34181 0)
("orange4" 35723 23130 0)
("DarkOrange1" 65535 32639 0)
("DarkOrange2" 61166 30326 0)
("DarkOrange3" 52685 26214 0)
("DarkOrange4" 35723 17733 0)
("coral1" 65535 29298 22102)
("coral2" 61166 27242 20560)
("coral3" 52685 23387 17733)
("coral4" 35723 15934 12079)
("tomato1" 65535 25443 18247)
("tomato2" 61166 23644 16962)
("tomato3" 52685 20303 14649)
("tomato4" 35723 13878 9766)
("OrangeRed1" 65535 17733 0)
("OrangeRed2" 61166 16448 0)
("OrangeRed3" 52685 14135 0)
("OrangeRed4" 35723 9509 0)
("red1" 65535 0 0)
("red2" 61166 0 0)
("red3" 52685 0 0)
("red4" 35723 0 0)
("DeepPink1" 65535 5140 37779)
("DeepPink2" 61166 4626 35209)
("DeepPink3" 52685 4112 30326)
("DeepPink4" 35723 2570 20560)
("HotPink1" 65535 28270 46260)
("HotPink2" 61166 27242 42919)
("HotPink3" 52685 24672 37008)
("HotPink4" 35723 14906 25186)
("pink1" 65535 46517 50629)
("pink2" 61166 43433 47288)
("pink3" 52685 37265 40606)
("pink4" 35723 25443 27756)
("LightPink1" 65535 44718 47545)
("LightPink2" 61166 41634 44461)
("LightPink3" 52685 35980 38293)
("LightPink4" 35723 24415 25957)
("PaleVioletRed1" 65535 33410 43947)
("PaleVioletRed2" 61166 31097 40863)
("PaleVioletRed3" 52685 26728 35209)
("PaleVioletRed4" 35723 18247 23901)
("maroon1" 65535 13364 46003)
("maroon2" 61166 12336 42919)
("maroon3" 52685 10537 37008)
("maroon4" 35723 7196 25186)
("VioletRed1" 65535 15934 38550)
("VioletRed2" 61166 14906 35980)
("VioletRed3" 52685 12850 30840)
("VioletRed4" 35723 8738 21074)
("magenta1" 65535 0 65535)
("magenta2" 61166 0 61166)
("magenta3" 52685 0 52685)
("magenta4" 35723 0 35723)
("orchid1" 65535 33667 64250)
("orchid2" 61166 31354 59881)
("orchid3" 52685 26985 51657)
("orchid4" 35723 18247 35209)
("plum1" 65535 48059 65535)
("plum2" 61166 44718 61166)
("plum3" 52685 38550 52685)
("plum4" 35723 26214 35723)
("MediumOrchid1" 57568 26214 65535)
("MediumOrchid2" 53713 24415 61166)
("MediumOrchid3" 46260 21074 52685)
("MediumOrchid4" 31354 14135 35723)
("DarkOrchid1" 49087 15934 65535)
("DarkOrchid2" 45746 14906 61166)
("DarkOrchid3" 39578 12850 52685)
("DarkOrchid4" 26728 8738 35723)
("purple1" 39835 12336 65535)
("purple2" 37265 11308 61166)
("purple3" 32125 9766 52685)
("purple4" 21845 6682 35723)
("MediumPurple1" 43947 33410 65535)
("MediumPurple2" 40863 31097 61166)
("MediumPurple3" 35209 26728 52685)
("MediumPurple4" 23901 18247 35723)
("thistle1" 65535 57825 65535)
("thistle2" 61166 53970 61166)
("thistle3" 52685 46517 52685)
("thistle4" 35723 31611 35723)
("gray0" 0 0 0)
("grey0" 0 0 0)
("gray1" 771 771 771)
("grey1" 771 771 771)
("gray2" 1285 1285 1285)
("grey2" 1285 1285 1285)
("gray3" 2056 2056 2056)
("grey3" 2056 2056 2056)
("gray4" 2570 2570 2570)
("grey4" 2570 2570 2570)
("gray5" 3341 3341 3341)
("grey5" 3341 3341 3341)
("gray6" 3855 3855 3855)
("grey6" 3855 3855 3855)
("gray7" 4626 4626 4626)
("grey7" 4626 4626 4626)
("gray8" 5140 5140 5140)
("grey8" 5140 5140 5140)
("gray9" 5911 5911 5911)
("grey9" 5911 5911 5911)
("gray10" 6682 6682 6682)
("grey10" 6682 6682 6682)
("gray11" 7196 7196 7196)
("grey11" 7196 7196 7196)
("gray12" 7967 7967 7967)
("grey12" 7967 7967 7967)
("gray13" 8481 8481 8481)
("grey13" 8481 8481 8481)
("gray14" 9252 9252 9252)
("grey14" 9252 9252 9252)
("gray15" 9766 9766 9766)
("grey15" 9766 9766 9766)
("gray16" 10537 10537 10537)
("grey16" 10537 10537 10537)
("gray17" 11051 11051 11051)
("grey17" 11051 11051 11051)
("gray18" 11822 11822 11822)
("grey18" 11822 11822 11822)
("gray19" 12336 12336 12336)
("grey19" 12336 12336 12336)
("gray20" 13107 13107 13107)
("grey20" 13107 13107 13107)
("gray21" 13878 13878 13878)
("grey21" 13878 13878 13878)
("gray22" 14392 14392 14392)
("grey22" 14392 14392 14392)
("gray23" 15163 15163 15163)
("grey23" 15163 15163 15163)
("gray24" 15677 15677 15677)
("grey24" 15677 15677 15677)
("gray25" 16448 16448 16448)
("grey25" 16448 16448 16448)
("gray26" 16962 16962 16962)
("grey26" 16962 16962 16962)
("gray27" 17733 17733 17733)
("grey27" 17733 17733 17733)
("gray28" 18247 18247 18247)
("grey28" 18247 18247 18247)
("gray29" 19018 19018 19018)
("grey29" 19018 19018 19018)
("gray30" 19789 19789 19789)
("grey30" 19789 19789 19789)
("gray31" 20303 20303 20303)
("grey31" 20303 20303 20303)
("gray32" 21074 21074 21074)
("grey32" 21074 21074 21074)
("gray33" 21588 21588 21588)
("grey33" 21588 21588 21588)
("gray34" 22359 22359 22359)
("grey34" 22359 22359 22359)
("gray35" 22873 22873 22873)
("grey35" 22873 22873 22873)
("gray36" 23644 23644 23644)
("grey36" 23644 23644 23644)
("gray37" 24158 24158 24158)
("grey37" 24158 24158 24158)
("gray38" 24929 24929 24929)
("grey38" 24929 24929 24929)
("gray39" 25443 25443 25443)
("grey39" 25443 25443 25443)
("gray40" 26214 26214 26214)
("grey40" 26214 26214 26214)
("gray41" 26985 26985 26985)
("grey41" 26985 26985 26985)
("gray42" 27499 27499 27499)
("grey42" 27499 27499 27499)
("gray43" 28270 28270 28270)
("grey43" 28270 28270 28270)
("gray44" 28784 28784 28784)
("grey44" 28784 28784 28784)
("gray45" 29555 29555 29555)
("grey45" 29555 29555 29555)
("gray46" 30069 30069 30069)
("grey46" 30069 30069 30069)
("gray47" 30840 30840 30840)
("grey47" 30840 30840 30840)
("gray48" 31354 31354 31354)
("grey48" 31354 31354 31354)
("gray49" 32125 32125 32125)
("grey49" 32125 32125 32125)
("gray50" 32639 32639 32639)
("grey50" 32639 32639 32639)
("gray51" 33410 33410 33410)
("grey51" 33410 33410 33410)
("gray52" 34181 34181 34181)
("grey52" 34181 34181 34181)
("gray53" 34695 34695 34695)
("grey53" 34695 34695 34695)
("gray54" 35466 35466 35466)
("grey54" 35466 35466 35466)
("gray55" 35980 35980 35980)
("grey55" 35980 35980 35980)
("gray56" 36751 36751 36751)
("grey56" 36751 36751 36751)
("gray57" 37265 37265 37265)
("grey57" 37265 37265 37265)
("gray58" 38036 38036 38036)
("grey58" 38036 38036 38036)
("gray59" 38550 38550 38550)
("grey59" 38550 38550 38550)
("gray60" 39321 39321 39321)
("grey60" 39321 39321 39321)
("gray61" 40092 40092 40092)
("grey61" 40092 40092 40092)
("gray62" 40606 40606 40606)
("grey62" 40606 40606 40606)
("gray63" 41377 41377 41377)
("grey63" 41377 41377 41377)
("gray64" 41891 41891 41891)
("grey64" 41891 41891 41891)
("gray65" 42662 42662 42662)
("grey65" 42662 42662 42662)
("gray66" 43176 43176 43176)
("grey66" 43176 43176 43176)
("gray67" 43947 43947 43947)
("grey67" 43947 43947 43947)
("gray68" 44461 44461 44461)
("grey68" 44461 44461 44461)
("gray69" 45232 45232 45232)
("grey69" 45232 45232 45232)
("gray70" 46003 46003 46003)
("grey70" 46003 46003 46003)
("gray71" 46517 46517 46517)
("grey71" 46517 46517 46517)
("gray72" 47288 47288 47288)
("grey72" 47288 47288 47288)
("gray73" 47802 47802 47802)
("grey73" 47802 47802 47802)
("gray74" 48573 48573 48573)
("grey74" 48573 48573 48573)
("gray75" 49087 49087 49087)
("grey75" 49087 49087 49087)
("gray76" 49858 49858 49858)
("grey76" 49858 49858 49858)
("gray77" 50372 50372 50372)
("grey77" 50372 50372 50372)
("gray78" 51143 51143 51143)
("grey78" 51143 51143 51143)
("gray79" 51657 51657 51657)
("grey79" 51657 51657 51657)
("gray80" 52428 52428 52428)
("grey80" 52428 52428 52428)
("gray81" 53199 53199 53199)
("grey81" 53199 53199 53199)
("gray82" 53713 53713 53713)
("grey82" 53713 53713 53713)
("gray83" 54484 54484 54484)
("grey83" 54484 54484 54484)
("gray84" 54998 54998 54998)
("grey84" 54998 54998 54998)
("gray85" 55769 55769 55769)
("grey85" 55769 55769 55769)
("gray86" 56283 56283 56283)
("grey86" 56283 56283 56283)
("gray87" 57054 57054 57054)
("grey87" 57054 57054 57054)
("gray88" 57568 57568 57568)
("grey88" 57568 57568 57568)
("gray89" 58339 58339 58339)
("grey89" 58339 58339 58339)
("gray90" 58853 58853 58853)
("grey90" 58853 58853 58853)
("gray91" 59624 59624 59624)
("grey91" 59624 59624 59624)
("gray92" 60395 60395 60395)
("grey92" 60395 60395 60395)
("gray93" 60909 60909 60909)
("grey93" 60909 60909 60909)
("gray94" 61680 61680 61680)
("grey94" 61680 61680 61680)
("gray95" 62194 62194 62194)
("grey95" 62194 62194 62194)
("gray96" 62965 62965 62965)
("grey96" 62965 62965 62965)
("gray97" 63479 63479 63479)
("grey97" 63479 63479 63479)
("gray98" 64250 64250 64250)
("grey98" 64250 64250 64250)
("gray99" 64764 64764 64764)
("grey99" 64764 64764 64764)
("gray100" 65535 65535 65535)
("grey100" 65535 65535 65535)
("dark grey" 43433 43433 43433)
("DarkGrey" 43433 43433 43433)
("dark gray" 43433 43433 43433)
("DarkGray" 43433 43433 43433)
("dark blue" 0 0 35723)
("DarkBlue" 0 0 35723)
("dark cyan" 0 35723 35723)
("DarkCyan" 0 35723 35723)
("dark magenta" 35723 0 35723)
("DarkMagenta" 35723 0 35723)
("dark red" 35723 0 0)
("DarkRed" 35723 0 0)
("light green" 37008 61166 37008)
("LightGreen" 37008 61166 37008)) )
(defun colour-rgb-fallback-values (colour-string)
(cdr (assoc-string colour-string colour-rgb-fallback-map t)) )
(defun colour-rgb-label (colour &rest extra)
(let (values name dummy)
(or (setq values (colour-rgb-values colour))
(error "Bad colour %S" colour))
;; look up the name if the fallback map if it's a hex triplet
(or (if (string-match colour-rgb-triplet-regex colour)
(setq name (car (rassoc values colour-rgb-fallback-map))))
(setq name colour))
;; render into standard label format
(concat name
(if (memq :rgb extra)
(apply 'format " (rgb: #x%04x #x%04x #x%04x)" values) "")
(if (memq :hsl extra)
(apply 'format " (hsl: %.2f %.2f %.2f)"
(let ((hsl (colour-hsl-values colour)) h s l)
(setq h (nth 0 hsl) s (nth 1 hsl) l (nth 2 hsl))
(list (or h -1) s l))) "")) ))
[-- Attachment #3: Type: IMAGE/png, Size: 7850 bytes --]
[-- Attachment #4: Type: IMAGE/png, Size: 3312 bytes --]
^ permalink raw reply [flat|nested] 5+ messages in thread
* RE: Colour picker widget
2011-07-13 15:10 Colour picker widget Vivek Dasmohapatra
@ 2011-07-13 17:35 ` Drew Adams
2011-07-13 17:43 ` Vivek Dasmohapatra
0 siblings, 1 reply; 5+ messages in thread
From: Drew Adams @ 2011-07-13 17:35 UTC (permalink / raw)
To: 'Vivek Dasmohapatra', emacs-devel
> Hi - I've been playing around with a colour-picker widget for
> emacs, and have gotten it into a somewhat usable state - would
> upstream be interested in adopting such a widget?
>
> M-x colour-widget-test RET after loading the file to see it
> in action.
>
> By default it displays all the named colours, but it can take a list
> of colours to display instead. It works on the console too, although
> it's not quite as well laid out there (can't stretch spaces on a
> terminal with display properties, so the squares aren't, er, square).
See also:
1. http://www.emacswiki.org/emacs/download/palette.el
http://www.emacswiki.org/emacs/ColorPalette
2. `list-colors-display' and its optional LIST argument.
(LIST can include unnamed colors, such as "#999333666".)
^ permalink raw reply [flat|nested] 5+ messages in thread
* RE: Colour picker widget
2011-07-13 17:35 ` Drew Adams
@ 2011-07-13 17:43 ` Vivek Dasmohapatra
2011-07-13 18:02 ` Drew Adams
0 siblings, 1 reply; 5+ messages in thread
From: Vivek Dasmohapatra @ 2011-07-13 17:43 UTC (permalink / raw)
To: Drew Adams; +Cc: emacs-devel
> 1. http://www.emacswiki.org/emacs/download/palette.el
> http://www.emacswiki.org/emacs/ColorPalette
Interesting - my main intent with the colour-grid was to add
something that could be used in defcustom entries and the like.
It would be interesting to add some pf palette's funcitonality
to that.
^ permalink raw reply [flat|nested] 5+ messages in thread
* RE: Colour picker widget
2011-07-13 17:43 ` Vivek Dasmohapatra
@ 2011-07-13 18:02 ` Drew Adams
2011-07-19 13:40 ` Adrian Robert
0 siblings, 1 reply; 5+ messages in thread
From: Drew Adams @ 2011-07-13 18:02 UTC (permalink / raw)
To: 'Vivek Dasmohapatra'; +Cc: emacs-devel
> > 1. http://www.emacswiki.org/emacs/download/palette.el
> > http://www.emacswiki.org/emacs/ColorPalette
>
> Interesting - my main intent with the colour-grid was to add
> something that could be used in defcustom entries and the like.
> It would be interesting to add some pf palette's funcitonality
> to that.
I agree that it would be good to add this kind of color picking to Customize.
This was brought up long ago, but it is still a good idea.
Customize is good, but its UI could be improved by letting it reach out to get a
resulting value using other UI extensions.
A color picker is one such. Currently when you choose a color in Customize by
clicking the `Choose' button you get the `list-colors-display' to choose from.
That's good.
You used to be able to choose a color name using completion. Both possibilities
should be available, IMO. And completion should show the color names using
their colors as background.
A palette to choose from would also be convenient here. The palette in
`palette.el' lets you manipulate colors in various ways to choose a color.
`Do Re Mi' incremental color-changing and choosing methods might also be
candidates for a Customize color-chooser plugin. Likewise some of the Facemenu+
UI features.
http://www.emacswiki.org/emacs/DoReMi
http://www.emacswiki.org/emacs/FaceMenuPlus
The idea should be not just to make Customize use whichever of these (and
similar) we think is best. Best would be to make Customize pluggable, so users
themselves could easily choose which color-choosing UI features to use.
And likewise for other Customize choices, besides colors.
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Colour picker widget
2011-07-13 18:02 ` Drew Adams
@ 2011-07-19 13:40 ` Adrian Robert
0 siblings, 0 replies; 5+ messages in thread
From: Adrian Robert @ 2011-07-19 13:40 UTC (permalink / raw)
To: emacs-devel
Drew Adams <drew.adams <at> oracle.com> writes:
> > Interesting - my main intent with the colour-grid was to add
> > something that could be used in defcustom entries and the like.
> > It would be interesting to add some pf palette's funcitonality
> > to that.
>
> I agree that it would be good to add this kind of color picking to Customize.
> This was brought up long ago, but it is still a good idea.
>
> Customize is good, but its UI could be improved by letting it reach out
> to get a resulting value using other UI extensions.
FWIW, this is one of those "extra" features in the NS port that
survived the great purge. If you have access to a Mac you can
pull up a color picker in Emacs.app with Cmd-C. Drag a color to
a face to set it just on that frame, option-drag to set
background. It uses set-face-foreground/background, settings
which used to be persisted using NS defaults, but no longer.
Hooking it up to customize instead might be a good idea,
particularly if other platforms add a widget and it can be done
in a standard way.
thanks,
Adrian
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2011-07-19 13:40 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-07-13 15:10 Colour picker widget Vivek Dasmohapatra
2011-07-13 17:35 ` Drew Adams
2011-07-13 17:43 ` Vivek Dasmohapatra
2011-07-13 18:02 ` Drew Adams
2011-07-19 13:40 ` Adrian Robert
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).