*buffer list* improvement

*buffer list* improvement

[Rockefeller, Harry]

[-- Attachment #1: Type: text/plain, Size: 606 bytes --]

Problem: buffer list mode is too wide for my screen.
Conclusion:
If buffer named '~' exists then
  Substitute absolute path of buffer '~' everywhere with '~'.
end if

Harry Rockefeller * Senior Staff Engineer
FlightSafety International * Simulation * 700 North 9th Street * Broken Arrow, OK 74012
Tel: 918.259.4273
Harry.Rockefeller@flightsafety.com * flightsafety.com <http://www.flightsafety.com/> * A Berkshire Hathaway company

Please consider the environment before printing this email and if you received this message by mistake, please let us know and treat the contents confidentially.

[-- Attachment #2: Type: text/html, Size: 3433 bytes --]

Re: *buffer list* improvement

[Thien-Thi Nguyen]

[-- Attachment #1: Type: text/plain, Size: 1775 bytes --]

() "Rockefeller, Harry" <Harry.Rockefeller@flightsafety.com>
() Mon, 28 Oct 2013 12:33:18 -0400

   Problem: buffer list mode is too wide for my screen.
   Conclusion:
   If buffer named '~' exists then
     Substitute absolute path of buffer '~' everywhere with '~'.
   end if

You can dynamically bind ‘directory-abbrev-alist’ to achieve this,
something like (lightly tested):

(defun list-buffers-compactly (&optional arg)
  "Like `list-buffers', but with filenames abbreviated (maybe).
If a buffer \"~\" exists, its `default-directory' is substituted
in the buffer list as \"~\"."
  (interactive "P")
  (let* ((tilde (get-buffer "~"))
         (directory-abbrev-alist (if tilde
                                     (acons (file-name-as-directory
                                             (expand-file-name
                                              (with-current-buffer tilde 
                                                default-directory)))
                                            (file-name-as-directory "~")
                                            directory-abbrev-alist)
                                   directory-abbrev-alist)))
    (list-buffers arg)))

Personally, i do something similar, but substituting env vars instead,
and w/ ‘buffer-menu’ at the core instead of ‘list-buffers’.

Initially i played w/ ‘(setq directory-abbrev-alist ...)’ globally, but
was disuaded by some uninvestigated weirdness involving emacsclient and
"git rebase -i" and phase of moon...

-- 
Thien-Thi Nguyen
   GPG key: 4C807502
   (if you're human and you know it)
      read my lisp: (responsep (questions 'technical)
                               (not (via 'mailing-list)))
                     => nil

[-- Attachment #2: Type: application/pgp-signature, Size: 197 bytes --]