doomemacs/modules/ui/treemacs/config.el
Henrik Lissner ad6a3d0f33
refactor: deprecate featurep! for modulep!
featurep! will be renamed modulep! in the future, so it's been
deprecated. They have identical interfaces, and can be replaced without
issue.

featurep! was never quite the right name for this macro. It implied that
it had some connection to featurep, which it doesn't (only that it was
similar in purpose; still, Doom modules are not features). To undo such
implications and be consistent with its namespace (and since we're
heading into a storm of breaking changes with the v3 release anyway),
now was the best opportunity to begin the transition.
2022-08-14 20:43:35 +02:00

77 lines
2.2 KiB
EmacsLisp

;;; ui/treemacs/config.el -*- lexical-binding: t; -*-
(defvar +treemacs-git-mode 'simple
"Type of git integration for `treemacs-git-mode'.
There are 3 possible values:
1) `simple', which highlights only files based on their git status, and is
slightly faster,
2) `extended', which highlights both files and directories, but requires
python,
3) `deferred', same as extended, but highlights asynchronously.
This must be set before `treemacs' has loaded.")
;;
;;; Packages
(use-package! treemacs
:defer t
:init
(setq treemacs-follow-after-init t
treemacs-is-never-other-window t
treemacs-sorting 'alphabetic-case-insensitive-asc
treemacs-persist-file (concat doom-cache-dir "treemacs-persist")
treemacs-last-error-persist-file (concat doom-cache-dir "treemacs-last-error-persist"))
:config
;; Don't follow the cursor
(treemacs-follow-mode -1)
(when +treemacs-git-mode
;; If they aren't supported, fall back to simpler methods
(when (and (memq +treemacs-git-mode '(deferred extended))
(not (executable-find "python3")))
(setq +treemacs-git-mode 'simple))
(treemacs-git-mode +treemacs-git-mode)
(setq treemacs-collapse-dirs
(if (memq treemacs-git-mode '(extended deferred))
3
0))))
(use-package! treemacs-evil
:when (modulep! :editor evil +everywhere)
:defer t
:init
(after! treemacs (require 'treemacs-evil))
(add-to-list 'doom-evil-state-alist '(?T . treemacs))
:config
(define-key! evil-treemacs-state-map
[return] #'treemacs-RET-action
[tab] #'treemacs-TAB-action
"TAB" #'treemacs-TAB-action
;; REVIEW Fix #1875 to be consistent with C-w {v,s}, but this should really
;; be considered upstream.
"o v" #'treemacs-visit-node-horizontal-split
"o s" #'treemacs-visit-node-vertical-split))
(use-package! treemacs-projectile
:after treemacs)
(use-package! treemacs-magit
:when (modulep! :tools magit)
:after treemacs magit)
(use-package! treemacs-persp
:when (modulep! :ui workspaces)
:after treemacs
:config (treemacs-set-scope-type 'Perspectives))
(use-package! lsp-treemacs
:when (modulep! +lsp)
:after (treemacs lsp))