[bongo-patches] Add `bongo-list-buffers' and bind it to `H'

[Daniel Brockman]

Add `bongo-list-buffers' and bind it to `H'.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-05-24 13:27:23.000000000 +0200
+++ new-bongo/bongo.el  2007-05-24 13:27:23.000000000 +0200
@@ -9778,6 +9778,7 @@
     (define-key map "q" 'bongo-quit)
     (define-key map "Q" 'bury-buffer)
     (define-key map "h" 'bongo-switch-buffers)
+    (define-key map "H" 'bongo-list-buffers)
     (define-key map "l" 'bongo-recenter)
     (define-key map "\C-i" 'bongo-toggle-collapsed)
     (define-key map "p" 'previous-line)
@@ -10385,6 +10386,15 @@
           (pop-to-buffer buffer)
         (switch-to-buffer buffer)))))
 
+(defun bongo-list-buffers ()
+  (interactive)
+  (if (featurep 'ibuffer)
+      (ibuffer nil "*Bongo Ibuffer*"
+               '((predicate . (bongo-buffer-p))) nil nil
+               '(("Playlists" (predicate . (bongo-playlist-buffer-p)))
+                 ("Libraries" (predicate . (bongo-library-buffer-p)))))
+    (switch-to-buffer (list-buffers-noselect nil (bongo-buffers)))))
+
 (defun bongo ()
   "Switch to a Bongo buffer.
 See the function `bongo-buffer'."

-- 
Daniel Brockman <address@hidden>