From 8dacbac310b150b6ad6f9294b6bac75bbbb4c061 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Tue, 19 Aug 2025 12:42:30 -0400
Subject: [PATCH] Steal some vc-mode config from Protesilaos

---
 init.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 58af819..c222fc7 100644
--- a/init.el
+++ b/init.el
@@ -147,10 +147,29 @@
 
 ;; Draftwieldiŋ
 (setq vc-make-backup-files t
-      vc-handled-backends '(Git Hg RCS CVS SVN SCCS SRC Bzr)
+      vc-handled-backends '(Git)
+      vc-git-diff-switches '("--patch-with-stat" "--histogram")
+      vc-git-log-switches '("--stat")
+      vc-git-log-edit-summary-target-len 50
+      vc-git-log-edit-summary-max-len 70
+      vc-find-revision-no-save t
       backup-by-copying t
       backup-directory-alist `((".*" . "~/emacs-backups/")))
 
+(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))))
+
 (setq delete-old-versions t
       kept-new-versions 5
       kept-old-versions 5)
-- 
2.39.5