From 47673c6aa197525f9dd31a95cbc9607fc44e5221 Mon Sep 17 00:00:00 2001
From: Ralph Boehme <slow@samba.org>
Date: Thu, 7 Apr 2022 09:29:40 +0200
Subject: [PATCH] emacs: magit status tweaking

---
 emacs/.emacs.d/configuration.org | 41 +++++++++++++++++++++-----------
 1 file changed, 27 insertions(+), 14 deletions(-)

diff --git a/emacs/.emacs.d/configuration.org b/emacs/.emacs.d/configuration.org
index ddb9971..d518b48 100644
--- a/emacs/.emacs.d/configuration.org
+++ b/emacs/.emacs.d/configuration.org
@@ -232,21 +232,34 @@ code without having to count them yourself.
 
 ** magit
 
-   #+begin_src elisp
-     (use-package git-commit
-       :ensure t)
-     (use-package magit
-       :ensure t)
-     (defun my-magit-status()
-       "magit-status in one window"
-       (interactive)
-       (magit-status)
-       (delete-other-windows))
+#+begin_src elisp
+  (use-package git-commit
+    :ensure t)
 
-     (global-set-key [f1] 'my-magit-status)
-     (define-key esc-map "#" 'magit-diff-visit-file-worktree)
-     (setq ediff-split-window-function 'split-window-horizontally)
-    #+end_src
+; https://jakemccrary.com/blog/2020/11/14/speeding-up-magit/
+; https://magit.vc/manual/magit/Per_002dRepository-Configuration.html
+  (use-package magit
+    :ensure t
+    :config
+    (remove-hook 'magit-status-sections-hook 'magit-insert-rebase-sequence)
+    (remove-hook 'magit-status-sections-hook 'magit-insert-tags-header)
+;    (remove-hook 'magit-status-sections-hook 'magit-insert-status-headers)
+    (remove-hook 'magit-status-sections-hook 'magit-insert-unpushed-to-pushremote)
+    (remove-hook 'magit-status-sections-hook 'magit-insert-unpulled-from-pushremote)
+    (remove-hook 'magit-status-sections-hook 'magit-insert-unpulled-from-upstream)
+    (remove-hook 'magit-status-sections-hook 'magit-insert-unpushed-to-upstream-or-recent)
+  )
+
+  (defun my-magit-status()
+    "magit-status in one window"
+    (interactive)
+    (magit-status)
+    (delete-other-windows))
+
+  (global-set-key [f1] 'my-magit-status)
+  (define-key esc-map "#" 'magit-diff-visit-file-worktree)
+  (setq ediff-split-window-function 'split-window-horizontally)
+#+end_src
 
 ** flycheck
 Flycheck for compile and error check while editing
-- 
2.34.1