From 51eb04f5eac98da8a68e819a4ec59b7d995d5a6e Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Sat, 23 Aug 2025 14:58:05 +1000
Subject: [emacs] Disable follow-mode

---
 emacs/.emacs.d/init/ycp-buffer.el   | 5 ++++-
 emacs/.emacs.d/init/ycp-markup.el   | 3 ++-
 emacs/.emacs.d/lisp/my/my-buffer.el | 4 ++++
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/emacs/.emacs.d/init/ycp-buffer.el b/emacs/.emacs.d/init/ycp-buffer.el
index 944a45e..b91e6aa 100644
--- a/emacs/.emacs.d/init/ycp-buffer.el
+++ b/emacs/.emacs.d/init/ycp-buffer.el
@@ -50,7 +50,7 @@
 (my-configure
   (:delay 15)
   (my-keybind ctl-x-x-map
-    "f" #'follow-mode                   ; override `font-lock-update'
+    ;; "f" #'follow-mode                   ; override `font-lock-update'
     "r" #'rename-uniquely
     "l" #'visual-line-mode)
 
@@ -98,6 +98,9 @@
 
 (my-package follow
   (:delay 15)
+  (require 'my-buffer)
+  ;; Disable follow mode
+  (my-override follow-mode)
   ;; TODO: update this to adapt to number of windows
   (my-keybind follow-mode-map
     "C-v" #'follow-scroll-up
diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el
index 57f30cb..4922d6e 100644
--- a/emacs/.emacs.d/init/ycp-markup.el
+++ b/emacs/.emacs.d/init/ycp-markup.el
@@ -105,7 +105,8 @@
   ;; No fill, so it requires visual line mode to look nice
   (setq nov-text-width t)
   (add-hook 'nov-mode-hook 'visual-line-mode)
-  (add-hook 'nov-mode-hook 'follow-mode)
+  ;; interfering with dbus
+  ;; (add-hook 'nov-mode-hook 'follow-mode)
   (add-hook 'nov-mode-hook (lambda ()
                              (setq line-spacing .1)))
   (add-hook 'nov-post-html-render-hook 'my-nov-set-margins)
diff --git a/emacs/.emacs.d/lisp/my/my-buffer.el b/emacs/.emacs.d/lisp/my/my-buffer.el
index a8683de..1c93abc 100644
--- a/emacs/.emacs.d/lisp/my/my-buffer.el
+++ b/emacs/.emacs.d/lisp/my/my-buffer.el
@@ -526,5 +526,9 @@ With double prefix arguments, create a new indirect buffer."
       (with-no-warnings (font-lock-fontify-buffer)))
     (buffer-string)))
 
+;;; Disable follow mode
+(defun my-follow-mode (&rest _)
+  (error "follow-mode is disabled."))
+
 (provide 'my-buffer)
 ;;; my-buffer.el ends here
-- 
cgit v1.2.3