[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
(source) Anything like this exist already? (buffer name intelligence)
From: |
Aaron Maxwell |
Subject: |
(source) Anything like this exist already? (buffer name intelligence) |
Date: |
Fri, 11 Jan 2008 11:01:27 -0800 |
User-agent: |
KMail/1.9.6 (enterprise 0.20070907.709405) |
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
- (source) Anything like this exist already? (buffer name intelligence),
Aaron Maxwell <=