Re: *buffer list* improvement

[Thien-Thi Nguyen <ttn@gnu.org>]

[-- 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 --]