(keymap-global-set "C-x v f" #'re/vc-fetch)
-(setq vc-git-root-log-format
- `("%d %h %ai %an: %s"
- ;; The first shy group matches the characters drawn by --graph.
- ;; We use numbered groups because `log-view-message-re' wants the
- ;; revision number to be group 1.
- ,(concat "^\\(?:[*/\\|]+\\)\\(?:[*/\\| ]+\\)?"
- "\\(?2: ([^)]+) \\)?\\(?1:[0-9a-z]+\\) "
- "\\(?4:[0-9]\\{4\\}-[0-9-]\\{4\\}[0-9\s+:-]\\{16\\}\\) "
- "\\(?3:.*?\\):")
- ((1 'log-view-message)
- (2 'change-log-list nil lax)
- (3 'change-log-name)
- (4 'change-log-date))))
-
(add-hook 'vc-dir-mode-hook
(lambda ()
(keymap-set vc-dir-mode-map "b b" #'re/vc-show-branches)