feat(functions): Add ivy-browse-repositories function
Quick helper to switch between all relevant projects.
This commit is contained in:
		
							parent
							
								
									e743ea28c5
								
							
						
					
					
						commit
						f0dfc8b06d
					
				
					 4 changed files with 16 additions and 2 deletions
				
			
		| 
						 | 
				
			
			@ -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)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue