From f0dfc8b06de568e57050510a5b56fcbb725a6733 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <mail@tazj.in>
Date: Mon, 18 Jun 2018 16:39:28 +0200
Subject: feat(functions): Add ivy-browse-repositories function

Quick helper to switch between all relevant projects.
---
 init/bindings.el   |  1 +
 init/functions.el  | 10 ++++++++++
 init/mail-setup.el |  3 +++
 init/settings.el   |  4 ++--
 4 files changed, 16 insertions(+), 2 deletions(-)

(limited to 'init')

diff --git a/init/bindings.el b/init/bindings.el
index 5918e8f8fc30..cb793f7253ec 100644
--- a/init/bindings.el
+++ b/init/bindings.el
@@ -35,6 +35,7 @@
 
 ;; Magit!
 (global-set-key (kbd "C-c g") 'magit-status)
+(global-set-key (kbd "C-x p") 'ivy-browse-repositories)
 
 ;; Replace standard goto-line with ace-jump-line-mode
 (global-set-key (kbd "M-g g") 'avy-goto-line)
diff --git a/init/functions.el b/init/functions.el
index 4ca7cedb2797..c0169955a19a 100644
--- a/init/functions.el
+++ b/init/functions.el
@@ -195,6 +195,16 @@ Including indent-buffer, which should not be called automatically on save."
                               (run-at-time (password-store-timeout)
                                            nil 'password-store-clear))))))
 
+(defun ivy-browse-repositories ()
+  "Select a git repository and open its associated magit buffer."
+
+  (interactive)
+  (ivy-read "Repository: "
+            (magit-list-repos)
+            :require-match t
+            :sort t
+            :action #'magit-status))
+
 (defun warmup-gpg-agent (arg &optional exit)
   "Function used to warm up the GPG agent before use. This is
    useful in cases where there is no easy way to make pinentry run
diff --git a/init/mail-setup.el b/init/mail-setup.el
index 8db2662d17b3..a277af7dbe97 100644
--- a/init/mail-setup.el
+++ b/init/mail-setup.el
@@ -32,6 +32,9 @@
 (setq mail-host-address (system-name))
 (setq notmuch-mua-cite-function #'message-cite-original-without-signature)
 
+;; Close mail buffers after sending mail
+(setq message-kill-buffer-on-exit t)
+
 ;; Ensure sender is correctly passed to msmtp
 (setq mail-specify-envelope-from t
       message-sendmail-envelope-from 'header
diff --git a/init/settings.el b/init/settings.el
index 1c801cd09a07..5d09dfb4d37d 100644
--- a/init/settings.el
+++ b/init/settings.el
@@ -76,7 +76,7 @@
 (require 'auth-source-pass)
 (auth-source-pass-enable)
 
-;; Close mail buffers after sending mail
-(setq message-kill-buffer-on-exit t)
+;; Configure magit-repository-list
+(setq magit-repository-directories '(("/home/vincent/projects" . 2)))
 
 (provide 'settings)
-- 
cgit 1.4.1