From 0ca04f71bbb14a306b21a49f168dddbd1498344c Mon Sep 17 00:00:00 2001
From: Phil Jackson <phil@shellarchive.co.uk>
Date: Thu, 6 May 2010 17:57:08 +0100
Subject: [PATCH] Added `magit-list-projects.

---
 magit.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/magit.el b/magit.el
index 8ea62582..615bbc99 100644
--- a/magit.el
+++ b/magit.el
@@ -4053,6 +4053,18 @@ With prefix force the removal even it it hasn't been merged."
                      (eq major-mode 'magit-mode)))
                  (buffer-list)))
 
+(defun magit-list-projects ()
+  "Returns a list of toplevel directories with a magit
+representation."
+  (remove-duplicates
+   (mapcar (lambda (b)
+             (save-excursion
+               (set-buffer b)
+               (file-name-nondirectory
+                (directory-file-name default-directory))))
+           (magit-list-buffers))
+   :test 'string=))
+
 (provide 'magit)
 
 ;;; magit.el ends here