(defun directory-in-buffer-name ()
  (setq tempbfn (split-string buffer-file-name "/"))
  (rename-buffer (concat (elt tempbfn (+ (length tempbfn) -3)) "/" (elt tempbfn (+ (length tempbfn) -2)) "/" (elt tempbfn (1- (length tempbfn)))))
)
(add-hook 'find-file-hooks 'directory-in-buffer-name)