From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Ed L Cashin <ecashin@uga.edu>
Newsgroups: gmane.emacs.help
Subject: Re: customize messing up .emacs symlink?
Date: Tue, 02 Mar 2004 19:55:55 -0500
Organization: Posted via Supernews, http://www.supernews.com
Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <87oereda04.fsf@cs.uga.edu>
References: <873c8sdn3g.fsf@cs.uga.edu>
	<pan.2004.03.02.04.03.52.217531@dzr-web.com>
	<87u117cmlo.fsf@cs.uga.edu> <87hdx76wu5.fld@barrow.com>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1078328827 31475 80.91.224.253 (3 Mar 2004 15:47:07 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Wed, 3 Mar 2004 15:47:07 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Mar 03 16:46:57 2004
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1AyYaG-0001eL-00
	for <geh-help-gnu-emacs@m.gmane.org>; Wed, 03 Mar 2004 16:46:56 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.30)
	id 1AyYZb-0000b3-Dv
	for geh-help-gnu-emacs@m.gmane.org; Wed, 03 Mar 2004 10:46:15 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!headwall.stanford.edu!newshub.sdsu.edu!elnk-nf2-pas!elnk-pas-nf1!newsfeed.earthlink.net!sn-xit-02!sn-xit-01!sn-post-01!supernews.com!corp.supernews.com!not-for-mail
Original-Newsgroups: gnu.emacs.help
User-Agent: Gnus/5.090014 (Oort Gnus v0.14) Emacs/21.2 (i386-debian-linux-gnu)
Cancel-Lock: sha1:ZX+JLVxt8JYe6yl2XgiPFmLHmTo=
Original-X-Complaints-To: abuse@supernews.com
Original-Lines: 42
Original-Xref: shelby.stanford.edu gnu.emacs.help:121444
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  <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:17404
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:17404

floyd@barrow.com (Floyd L. Davidson) writes:

...
>   (if (string-match "foo.a" (system-name))
>       (load "~/.fooa.custom.el")
>      (if  (string-match "foo.b" (system-name))
>          (load "~/.foob.custom.el")
>         (if  (string-match "foo.c" (system-name))
>             (load "~/.fooc.custom.el")
>            (if  (string-match "foo.d" (system-name))
>                (load "~/.food.custom.el")
>               ;; otherwise, this is the default
>               (load "~/.fooe.custom.el")))))

Thanks.  Something nice for that kind of lisp is "cond".

;;; host-specific configuration
(let ((host (system-name)))
  (if host
      (cond ((equal host "nilda")
	     (set-background-color "SteelBlue4"))
	    ((equal host "tougas")
	     (progn
	       (set-background-color "ivory4")
	       (set-cursor-color "plum")))
	    ((equal host "marblerye.cs.uga.edu")
	     (progn
	       (set-background-color "DarkSlateGray")
	       (set-cursor-color "Orchid")))
	    ((equal host "tornado")
	     (progn
	       (set-background-color "SlateGray")
	       (set-foreground-color "wheat")
	       (set-cursor-color "magenta")))
	    (t
	     (if (getenv "GNUS_EMACS")
		 (set-background-color "DarkSlateGray")
		 (set-background-color "SlateGray"))))))


-- 
--Ed L Cashin     PGP public key: http://noserose.net/e/pgp/