659f7bfc71
BREAKING CHANGE: This deprecates the IS-(MAC|WINDOWS|LINUX|BSD) family of global constants in favor of a native `featurep` check: IS-MAC -> (featurep :system 'macos) IS-WINDOWS -> (featurep :system 'windows) IS-LINUX -> (featurep :system 'linux) IS-BSD -> (featurep :system 'bsd) The constants will stick around until the v3 release so folks can still use it -- and there are still some modules that use it, but I'll phase those uses out gradually. Fix: #7479
150 lines
6.1 KiB
EmacsLisp
150 lines
6.1 KiB
EmacsLisp
;;; emacs/vc/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; Remove RCS, CVS, SCCS, SRC, and Bzr, because it's a lot less work for vc to
|
|
;; check them all (especially in TRAMP buffers), and who uses any of these in
|
|
;; 2021, amirite?
|
|
(setq-default vc-handled-backends '(SVN Git Hg))
|
|
|
|
(when (featurep :system 'windows)
|
|
(setenv "GIT_ASKPASS" "git-gui--askpass"))
|
|
|
|
;; In case the user is using `bug-reference-mode'
|
|
(map! :when (fboundp 'bug-reference-mode)
|
|
:map bug-reference-map
|
|
"RET" (cmds! (and (bound-and-true-p evil-mode)
|
|
(evil-normal-state-p))
|
|
#'bug-reference-push-button))
|
|
|
|
(after! log-view
|
|
(set-evil-initial-state!
|
|
'(log-view-mode
|
|
vc-git-log-view-mode
|
|
vc-hg-log-view-mode
|
|
vc-bzr-log-view-mode
|
|
vc-svn-log-view-mode)
|
|
'emacs)
|
|
(map! :map log-view-mode-map
|
|
"j" #'log-view-msg-next
|
|
"k" #'log-view-msg-prev))
|
|
|
|
|
|
(after! vc-annotate
|
|
(set-popup-rules!
|
|
'(("^\\*vc-diff" :select nil) ; *vc-diff*
|
|
("^\\*vc-change" :select t))) ; *vc-change-log*
|
|
(set-evil-initial-state! 'vc-annotate-mode 'normal)
|
|
|
|
;; Clean up after itself
|
|
(define-key vc-annotate-mode-map [remap quit-window] #'kill-current-buffer))
|
|
|
|
|
|
(after! vc-dir
|
|
(set-evil-initial-state! 'vc-dir-mode 'emacs))
|
|
|
|
|
|
(after! git-timemachine
|
|
;; Sometimes I forget `git-timemachine' is enabled in a buffer, so instead of
|
|
;; showing revision details in the minibuffer, show them in
|
|
;; `header-line-format', which has better visibility.
|
|
(setq git-timemachine-show-minibuffer-details t)
|
|
|
|
;; TODO PR this to `git-timemachine'
|
|
(defadvice! +vc-support-git-timemachine-a (fn)
|
|
"Allow `browse-at-remote' commands in git-timemachine buffers to open that
|
|
file in your browser at the visited revision."
|
|
:around #'browse-at-remote-get-url
|
|
(if git-timemachine-mode
|
|
(let* ((start-line (line-number-at-pos (min (region-beginning) (region-end))))
|
|
(end-line (line-number-at-pos (max (region-beginning) (region-end))))
|
|
(remote-ref (browse-at-remote--remote-ref buffer-file-name))
|
|
(remote (car remote-ref))
|
|
(ref (car git-timemachine-revision))
|
|
(relname
|
|
(file-relative-name
|
|
buffer-file-name (expand-file-name (vc-git-root buffer-file-name))))
|
|
(target-repo (browse-at-remote--get-url-from-remote remote))
|
|
(remote-type (browse-at-remote--get-remote-type target-repo))
|
|
(repo-url (cdr target-repo))
|
|
(url-formatter (browse-at-remote--get-formatter 'region-url remote-type)))
|
|
(unless url-formatter
|
|
(error (format "Origin repo parsing failed: %s" repo-url)))
|
|
(funcall url-formatter repo-url ref relname
|
|
(if start-line start-line)
|
|
(if (and end-line (not (equal start-line end-line))) end-line)))
|
|
(funcall fn)))
|
|
|
|
(defadvice! +vc-update-header-line-a (revision)
|
|
"Show revision details in the header-line, instead of the minibuffer.
|
|
|
|
Sometimes I forget `git-timemachine' is enabled in a buffer. Putting revision
|
|
info in the `header-line-format' is a more visible indicator."
|
|
:override #'git-timemachine--show-minibuffer-details
|
|
(let* ((date-relative (nth 3 revision))
|
|
(date-full (nth 4 revision))
|
|
(author (if git-timemachine-show-author (concat (nth 6 revision) ": ") ""))
|
|
(sha-or-subject (if (eq git-timemachine-minibuffer-detail 'commit) (car revision) (nth 5 revision))))
|
|
(setq header-line-format
|
|
(format "%s%s [%s (%s)]"
|
|
(propertize author 'face 'git-timemachine-minibuffer-author-face)
|
|
(propertize sha-or-subject 'face 'git-timemachine-minibuffer-detail-face)
|
|
date-full date-relative))))
|
|
|
|
(after! evil
|
|
;; Rehash evil keybindings so they are recognized
|
|
(add-hook 'git-timemachine-mode-hook #'evil-normalize-keymaps))
|
|
|
|
(when (modulep! :tools magit)
|
|
(add-transient-hook! #'git-timemachine-blame (require 'magit-blame)))
|
|
|
|
(map! :map git-timemachine-mode-map
|
|
:n "C-p" #'git-timemachine-show-previous-revision
|
|
:n "C-n" #'git-timemachine-show-next-revision
|
|
:n "gb" #'git-timemachine-blame
|
|
:n "gtc" #'git-timemachine-show-commit))
|
|
|
|
|
|
(use-package! git-commit
|
|
:hook (doom-first-file . global-git-commit-mode)
|
|
:config
|
|
(set-yas-minor-mode! 'git-commit-mode)
|
|
|
|
;; Enforce git commit conventions.
|
|
;; See https://chris.beams.io/posts/git-commit/
|
|
(setq git-commit-summary-max-length 50
|
|
git-commit-style-convention-checks '(overlong-summary-line non-empty-second-line))
|
|
(setq-hook! 'git-commit-mode-hook fill-column 72)
|
|
|
|
(add-hook! 'git-commit-setup-hook
|
|
(defun +vc-start-in-insert-state-maybe-h ()
|
|
"Start git-commit-mode in insert state if in a blank commit message,
|
|
otherwise in default state."
|
|
(when (and (bound-and-true-p evil-mode)
|
|
(not (evil-emacs-state-p))
|
|
(bobp) (eolp))
|
|
(evil-insert-state)))))
|
|
|
|
|
|
(after! browse-at-remote
|
|
;; It's more sensible that the user have more options. If they want line
|
|
;; numbers, users can request them by making a selection first. Otherwise
|
|
;; omitting them.
|
|
(setq browse-at-remote-add-line-number-if-no-region-selected nil)
|
|
;; Opt to produce permanent links with `browse-at-remote' by default,
|
|
;; using commit hashes rather than branch names.
|
|
(setq browse-at-remote-prefer-symbolic nil)
|
|
|
|
;; Add codeberg.org support
|
|
;; TODO: PR this upstream?
|
|
(add-to-list 'browse-at-remote-remote-type-regexps '(:host "^codeberg\\.org$" :type "codeberg"))
|
|
;; Expand recognition for gitlab hosts besides gitlab.org or gitlab.gnome.org
|
|
;; which are presumably hosted in a gitlab.* subdomain.
|
|
;; TODO: PR this upstream?
|
|
(add-to-list 'browse-at-remote-remote-type-regexps '(:host "^gitlab\\." :type "gitlab") 'append)
|
|
|
|
;; HACK `browse-at-remote' produces urls with `nil' in them, when the repo is
|
|
;; detached. This creates broken links. I think it is more sensible to
|
|
;; fall back to master in those cases.
|
|
(defadvice! +vc--fallback-to-master-branch-a ()
|
|
"Return 'master' in detached state."
|
|
:after-until #'browse-at-remote--get-local-branch
|
|
"master"))
|