From 4edc5f34347efbc4422947bde97f95918d29229e Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Tue, 27 Jun 2023 09:34:11 +1000
Subject: dired and vc

---
 emacs/.emacs.d/lisp/buildbot.el    |  2 +-
 emacs/.emacs.d/lisp/dired-hist     |  1 +
 emacs/.emacs.d/lisp/my/my-dired.el | 12 ++++++++++++
 3 files changed, 14 insertions(+), 1 deletion(-)
 create mode 160000 emacs/.emacs.d/lisp/dired-hist

(limited to 'emacs/.emacs.d/lisp')

diff --git a/emacs/.emacs.d/lisp/buildbot.el b/emacs/.emacs.d/lisp/buildbot.el
index d3c7fcb..8c151a1 160000
--- a/emacs/.emacs.d/lisp/buildbot.el
+++ b/emacs/.emacs.d/lisp/buildbot.el
@@ -1 +1 @@
-Subproject commit d3c7fcb511d1697f27e84229172152cdab812351
+Subproject commit 8c151a133ffcc3bb1d4e8e23bc071d32785185c2
diff --git a/emacs/.emacs.d/lisp/dired-hist b/emacs/.emacs.d/lisp/dired-hist
new file mode 160000
index 0000000..94b0926
--- /dev/null
+++ b/emacs/.emacs.d/lisp/dired-hist
@@ -0,0 +1 @@
+Subproject commit 94b09260ac964e3d856c018d66af3214915dd826
diff --git a/emacs/.emacs.d/lisp/my/my-dired.el b/emacs/.emacs.d/lisp/my/my-dired.el
index d80c1c8..c64d9d2 100644
--- a/emacs/.emacs.d/lisp/my/my-dired.el
+++ b/emacs/.emacs.d/lisp/my/my-dired.el
@@ -139,5 +139,17 @@ With a prefix-arg, call it without using `vc-rename-file'."
         (funcall rename-fun))
     (funcall rename-fun)))
 
+(defun my-dired-display-file (_)
+  (dired-display-file))
+
+(define-minor-mode my-dired-follow-mode
+  "Diplay file at point in dired after a move."
+  :lighter " dired-f"
+  :global t
+  :group 'dired
+  (if my-dired-follow-mode
+      (advice-add 'dired-next-line :after #'my-dired-display-file)
+    (advice-remove 'dired-next-line #'my-dired-display-file)))
+
 (provide 'my-dired)
 ;;; my-dired.el ends here
-- 
cgit v1.2.3