Re: Remote files, tramp, colors

[Kevin Rodgers]

PASZTOR Miklos wrote:

>  I have just discovered tramp, and I am quite enthusiasistic.  I work on a
>  bunch of machines, and I used to set different background colors in remote
>  .emacs files so that I can see immediately what is the machine I am the
>  file editing on.  Now I would like to retain this with tramp.
>
>  How can I have automatically different background colors depending on the
>  machine part of the current buffer name ?

I'm not a tramp user, but here's a stab in the dark:

(require 'tramp)

(defun pasztor-set-background-color ()
  "*Set the background color according to the remote file name."
  (interactive)
  (if buffer-file-name
      (with-parsed-tramp-file-name buffer-file-name 'tramp
        (let ((host (tramp-host buffer-file-name)))
          (cond ((equal tramp-host "foo") (set-background-color "blue"))
                ((equal tramp-host "bar") (set-background-color "red"))
                ...
                (t (set-background-color "black")))))))

(add-hook 'find-file-hooks 'pasztor-set-background-color)
(add-hook 'find-file-not-found-hooks 'pasztor-set-background-color)

--
Kevin Rodgers