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/