-;;;_. ibuffer
 (require 'ibuffer) 
 (require 'ibuf-ext)
 

  (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" 

                     (mode . scheme-mode)
                     ;; etc
                     ))))))

    (add-hook 'ibuffer-mode-hook 
              '(lambda ()
