Re: customize messing up .emacs symlink?

[Ed L Cashin]

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/