Skip to content

Commit

Permalink
[Fringe Indicator] Fix set up for the initial treemacs buffer.
Browse files Browse the repository at this point in the history
  • Loading branch information
Alexander-Miller committed May 18, 2024
1 parent 3f9e216 commit 923fbbd
Showing 1 changed file with 15 additions and 6 deletions.
21 changes: 15 additions & 6 deletions src/elisp/treemacs-fringe-indicator.el
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -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))

Expand Down

0 comments on commit 923fbbd

Please sign in to comment.