Re: customize messing up .emacs symlink?

[Ed L Cashin <ecashin@uga.edu>]

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/