From xemacs-m  Mon Mar  3 14:17:42 1997
Received: from mercury.Sun.COM (mercury.Sun.COM [192.9.25.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id OAA20982
	for <xemacs-beta@xemacs.org>; Mon, 3 Mar 1997 14:17:38 -0600 (CST)
Received: from Canada.Sun.COM ([129.155.5.101]) by mercury.Sun.COM (SMI-8.6/mail.byaddr) with SMTP id MAA14069; Mon, 3 Mar 1997 12:14:52 -0800
Received: from scooter.canada.sun.com by Canada.Sun.COM (SMI-8.6/SMI-5.3)
	id PAA16405; Mon, 3 Mar 1997 15:15:06 -0500
Received: from verve.canada.sun.com by scooter.canada.sun.com (SMI-8.6/SMI-SVR4)
	id PAA06870; Mon, 3 Mar 1997 15:15:04 -0500
Received: by verve.canada.sun.com (SMI-8.6/SMI-SVR4)
	id PAA03475; Mon, 3 Mar 1997 15:15:05 -0500
Date: Mon, 3 Mar 1997 15:15:05 -0500
Message-Id: <199703032015.PAA03475@verve.canada.sun.com>
From: Georg Nikodym <georgn@Canada.Sun.COM>
To: David Moore <dmoore@ucsd.edu>
Cc: xemacs-beta@xemacs.org
Subject: Re: Logo, color and all the rest...
In-Reply-To: <rvafok3g6a.fsf@sdnp5.ucsd.edu>
References: <m37mjpn37o.fsf@jens.metrix.de>
	<w4d8thx9r8.fsf@loiosh.kei.com>
	<kig9144vrhg.fsf@jagor.srce.hr>
	<rvd8tg3i2y.fsf@sdnp5.ucsd.edu>
	<QQcfht09017.199703031927@crystal.WonderWorks.COM>
	<rvafok3g6a.fsf@sdnp5.ucsd.edu>
Reply-To: georgn@Canada.Sun.COM
X-Face:  ,~EI@l7'&P{\d++e`EMjNTNpzsxJPg(H]?Sd_T3xIlq[(PT[.D;A_/k)qfeC@m\/1]A{vZD
 r4&Lme-/M]c'Q>>:VM|L^<ED=j@dG!ld,bQ:IhT53q'x>6wZKH3iCT6Ff1-`*z{vCiT}+%(irA6TOn
 S~pFtml1bL\=kp%0PsLcF3+Q/e${o|S/<NUFDrU@;^o(D+av1g>Ce=ztlPGb$?up%c-*l'wmjw\sw;
 D__0Z;+93I+Kx6Mxdc]+|2V03aE@D8-fMT_v[~~FC9I\*|72QVW,aQ!`hHp_.gE.W&kxla2#)\Cmo
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Mar__3_15:15:04_1997-1"
Content-Transfer-Encoding: 7bit

--Multipart_Mon_Mar__3_15:15:04_1997-1
Content-Type: text/plain; charset=US-ASCII

>>>>> "DM" == David Moore <dmoore@ucsd.edu> writes:

 DM> P.S.  On the war of background colors, can people start posting
 DM> their sets of background and face colors?  I'd like to see what
 DM> other people are doing, and it's far easier to look at existing
 DM> combinations and select good features than to spend weeks playing
 DM> around with them yourself.  And if we collect enough of these,
 DM> they might provide a good basis for the CDE/HP-VUE like ColorSet
 DM> picker.

Careful what you wish for...

Here's my .xemacs-options with everything but the face creation and
foreground and background settings removed.


--Multipart_Mon_Mar__3_15:15:04_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="xemacs-colours"
Content-Transfer-Encoding: 7bit

;; -*- Mode: Emacs-Lisp -*-

(make-face 'bbdb-company)
(make-face 'bbdb-field-name)
(make-face 'bbdb-field-value)
(make-face 'bbdb-name)
(make-face 'blue)
(make-face 'bold)
(make-face 'bold-italic)
(make-face 'cvs-filename-face)
(make-face 'cvs-header-face)
(make-face 'cvs-status-face)
(make-face 'default)
(make-face 'eserve-highlight)
(make-face 'font-lock-comment-face)
(make-face 'font-lock-doc-string-face)
(make-face 'font-lock-function-name-face)
(make-face 'font-lock-gnus-group-current-face)
(make-face 'font-lock-gnus-group-empty-face)
(make-face 'font-lock-gnus-group-full-face)
(make-face 'font-lock-gnus-group-overflowing-face)
(make-face 'font-lock-gnus-group-unsubscribed-face)
(make-face 'font-lock-keyword-face)
(make-face 'font-lock-preprocessor-face)
(make-face 'font-lock-reference-face)
(make-face 'font-lock-string-face)
(make-face 'font-lock-summary-Xed-face)
(make-face 'font-lock-summary-current-face)
(make-face 'font-lock-summary-deleted-face)
(make-face 'font-lock-summary-killed-face)
(make-face 'font-lock-summary-new-face)
(make-face 'font-lock-summary-seen-face)
(make-face 'font-lock-summary-unread-face)
(make-face 'font-lock-tex-tt-face)
(make-face 'font-lock-type-face)
(make-face 'font-lock-variable-name-face)
(make-face 'green)
(make-face 'gui-button-face)
(make-face 'highlight)
(make-face 'hollow-arrow-face)
(make-face 'html-helper-bold-face)
(make-face 'html-helper-italic-face)
(make-face 'html-helper-underline-face)
(make-face 'info-node)
(make-face 'info-xref)
(make-face 'isearch)
(make-face 'italic)
(make-face 'left-margin)
(make-face 'list-mode-item-selected)
(make-face 'makefile-space-face)
(make-face 'message-cited-text)
(make-face 'message-header-contents)
(make-face 'message-headers)
(make-face 'message-highlighted-header-contents)
(make-face 'modeline)
(make-face 'modeline-buffer-id)
(make-face 'modeline-mousable)
(make-face 'modeline-mousable-minor-mode)
(make-face 'pointer)
(make-face 'primary-selection)
(make-face 'red)
(make-face 'right-margin)
(make-face 'sbrowse-arrow-face)
(make-face 'secondary-selection)
(make-face 'shell-input)
(make-face 'shell-output)
(make-face 'shell-prompt)
(make-face 'solid-arrow-face)
(make-face 'stop-face)
(make-face 'text-cursor)
(make-face 'underline)
(make-face 'x-face)
(make-face 'yellow)
(make-face 'zmacs-region)

(add-spec-list-to-specifier (face-property 'bbdb-name 'foreground) '((global (nil . "cyan"))))
(add-spec-list-to-specifier (face-property 'blue 'foreground) '((global ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'bold-italic 'foreground) '((global (nil . "lavender") ((x) . "hotpink"))))
(add-spec-list-to-specifier (face-property 'cvs-filename-face 'foreground) '((global (nil . "green"))))
(add-spec-list-to-specifier (face-property 'cvs-header-face 'foreground) '((global (nil . "light blue"))))
(add-spec-list-to-specifier (face-property 'cvs-status-face 'foreground) '((global (nil . "red"))))
(add-spec-list-to-specifier (face-property 'default 'background) '((global (nil . "black") ((x) . "black"))))
(add-spec-list-to-specifier (face-property 'default 'foreground) '((global (nil . "yellow") ((x) . "yellow"))))
(add-spec-list-to-specifier (face-property 'eserve-highlight 'background) '((global (nil . "black") ((x) . "black"))))
(add-spec-list-to-specifier (face-property 'eserve-highlight 'foreground) '((global (nil . "yellow") ((x) . "yellow"))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'foreground) '((global (nil . "gray") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'foreground) '((global (nil . "lime green") ((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'foreground) '((global (nil . "magenta") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-gnus-group-current-face 'foreground) '((global (nil . "limegreen"))))
(add-spec-list-to-specifier (face-property 'font-lock-gnus-group-empty-face 'foreground) '((global (nil . "grey"))))
(add-spec-list-to-specifier (face-property 'font-lock-gnus-group-full-face 'foreground) '((global (nil . "yellow2"))))
(add-spec-list-to-specifier (face-property 'font-lock-gnus-group-overflowing-face 'foreground) '((global (nil . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-gnus-group-unsubscribed-face 'foreground) '((global (nil . "skyblue"))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'foreground) '((global (nil . "pale violet red") ((color) . "orange"))))
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face 'foreground) '((global (nil . "#87A787") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face 'foreground) '((global (nil . "red3") ((color) . "red3") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face 'foreground) '((global (nil . "cyan") ((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-summary-Xed-face 'foreground) '((global (nil . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-summary-current-face 'foreground) '((global (nil . "dimgrey"))))
(add-spec-list-to-specifier (face-property 'font-lock-summary-deleted-face 'foreground) '((global (nil . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-summary-killed-face 'foreground) '((global (nil . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-summary-new-face 'foreground) '((global (nil . "yellow"))))
(add-spec-list-to-specifier (face-property 'font-lock-summary-seen-face 'foreground) '((global (nil . "white"))))
(add-spec-list-to-specifier (face-property 'font-lock-summary-unread-face 'foreground) '((global (nil . "yellow"))))
(add-spec-list-to-specifier (face-property 'font-lock-tex-tt-face 'foreground) '((global (nil . "white"))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'foreground) '((global (nil . "chartreuse") ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-variable-name-face 'foreground) '((global (nil . "deep pink") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'green 'foreground) '((global ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'gui-button-face 'background) '((global (nil . "grey75"))))
(add-spec-list-to-specifier (face-property 'gui-button-face 'foreground) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'highlight 'background) '((global (nil . "black") ((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray53"))))
(add-spec-list-to-specifier (face-property 'highlight 'foreground) '((global (nil . "orange"))))
(add-spec-list-to-specifier (face-property 'hollow-arrow-face 'background) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'hollow-arrow-face 'foreground) '((global (nil . "purple"))))
(add-spec-list-to-specifier (face-property 'info-node 'foreground) '((global (nil . "magenta"))))
(add-spec-list-to-specifier (face-property 'info-xref 'foreground) '((global (nil . "red"))))
(add-spec-list-to-specifier (face-property 'isearch 'background) '((global (nil . "black") ((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'isearch 'foreground) '((global (nil . "salmon2"))))
(add-spec-list-to-specifier (face-property 'italic 'foreground) '((global (nil . "lavender") ((x) . "hotpink"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected 'background) '((global ((mono x) . [default foreground]) ((grayscale) . "gray68") ((color) . "gray68"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected 'foreground) '((global ((mono x) . [default background]))))
(add-spec-list-to-specifier (face-property 'makefile-space-face 'background) '((global ((mono x) . "black") ((grayscale x) . "black") ((color x) . "hotpink") ((mono x) . "black") ((grayscale x) . "black") ((color x) . "hotpink") ((mono x) . "black") ((grayscale x) . "black") ((color x) . "hotpink"))))
(add-spec-list-to-specifier (face-property 'message-cited-text 'foreground) '((global (nil . "gray"))))
(add-spec-list-to-specifier (face-property 'message-header-contents 'foreground) '((global (nil . "skyblue"))))
(add-spec-list-to-specifier (face-property 'message-headers 'foreground) '((global (nil . "green"))))
(add-spec-list-to-specifier (face-property 'message-highlighted-header-contents 'foreground) '((global (nil . "red"))))
(add-spec-list-to-specifier (face-property 'modeline 'background) '((global (nil . "Gray75") ((x) . "Gray75"))))
(add-spec-list-to-specifier (face-property 'modeline 'foreground) '((global (nil . "Black") ((x) . "Black"))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'background) '((global (nil . [#s(face name modeline-mousable) background]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'foreground) '((global ((color) . "blue") (nil . [#s(face name modeline-mousable) foreground]) ((color x) . "blue"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'background) '((global (nil . [#s(face name modeline) background]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'foreground) '((global ((color) . "red") (nil . [#s(face name modeline) foreground]) ((color x) . "red"))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'background) '((global (nil . [#s(face name modeline-mousable) background]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'foreground) '((global ((color) . "green4") ((color) . "green") (nil . [#s(face name modeline-mousable) foreground]) ((color x) . "green4") ((color x) . "green"))))

(add-spec-list-to-specifier (face-property 'pointer 'background) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'pointer 'foreground) '((global (nil . "OrangeRed"))))
(add-spec-list-to-specifier (face-property 'primary-selection 'background) '((global ((grayscale) . "gray80") ((color) . "gray80"))))
(add-spec-list-to-specifier (face-property 'primary-selection 'foreground) '((global ((grayscale) . "red") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'red 'foreground) '((global ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'sbrowse-arrow-face 'background) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'sbrowse-arrow-face 'foreground) '((global (nil . "blue"))))
(add-spec-list-to-specifier (face-property 'secondary-selection 'background) '((global ((grayscale) . "gray1") ((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'shell-input 'foreground) '((global (nil . "green"))))
(add-spec-list-to-specifier (face-property 'shell-prompt 'foreground) '((global (nil . "red"))))
(add-spec-list-to-specifier (face-property 'solid-arrow-face 'background) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'solid-arrow-face 'foreground) '((global (nil . "purple"))))
(add-spec-list-to-specifier (face-property 'stop-face 'background) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'stop-face 'foreground) '((global (nil . "red"))))
(add-spec-list-to-specifier (face-property 'text-cursor 'background) '((global ((x) . "OrangeRed"))))
(add-spec-list-to-specifier (face-property 'text-cursor 'foreground) '((global (nil . [default background]))))
(add-spec-list-to-specifier (face-property 'x-face 'background) '((global (nil . "white"))))
(add-spec-list-to-specifier (face-property 'x-face 'foreground) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'yellow 'foreground) '((global ((color) . "yellow"))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'background) '((global ((grayscale) . "gray3") ((color) . "gray"))))

--Multipart_Mon_Mar__3_15:15:04_1997-1--

