diff options
Diffstat (limited to 'lisp/init-git.el')
-rw-r--r-- | lisp/init-git.el | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/lisp/init-git.el b/lisp/init-git.el deleted file mode 100644 index ef7acc1..0000000 --- a/lisp/init-git.el +++ /dev/null @@ -1,97 +0,0 @@ -;;; init-git.el --- .Emacs Configuration -*- lexical-binding: t -*- -;;; Commentary: -;; - -;;; Code: -(setq vc-follows-symlinks t - find-file-visit-truename t - vc-handled-backends nil) - -(if (display-graphic-p) - (use-package git-gutter-fringe - :ensure t - :config - (global-git-gutter-mode t) - (setq-default fringes-outside-margins t) - (setq-default left-fringe-width 10) - (setq indicate-empty-lines nil) - (set-face-foreground 'git-gutter-fr:modified "purple") - (set-face-foreground 'git-gutter-fr:added "green") - (set-face-foreground 'git-gutter-fr:deleted "red") - - (defun my-reshape-git-gutter (gutter) - "Re-shape gutter for `ivy-read'." - (let* ((linenum-start (aref gutter 3)) - (linenum-end (aref gutter 4)) - (target-line "") - (target-linenum 1) - (tmp-line "") - (max-line-length 0)) - (save-excursion - (while (<= linenum-start linenum-end) - (goto-line linenum-start) - (setq tmp-line (replace-regexp-in-string "^[ \t]*" "" - (buffer-substring (line-beginning-position) - (line-end-position)))) - (when (> (length tmp-line) max-line-length) - (setq target-linenum linenum-start) - (setq target-line tmp-line) - (setq max-line-length (length tmp-line))) - - (setq linenum-start (1+ linenum-start)))) - ;; build (key . linenum-start) - (cons (format "%s %d: %s" - (if (eq 'deleted (aref gutter 1)) "-" "+") - target-linenum target-line) - target-linenum))) - - (defun my-goto-git-gutter () - (interactive) - (if git-gutter-fr:diffinfos - (ivy-read "git-gutters-fr:" - (mapcar 'my-reshape-git-gutter git-gutter-fr:diffinfos) - :action (lambda (e) - ;; ivy9+ keep `(car e)' - ;; ivy8- strip the `(car e)' - ;; we handle both data structure - (unless (numberp e) (setq e (cdr e))) - (goto-line e))) - (message "NO git-gutters-fringe!"))))) - -(use-package gitconfig-mode - :ensure t - :mode ("/\\.?git/?config$" - "/\\.gitmodules$") - :init (add-hook 'gitconfig-mode-hook 'flyspell-mode)) - -(use-package gitignore-mode - :ensure t - :mode ("/\\.gitignore$" - "/\\.git/info/exclude$" - "/git/ignore$")) - -(use-package gitattributes-mode - :ensure t - :defer t) - -(use-package git-timemachine - :ensure t - :commands git-timemachine - :bind (:map git-timemachine-mode - ("c" . git-timemachine-show-current-revision) - ("b" . git-timemachine-switch-branch))) - -;;; smerge-mode video explain https://emacsgifs.github.io/public/videos/758861381898637313.mp4 -(use-package smerge-mode - :ensure t - :config - (defun enable-smerge-maybe () - (when (and buffer-file-name (vc-backend buffer-file-name)) - (save-excursion - (goto-char (point-min)) - (when (re-search-forward "^<<<<<<< " nil t) - (smerge-mode +1))))) - (add-hook 'buffer-list-update-hook #'enable-smerge-maybe)) - -(provide 'init-git) -;;; init-git.el ends here |