anything-magit.el

; Anything with Magit
(defvar anything-c-source-magit-repos
  '((name . "Magit Repos")
    (init . (lambda ()
              (require 'magit)))
    (candidates . (lambda () (magit-list-repos magit-repo-dirs)))
    (filtered-candidate-transformer . anything-c-adaptive-sort)
    (action
     ("Open Dir" . dired)
     ("Magit" . magit-status))
  "See (info \"(emacs)magit\")."))