From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Thien-Thi Nguyen Newsgroups: gmane.emacs.help Subject: Re: emacs color scheme Date: 03 Nov 2003 16:05:24 +0100 Organization: sometimes Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: <7eoevtfq6j.fsf@ada2.unipv.it> References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1067874129 20856 80.91.224.253 (3 Nov 2003 15:42:09 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 3 Nov 2003 15:42:09 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Nov 03 16:42:07 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AGgqF-0002Ii-00 for ; Mon, 03 Nov 2003 16:42:07 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AGgch-0005wI-SC for geh-help-gnu-emacs@m.gmane.org; Mon, 03 Nov 2003 10:28:07 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!uio.no!quimby.gnus.org!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 51 Original-NNTP-Posting-Host: ada2.unipv.it Original-X-Trace: quimby.gnus.org 1067871923 2456 193.204.44.145 (3 Nov 2003 15:05:23 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Mon, 3 Nov 2003 15:05:23 +0000 (UTC) User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 Original-Xref: shelby.stanford.edu gnu.emacs.help:117812 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:13748 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:13748 another way is to write/munge elisp to set colors as you prefer. see below for one example. there are other similar bits of code on the Net. thi __________________________________________________________ ;;; ID: set-theme.el,v 1.12 2003/09/08 00:08:04 ttn Rel ;;; ;;; Copyright (C) 2000,2002-2003 Thien-Thi Nguyen ;;; This file is part of ttn's personal elisp library, released under GNU ;;; GPL with ABSOLUTELY NO WARRANTY. See the file COPYING for details. ;;; ;;; Description: Select an appearance configuration. (defvar themes '(;;name bg fg m-fg (classic-ttn \#a85 black white) (new-earthy black sienna gray30) (zzzzzzzzzz black darkgreen black) (caffeine black yellow white) (polar white black white) (dream black cyan blue)) "Alist w/ elements of form: \(NAME BACKGROUND FOREGROUND MODELINE-FOREGROUND\)") ;;;###autoload (defun set-theme (name) (interactive (list (completing-read "Theme: " (mapcar #'list (mapcar #'symbol-name (mapcar #'car themes))) nil ;;; predicate t))) ;;; require-match (when (symbolp name) (setq name (symbol-name name))) (if (string= "" name) (message "(%d themes, none chosen)" (and (describe-variable 'themes) (length themes))) (apply (lambda (fg bg m-fg) (set-background-color fg) (set-foreground-color bg) (set-face-foreground 'modeline m-fg)) (mapcar #'symbol-name (cdr (assq (intern name) themes)))))) (provide 'set-theme) ;;; set-theme.el,v1.12 ends here