Elisp snippets for defining ibuffer filter groups for all known projectile projects.

gistfile1.txt

(defun my/define-projectile-filter-groups ()
  (when (boundp 'projectile-known-projects)
    (setq my/project-filter-groups
    (--map (list
		  (concat "Project: " (file-name-nondirectory (directory-file-name it)))
		  `(filename . ,it))
		 projectile-known-projects))))


 (setq ibuffer-saved-filter-groups
           (list
            (cons "default"
                  (append
                   (if (fboundp 'my/define-projectile-filter-groups)
                       (my/define-projectile-filter-groups))
                   '(("Org" (or (mode . org-mode)
                                (mode . diary-mode)
                                (mode . org-agenda-mode)))
                     ;; etc
)))))

using it and loving it -- thanks!