40 lines
1.1 KiB
EmacsLisp
40 lines
1.1 KiB
EmacsLisp
;;; core-vcs.el --- version control awareness
|
|
|
|
(use-package gitconfig-mode
|
|
:mode ("/\\.?git/?config$" "/\\.gitmodules$")
|
|
:init (add-hook 'gitconfig-mode-hook 'flyspell-mode))
|
|
|
|
(use-package gitignore-mode
|
|
:mode ("/\\.gitignore$"
|
|
"/\\.git/info/exclude$"
|
|
"/git/ignore$"))
|
|
|
|
(use-package diff-hl
|
|
:init
|
|
(setq diff-hl-draw-borders nil
|
|
diff-hl-fringe-bmp-function 'narf-diff-hl-fringe-bmp)
|
|
:config
|
|
(defun narf-diff-hl-fringe-bmp (type _pos)
|
|
(if (eq type 'delete)
|
|
'narf--diff-hl-bitmap-del
|
|
'narf--diff-hl-bitmap))
|
|
|
|
(define-fringe-bitmap 'narf--diff-hl-bitmap
|
|
[240 240 240 240 240 240 240 240 240 240 240 240 240 240]
|
|
nil nil 'center)
|
|
(define-fringe-bitmap 'narf--diff-hl-bitmap-del
|
|
[248 240 224 192 128 0 0 0 0 0 0 0 0 0]
|
|
nil nil 'center)
|
|
|
|
(global-diff-hl-mode 1))
|
|
|
|
(use-package github-browse-file
|
|
:commands (narf:github-browse-file github-browse-file github-browse-file-blame)
|
|
:config
|
|
(evil-define-command narf:github-browse-file (&optional bang)
|
|
(interactive "<!>")
|
|
(if bang (github-browse-file-blame) (github-browse-file))))
|
|
|
|
(provide 'core-vcs)
|
|
;;; core-vcs.el ends here
|