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

(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

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

[Juanma Barranquero]

On Jan 11, 2008 8:01 PM, Aaron Maxwell <amax@redsymbol.net> wrote:

> 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."

Do you know about uniquify.el?

             Juanma

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

[Aaron Maxwell]

On Jan 11, 11:48 am, "Juanma Barranquero" <lek...@gmail.com> wrote:
> Do you know about uniquify.el?

I did not. Thanks for pointing it out.

-A

>
>              Juanma