(source) Anything like this exist already? (buffer name intelligence)

[Aaron Maxwell]

Here's the defun I refered to in my post a moment ago:
; Better handle similar buffer names
(defun extend-buffer-name (arg)
  "Extend the current buffer's name according to to its full file path.
With prefix arg, extend by N levels.  Default is one level."
  (interactive "P")
  (let ((path (buffer-file-name))
        (sep "/")
        (n (prefix-numeric-value arg)))
    (cond
     ((or (null path)
          (equal "" path))
      path)
     (t (let ((parts (reverse (split-string path sep))))
          (defun extend-once (sofar parts n)
            (cond
             ((or (< n 1)
                  (null parts))
              sofar)
             (t (extend-once (concatenate 'string (car parts) sep sofar)
                        (cdr parts)
                        (1- n)))))
          (rename-buffer (extend-once (car parts) (cdr parts) n)))))))



-- 
Aaron Maxwell
http://redsymbol.net

Business Owners and Self-Employed:  You're NOT Alone!
The Business Butler - http://businessbutler.us