   (progn 
     (setq ibuffer-saved-filter-groups
           (quote (("default"      
-                   ("SICP"
-                    (filename . "SICP"))
                    ("HemlockForest"
                     (filename . "HemlockForest"))
                    ("Emacs Config"
                     (filename . "emacs"))
-                   ("scm-prompt"
-                    (filename . "scm-prompt"))
-                   ("4clojure"
-                    (filename . "4clojure"))
                    ("dmenu_ssh"
                     (filename . "dmenu_ssh"))
-                   ("University Calculus"
-                    (filename . "~/TextBookSummaries/UniversityCalculus"))
                    ("DotFilesForest"
                     (filename . "dot-files-forest"))
                    ("version control" 


    (setq ibuffer-show-empty-filter-groups nil)

    ;; (defun mk/proj-buffer-p (b)
    ;;   "Is the buffer `b' part of the project?"
    ;;   (and mk-proj-name 
    ;;        (or (mk-proj-buffer-p b)
    ;;            (string= (buffer-name b) mk-proj-fib-name)
    ;;            (string= (buffer-file-name b) mk-proj-tags-file))))

    ;; (define-ibuffer-column mk-proj-col
    ;;   (:name "P")
    ;;   (if (mk/proj-buffer-p buffer) "p" ""))

    ;; Define 3 formats, each including the new mk-proj-col
    ;; column. Switch formats with ibuffer-switch-format (bound to "`").
    ;; (setq ibuffer-formats
    ;;       '((mark modified read-only              
    ;;               (mk-proj-col 2 2 :left :elide) " "
    ;;               (name 30 30 :left :elide) " "
    ;;               (size 9 -1 :right) " "
    ;;               (mode 16 16 :left :elide) " "
    ;;               filename-and-process)
    ;;         (mark modified read-only
    ;;               (mk-proj-col 2 2 :left :elide) " "
    ;;               (name 45 -1 :left) " "
    ;;               filename-and-process)
    ;;         (mark modified read-only
    ;;               (mk-proj-col 2 2 :left :elide) " "
    ;;               filename-and-process)))

    (bind-key "C-x C-b" 'ibuffer)

    ;; (define-ibuffer-filter project
    ;;     "Toggle current view to buffers in the defined mk-project."
    ;;   (:description "mk-project")
    ;;   (mk/proj-buffer-p buf))
    ;; (define-key ibuffer-mode-map (kbd "/ k") 'ibuffer-filter-by-project)

(global-set-key [XF86HomePage] 'ibuffer)

(require 'ibuffer) 
(require 'ibuf-ext)

