(require 'tramp)
(add-to-list 'tramp-default-proxies-alist
	     (list "gluk" "root" "/ssh:alex@gluk:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "plato.chalkface.com" "root" "/ssh:alex@plato.chalkface.com:"))


(add-to-list 'tramp-default-proxies-alist
	     (list "appserver" "sasa" "/ssh:root@appserver:"))


(add-to-list 'tramp-default-proxies-alist
	     (list "www.chalkface.com" "root" "/ssh:alex@www.chalkface.com:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "dimon-notebook" "root" "/ssh:alex@dimon-notebook:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "mir" "igleons" "/ssh:root@mir:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "appserver" "sergej" "/sudo:root@appserver:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "appserver" "max" "/ssh:root@appserver:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "miles" "root" "/ssh:admin2@miles:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "g2.chalkface.com" "root" "/ssh:alex@g2.chalkface.com:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "mail2.virt.halogen.kharkov.ua" "root" "/ssh:alex@halogen.kharkov.ua:"))


(add-to-list 'tramp-default-proxies-alist
	     (list "appserver" "dixon" "/ssh:root@appserver:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "appserver" "max" "/ssh:root@appserver:"))

(add-to-list 'tramp-default-proxies-alist
	     (list "appserver" "av" "/ssh:root@appserver:"))

;; (defmacro require-soft (feature &optional file)
;;   "*Try to require FEATURE, but don't signal an error if `require' fails."
;;   `(require ,feature ,file 'noerror))

;; (when (require-soft 'sudo) 
;;   (defun sudo-before-save-hook ()
;;     (set (make-local-variable 'sudo:file) (buffer-file-name))
;;     (when sudo:file
;;       (unless(file-writable-p sudo:file)
;;         (set (make-local-variable 'sudo:old-owner-uid) 
;;           (nth 2 (file-attributes sudo:file)))
;;         (when (numberp sudo:old-owner-uid)
;;           (unless (= (user-uid) sudo:old-owner-uid)
;;             (when (y-or-n-p
;;                     (format "File %s is owned by %s, save it with sudo? "
;;                       (file-name-nondirectory sudo:file)
;;                       (user-login-name sudo:old-owner-uid)))
;;               (sudo-chown-file (int-to-string (user-uid)) 
;;                 (sudo-quoting sudo:file))
;;               (add-hook 'after-save-hook
;;                 (lambda ()
;;                   (sudo-chown-file (int-to-string sudo:old-owner-uid)
;;                     (sudo-quoting sudo:file))
;;                   (if sudo-clear-password-always
;;                     (sudo-kill-password-timeout)))
;;                 nil   ;; not append
;;                 t           ;; buffer local hook
;;                 )))))))
;;   (add-hook 'before-save-hook 'sudo-before-save-hook))



(custom-set-variables
 '(tramp-verbose 1)
 '(tramp-default-method "rsync")
 '(tramp-auto-save-directory "~/tmp/"))
(custom-set-faces)