;;;; sinkables.el -- push various clutterbuffers to the bottom of the list
;;; Time-stamp: <2004-11-08 10:23:07 john>

;;; I thought there was a way of saying a buffer was to go to the bottom
;;; of the list automatically when deselected, but I don't know what it is.

(makunbound 'sinkables)

(defvar sinkables
  '("john" "john Summary" "john Presentation"
    "Tele_directory"
    "*BBDB*" ".bbdb-gulag"
    "*Fancy Diary Entries*"
    "*Help*"
    "*Backtrace*"
    "todo-top"
    "*Things to do*"
    )
  "Names of buffers to keep scuttled.")

(defun sink-sinkables ()
  "Sink the buffers listed as sinkable."
  (interactive)
  (dolist (scuttle sinkables)
    (when (get-buffer scuttle)
      (bury-buffer scuttle))))

(defadvice menu-bar-update-buffers (before sinker)
  "Before showing the buffer menu, sink various clutter."
  (sink-sinkables))

;;; end of sinkables.el