procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix shr and CSS 4 color maps

Browse source 
* lisp/net/shr-color.el (shr-color-html-colors-alist): Fix typos.
Add RebeccaPurple.
* lisp/textmodes/css-mode.el (css--color-map): Add fuchsia-magenta
and aqua-cyan aliases.
* test/lisp/textmodes/css-mode-tests.el (css-test-property-values):
Bump color count.
This commit is contained in:
Basil L. Contovounesios 2018-02-07 02:49:08 +00:00 • committed by Simen Heggestøyl
parent 5fe81923e5
commit e209034536
3 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/net/shr-color.el
View file

@ -137,7 +137,7 @@ absolute value without any unit."
("MediumAquaMarine" . "#66CDAA") ("MediumAquaMarine" . "#66CDAA")
("MediumBlue" . "#0000CD") ("MediumBlue" . "#0000CD")
("MediumOrchid" . "#BA55D3") ("MediumOrchid" . "#BA55D3")
("MediumPurple" . "#9370D8") ("MediumPurple" . "#9370DB")
("MediumSeaGreen" . "#3CB371") ("MediumSeaGreen" . "#3CB371")
("MediumSlateBlue" . "#7B68EE") ("MediumSlateBlue" . "#7B68EE")
("MediumSpringGreen" . "#00FA9A") ("MediumSpringGreen" . "#00FA9A")
@ -158,7 +158,7 @@ absolute value without any unit."
("PaleGoldenRod" . "#EEE8AA") ("PaleGoldenRod" . "#EEE8AA")
("PaleGreen" . "#98FB98") ("PaleGreen" . "#98FB98")
("PaleTurquoise" . "#AFEEEE") ("PaleTurquoise" . "#AFEEEE")
("PaleVioletRed" . "#D87093") ("PaleVioletRed" . "#DB7093")
("PapayaWhip" . "#FFEFD5") ("PapayaWhip" . "#FFEFD5")
("PeachPuff" . "#FFDAB9") ("PeachPuff" . "#FFDAB9")
("Peru" . "#CD853F") ("Peru" . "#CD853F")
@ -166,6 +166,7 @@ absolute value without any unit."
("Plum" . "#DDA0DD") ("Plum" . "#DDA0DD")
("PowderBlue" . "#B0E0E6") ("PowderBlue" . "#B0E0E6")
("Purple" . "#800080") ("Purple" . "#800080")
("RebeccaPurple" . "#663399")
("Red" . "#FF0000") ("Red" . "#FF0000")
("RosyBrown" . "#BC8F8F") ("RosyBrown" . "#BC8F8F")
("RoyalBlue" . "#4169E1") ("RoyalBlue" . "#4169E1")

2
lisp/textmodes/css-mode.el
View file

@ -498,6 +498,7 @@ further value candidates, since that list would be infinite.")
("red" . "#ff0000") ("red" . "#ff0000")
("purple" . "#800080") ("purple" . "#800080")
("fuchsia" . "#ff00ff") ("fuchsia" . "#ff00ff")
("magenta" . "#ff00ff")
("green" . "#008000") ("green" . "#008000")
("lime" . "#00ff00") ("lime" . "#00ff00")
("olive" . "#808000") ("olive" . "#808000")
@ -506,6 +507,7 @@ further value candidates, since that list would be infinite.")
("blue" . "#0000ff") ("blue" . "#0000ff")
("teal" . "#008080") ("teal" . "#008080")
("aqua" . "#00ffff") ("aqua" . "#00ffff")
("cyan" . "#00ffff")
("orange" . "#ffa500") ("orange" . "#ffa500")
("aliceblue" . "#f0f8ff") ("aliceblue" . "#f0f8ff")
("antiquewhite" . "#faebd7") ("antiquewhite" . "#faebd7")

2
test/lisp/textmodes/css-mode-tests.el
View file

@ -58,7 +58,7 @@
;; Check that the `color' property doesn't cause infinite recursion ;; Check that the `color' property doesn't cause infinite recursion
;; because it refers to the value class of the same name. ;; because it refers to the value class of the same name.
(should (= (length (css--property-values "color")) 152))) (should (= (length (css--property-values "color")) 154)))
(ert-deftest css-test-property-value-cache () (ert-deftest css-test-property-value-cache ()
"Test that `css--property-value-cache' is in use." "Test that `css--property-value-cache' is in use."