Skip to content

Instantly share code, notes, and snippets.

@glucas

glucas/gist:6730692

Created September 27, 2013 15:45
Download ZIP

Revisions

  1. glucas created this gist Sep 27, 2013.
    21 changes: 21 additions & 0 deletions gistfile1.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,21 @@

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