module-git.el (1500B)
1 ;;; module-git.el 2 3 ;; Author: Mark Feller <mark.feller@member.fsf.org> 4 5 ;; This file is not part of GNU Emacs. 6 7 ;; This file is free software; you can redistribute it and/or modify 8 ;; it under the terms of the GNU General Public License as published by 9 ;; the Free Software Foundation; either version 3, or (at your option) 10 ;; any later version. 11 12 ;; This file is distributed in the hope that it will be useful, 13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 ;; GNU General Public License for more details. 16 17 ;; You should have received a copy of the GNU General Public License 18 ;; along with this file. If not, see <http://www.gnu.org/licenses/>. 19 20 ;;; Commentary: 21 22 ;;; Code: 23 24 (defun mjf/magit-status-with-prefix () 25 (interactive) 26 (let ((current-prefix-arg '(4))) 27 (call-interactively 'magit-status))) 28 29 (use-package magit 30 :bind (("C-x g" . magit-status) 31 ("C-x G" . mjf/magit-status-with-prefix)) 32 :init 33 (setq transient-history-file "~/.cache/transient/history.el") 34 (setq transient-display-buffer-action '(display-buffer-below-selected)) 35 (setq transient-mode-line-format 36 '("%e" mode-line-front-space mode-line-buffer-identification))) 37 38 (use-package magithub 39 :disabled 40 :after magit 41 :config 42 (magithub-feature-autoinject t) 43 (setq magithub-api-timeout 5) 44 (setq magithub-dir "~/.cache/magithub")) 45 46 (use-package git-timemachine) 47 48 (provide 'module-git) 49 50 ;;; module-git.el ends here