[C] packages: Improve re-builder reb-match faces for light background

COMMIT Named colors seem way too sparse to come up with 10 well spaced hue values of equal saturation and brightness. What would good saturation and brightness values be for dark backgrounds? I am obviously trying to stay on the bright side :-) Best regards, Adrian packages ChangeLog patch: Diff command: cvs -q diff -U 0 Files affected: xemacs-packages/re-builder/ChangeLog Index: xemacs-packages/re-builder/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/re-builder/ChangeLog,v retrieving revision 1.8 diff -u -U0 -r1.8 ChangeLog --- xemacs-packages/re-builder/ChangeLog 31 Aug 2005 13:15:08 -0000 1.8 +++ xemacs-packages/re-builder/ChangeLog 11 Sep 2005 15:47:17 -0000 ＠＠ -0,0 +1,14 ＠＠ +2005-09-11 Adrian Aichner <adrian(a)xemacs.org&gt; + + * re-builder.el (reb-match-0): Improve re-builder reb-match faces + for light background. + * re-builder.el (reb-match-1): Ditto. + * re-builder.el (reb-match-2): Ditto. + * re-builder.el (reb-match-3): Ditto. + * re-builder.el (reb-match-4): Ditto. + * re-builder.el (reb-match-5): Ditto. + * re-builder.el (reb-match-6): Ditto. + * re-builder.el (reb-match-7): Ditto. + * re-builder.el (reb-match-8): Ditto. + * re-builder.el (reb-match-9): Ditto. + packages source patch: Diff command: cvs -f -z3 -q diff -u -w -N Files affected: xemacs-packages/re-builder/re-builder.el Index: xemacs-packages/re-builder/re-builder.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/re-builder/re-builder.el,v retrieving revision 1.4 diff -u -w -r1.4 re-builder.el --- xemacs-packages/re-builder/re-builder.el 28 Aug 2005 22:46:20 -0000 1.4 +++ xemacs-packages/re-builder/re-builder.el 11 Sep 2005 15:45:45 -0000 ＠＠ -160,11 +160,23 ＠＠ :type '(restricted-sexp :match-alternatives (integerp 'nil))) -; hsv 0 0.882353 0.843137, rgb (55255 6500 6500) close to color -; "firebrick3" ((52685 9766 9766)) +; Produced by +; (Hsv2ColoredTextSpectrum 0 359 36 0.2155 0.3000 1.0000 1.0000 1.0000 1.0000) +; from http://www.emacswiki.org/cgi-bin/emacs/hsv2rgb.el +; Hue Satur Value RGB Sample +; 0 0.216 1.000 #ffc8c8 +; 36 0.216 1.000 #ffe9c8 +; 72 0.216 1.000 #f4ffc8 +; 108 0.216 1.000 #d3ffc8 +; 144 0.216 1.000 #c8ffde +; 180 0.216 1.000 #c8ffff +; 216 0.216 1.000 #c8deff +; 252 0.216 1.000 #d3c8ff +; 288 0.216 1.000 #f4c8ff +; 324 0.216 1.000 #ffc8e9 (defface reb-match-0 '((((class color) (background light)) - (:background "firebrick3")) + (:background "#ffc8c8")) (((class color) (background dark)) (:background "steelblue4")) (t ＠＠ -172,11 +184,9 ＠＠ "Used for displaying the whole match." :group 're-builder) -; hsv 36 0.921569 0.843137, rgb (55255 34886 4333) close to color -; "goldenrod3" ((52685 39835 7453)) (defface reb-match-1 '((((class color) (background light)) - (:background "goldenrod3")) + (:background "#ffe9c8")) (((class color) (background dark)) (:background "blue3")) (t ＠＠ -184,12 +194,9 ＠＠ "Used for displaying the first matching subexpression." :group 're-builder) - -; hsv 72 0.843137 0.803922, rgb (43800 52685 8264) close to color -; "YellowGreen" ((39578 52685 12850)) (defface reb-match-2 '((((class color) (background light)) - (:background "YellowGreen")) + (:background "#f4ffc8")) (((class color) (background dark)) (:background "chartreuse4")) (t ＠＠ -197,16 +204,9 ＠＠ "Used for displaying the second matching subexpression." :group 're-builder) -; hsv 108 0.686275 0.686275, rgb (20282 44975 14109) close to color -; "SeaGreen" ((11822 35723 22359)) -; hsv 108 0.843137 0.803922, rgb (17148 52685 8264) close to color -; "LimeGreen" ((12850 52685 12850)) -; hsv 108 0.725490 0.686275, rgb (18871 44975 12346) close to color "PaleGreen4" ((21588 35723 21588)) -; hsv 108 0.843137 0.960784, rgb (20494 62965 9876) close to color -; "chartreuse2" ((30326 61166 0)) (defface reb-match-3 '((((class color) (background light)) - (:background "chartreuse2")) + (:background "#d3ffc8")) (((class color) (background dark)) (:background "sienna4")) (t ＠＠ -214,13 +214,9 ＠＠ "Used for displaying the third matching subexpression." :group 're-builder) -; hsv 144 0.882353 0.843137, rgb (6500 55255 26002) close to color -; "MediumSeaGreen" ((15420 46003 29041)) -; hsv 144 1.000000 0.843137, rgb (0 55255 22101) close to color -; "SpringGreen3" ((0 52685 26214)) (defface reb-match-4 '((((class color) (background light)) - (:background "MediumSeaGreen")) + (:background "#c8ffde")) (((class color) (background dark)) (:background "sienna4")) (t ＠＠ -228,11 +224,9 ＠＠ "Used for displaying the third matching subexpression." :group 're-builder) -; hsv 180 1.000000 0.843137, rgb (0 55255 55255) close to color -; "cyan3" ((0 52685 52685)) (defface reb-match-5 '((((class color) (background light)) - (:background "cyan3")) + (:background "#c8ffff")) (((class color) (background dark)) (:background "sienna4")) (t ＠＠ -240,11 +234,9 ＠＠ "Used for displaying the third matching subexpression." :group 're-builder) -; hsv 216 0.803922 0.843137, rgb (10834 28602 55255) close to color -; "RoyalBlue3" ((14906 24415 52685)) (defface reb-match-6 '((((class color) (background light)) - (:background "RoyalBlue3")) + (:background "#c8deff")) (((class color) (background dark)) (:background "sienna4")) (t ＠＠ -252,11 +244,9 ＠＠ "Used for displaying the third matching subexpression." :group 're-builder) -; hsv 288 0.843137 0.803922, rgb (43800 8264 52685) close to color -; "DarkOrchid3" ((39578 12850 52685)) (defface reb-match-7 '((((class color) (background light)) - (:background "DarkOrchid3")) + (:background "#d3c8ff")) (((class color) (background dark)) (:background "sienna4")) (t ＠＠ -264,11 +254,9 ＠＠ "Used for displaying the third matching subexpression." :group 're-builder) -; hsv 324 1.000000 0.843137, rgb (55255 0 33152) close to color -; "DeepPink3" ((52685 4112 30326)) (defface reb-match-8 '((((class color) (background light)) - (:background "DeepPink3")) + (:background "#f4c8ff")) (((class color) (background dark)) (:background "sienna4")) (t ＠＠ -276,11 +264,9 ＠＠ "Used for displaying the third matching subexpression." :group 're-builder) -; hsv 252 1.000000 0.725490, rgb (9509 0 47545) close to color "blue3" -; ((0 0 52685)) (defface reb-match-9 '((((class color) (background light)) - (:background "blue3")) + (:background "#ffc8e9")) (((class color) (background dark)) (:background "sienna4")) (t -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/