use Perl

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))
  )