Re: default colors (dark background)

[Scott Blachowicz <scott@statsci.com>]

Sten Drescher <dreschs@mpd.tandem.com> wrote:

> 	This lets me change colors to suit my mood.  What can I put in
> the defuns to change gnus colors appropriately?  (And, in a non-gnus
> emacs question, how can I set one of the color schemes and the font as
> the default for all frames, not just the first one?)

I'm not sure if this is complete, up-to-date or "proper" (I believe it is
definitely specific to GNU Emacs 19, not XEmacs), but I've got this
function that I put together a while ago:

    (defun sab:modify-all-frames (alist)
      ;; Modify existing frames
      (mapcar (lambda (f)
                (modify-frame-parameters f alist))
              (frame-list))

      ;; Set defaults for new frames
      (mapcar (lambda (f)
                (let ((old (assoc (car f) default-frame-alist)))
                  (setq default-frame-alist
                        (append
                         (if old
                             (delete old default-frame-alist)
                           default-frame-alist)
                         (list f)))
                  )
                )
              alist
              )
      )

and I call it like this:

          (sab:modify-all-frames
           '((foreground-color . "DarkSlateBlue")
             (background-color . "grey90")
             )
           )

Scott Blachowicz    Ph: 206/283-8802x240    StatSci, a div of MathSoft, Inc.
                                            1700 Westlake Ave N #500
scott@statsci.com                           Seattle, WA USA   98109
Scott.Blachowicz@seaslug.org