aj-ibuffer.el

(setq ibuffer-saved-filter-groups
      '(("home"
         ("emacs-config" (or (filename . ".emacs.d")
                             (filename . "emacs-config")))
         ("org-mode" (or (mode . org-mode)
                         (filename . "OrgMode")))
         ("code" (filename . "code"))
         ("skola" (filename . "skola"))
         ("public_html" (filename . "public_html"))
         ("subversion" (name . "\*svn"))
         ;; ("Magit" (name . "\*magit"))
         ("irc" (mode . rcirc-mode))
         ("dired" (mode . dired-mode))
         ("help" (or (name . "\*Help\*")
                     (name . "\*Apropos\*")
                     (name . "\*info\*"))))))

(add-hook 'ibuffer-mode-hook
          '(lambda ()
             (local-set-key (kbd "C-g") 'ibuffer-quit)
             (ibuffer-switch-to-saved-filter-groups "home")))
(setq ibuffer-show-empty-filter-groups nil)
(setq ibuffer-expert t)

(provide 'aj-ibuffer)