From c23a7f90ccb5788baa47c859c440df8d967461c2 Mon Sep 17 00:00:00 2001 From: David Creswick Date: Wed, 9 Jan 2013 18:29:54 -0600 Subject: [PATCH] generate ibuffer filter groups from eproject info --- eproject-extras.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/eproject-extras.el b/eproject-extras.el index a339c20..d06a463 100644 --- a/eproject-extras.el +++ b/eproject-extras.el @@ -157,6 +157,17 @@ Does not list the project if it doesn't have any buffers." (define-ibuffer-column eproject (:name "Project" :inline t) (ignore-errors (eproject-name))) +;;;###autoload +(defun eproject-set-ibuffer-filter-groups () + "Set the current ibuffer filter groups to filter by eproject." + (interactive) + (set-variable 'ibuffer-filter-groups + (mapcar (lambda (project) + (list (format "%s: %s" (car project) (cdr project)) + `(eproject-root . ,(cdr project)))) + (eproject-projects))) + (ibuffer-update nil t)) + ;;;###autoload (defun eproject-ibuffer (prefix) "Open an IBuffer window showing all buffers in the current project, or named project if PREFIX arg is supplied."