User: adrian
Date: 05/09/11 17:50:35
Modified: packages/xemacs-packages/re-builder ChangeLog re-builder.el
Log:
packages: Improve re-builder reb-match faces for light background
-------------------- ChangeLog entries follow: --------------------
xemacs-packages/re-builder/ChangeLog addition:
2005-09-11 Adrian Aichner <adrian(a)xemacs.org>
* 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.
Revision Changes Path
1.9 +14 -0 XEmacs/packages/xemacs-packages/re-builder/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/re-builder/ChangeLog,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- ChangeLog 2005/08/31 13:15:08 1.8
+++ ChangeLog 2005/09/11 15:50:35 1.9
@@ -1,3 +1,17 @@
+2005-09-11 Adrian Aichner <adrian(a)xemacs.org>
+
+ * 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.
+
2005-08-31 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.04 released.
1.5 +24 -38 XEmacs/packages/xemacs-packages/re-builder/re-builder.el
Index: re-builder.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/re-builder/re-builder.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- re-builder.el 2005/08/28 22:46:20 1.4
+++ re-builder.el 2005/09/11 15:50:35 1.5
@@ -160,11 +160,23 @@ Set it to nil if you don't want limits h
: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 @@ Set it to nil if you don't want limits h
"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 @@ Set it to nil if you don't want limits h
"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 @@ Set it to nil if you don't want limits h
"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 @@ Set it to nil if you don't want limits h
"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 @@ Set it to nil if you don't want limits h
"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 @@ Set it to nil if you don't want limits h
"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 @@ Set it to nil if you don't want limits h
"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 @@ Set it to nil if you don't want limits h
"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 @@ Set it to nil if you don't want limits h
"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