A buffer-list tidier

TorgoX on 2005-09-05T10:44:50

Dear Log,

My nugget of joy for today is this dodad I wrote to tidy up the order of the emacs buffers, as seen in the buffer list:

(defun buffer-list-sorted ()
  (sort (buffer-list) 
	(function
	 (lambda
	   (a b) (string<
		  (downcase (buffer-name a))
		  (downcase (buffer-name b))
		  )))))

(defun sort-buffers ()
  "Put the buffer list in alphabetical order."
  (interactive)
  (dolist (buff (buffer-list-sorted)) (bury-buffer buff))
  (when (interactive-p) (list-buffers))
  )