[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Colorizing Emacs

From: Kai Großjohann
Subject: Re: Colorizing Emacs
Date: Wed, 05 Mar 2003 09:53:36 +0100
User-agent: Gnus/5.090016 (Oort Gnus v0.16) Emacs/21.3.50 (gnu/linux)

Lucas <address@hidden> writes:

> BTW, I have to say that I'm curious to know what are *your* colors ?
> Would you mind posting your config' ? :)

Hm.  Lessee now...

~/.Xresources has this:

#define KAIFG black
#define KAIBG gainsboro
#define KAIBG_ALT grey
#define KAIBG_HILITE ghostwhite

*Foreground:            KAIFG
*Background:            KAIBG
Emacs*background:       KAIBG

Emacs*pointerColor:             KAIFG
Emacs.pane.menubar.background:          KAIBG_ALT
Emacs.pane.menubar.buttonForeground:    red
Emacs.pane.menubar.buttonBackground:    green
Emacs.pane.menubar.font:                KAIFONT_SMALL*.font:                       KAIFONT_SMALL*.background:                 KAIBG_ALT
Emacs.fringe.attributeBackground:       KAIBG_ALT

And ~/.emacs has this:

  (set-mouse-color "black")
  (eval-after-load "custom"
       (set-face-bold-p 'custom-button-face t)))
  ;; if font has no italic, use color
  (unless (condition-case nil
               (x-make-font-italic (x-get-resource "emacs" "font")))
            (error nil))
    (mapcar (lambda (f)
              (when (face-italic-p f)
                (set-face-foreground f "seagreen")))

    (set-face-background 'highlight "lightsteelblue")
    (set-face-background 'region "ghostwhite")
    (eval-after-load "wid-edit"
         (set-face-background 'widget-field-face "ghostwhite")))
    (eval-after-load "xslide-font"
         (set-face-foreground 'xsl-fo-alternate-face "seagreen")))

And then there is some stuff in ~/.gnus:

  (set-face-foreground 'gnus-header-content-face "indianred4")
  (set-face-foreground 'gnus-header-newsgroups-face "midnightblue")

Does this help?
A preposition is not a good thing to end a sentence with.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]