From 923fbbdea57b27ed3293079b13846206add85d9d Mon Sep 17 00:00:00 2001 From: Alexander Miller Date: Sat, 18 May 2024 11:32:56 +0200 Subject: [PATCH] [Fringe Indicator] Fix set up for the initial treemacs buffer. --- src/elisp/treemacs-fringe-indicator.el | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/src/elisp/treemacs-fringe-indicator.el b/src/elisp/treemacs-fringe-indicator.el index c326af16..a43f0975 100644 --- a/src/elisp/treemacs-fringe-indicator.el +++ b/src/elisp/treemacs-fringe-indicator.el @@ -75,6 +75,8 @@ WINDOW is the treemacs window that has just been focused or unfocused." (defun treemacs--tear-down-fringe-indicator-mode () "Tear down `treemacs-fringe-indicator-mode'." + (remove-hook 'treemacs-mode-hook + #'treemacs--enable-fringe-indicator-in-current-buffer) (treemacs-run-in-all-derived-buffers (treemacs--disable-fringe-indicator) (advice-remove #'hl-line-highlight #'treemacs--move-fringe-indicator-to-point) @@ -118,13 +120,20 @@ fringe indicator when the treemacs window is selected." (s-join "-") (intern)))) (setf treemacs-fringe-indicator-mode arg) + (add-hook 'treemacs-mode-hook + #'treemacs--enable-fringe-indicator-in-current-buffer) (treemacs-run-in-all-derived-buffers - (treemacs--enable-fringe-indicator) - (advice-add #'hl-line-highlight :after #'treemacs--move-fringe-indicator-to-point) - (when (memq arg '(t only-when-focused)) - (add-hook 'window-selection-change-functions - #'treemacs--show-fringe-indicator-only-when-focused - nil :local)))) + (treemacs--enable-fringe-indicator-in-current-buffer))) + +(defun treemacs--enable-fringe-indicator-in-current-buffer () + "Set up fringe-indicator-mode for the current buffer." + (treemacs--enable-fringe-indicator) + (advice-add #'hl-line-highlight + :after #'treemacs--move-fringe-indicator-to-point) + (when (memq treemacs-fringe-indicator-mode '(t only-when-focused)) + (add-hook 'window-selection-change-functions + #'treemacs--show-fringe-indicator-only-when-focused + nil :local))) (treemacs-only-during-init (treemacs-fringe-indicator-mode))