[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: customize messing up .emacs symlink?
From: |
Ed L Cashin |
Subject: |
Re: customize messing up .emacs symlink? |
Date: |
Tue, 02 Mar 2004 19:55:55 -0500 |
User-agent: |
Gnus/5.090014 (Oort Gnus v0.14) Emacs/21.2 (i386-debian-linux-gnu) |
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/
Re: customize messing up .emacs symlink?, Kevin Rodgers, 2004/03/02