tweak(blamer): disable when in +writing-mode

abougouffa · Oct 16, 2023 · 478d4f6 · 478d4f6
1 parent 7f21ba9
commit 478d4f6
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/modules/me-vc.el b/modules/me-vc.el
@@ -140,7 +140,15 @@
     "gB" #'blamer-show-commit-info)
 
   ;; Use 10% smaller font size for blamer's text
-  (set-face-attribute 'blamer-face nil :height (truncate (* 0.9 (face-attribute 'default :height)))))
+  (set-face-attribute 'blamer-face nil :height (truncate (* 0.9 (face-attribute 'default :height))))
+
+  (with-eval-after-load 'me-writing-mode
+    (defvar-local +blamer-was-active-p blamer-mode)
+    (+add-hook! '+writing-mode-enable-hook
+      (setq-local +blamer-was-active-p blamer-mode)
+      (when +blamer-was-active-p (blamer-mode -1)))
+    (+add-hook! '+writing-mode-disable-hook
+      (when (bound-and-true-p +blamer-was-active-p) (blamer-mode 1)))))
 
 (use-package git-timemachine
   :straight t