230ea2279f
Opening a dired buffer from the Treemacs buffer, right after starting Spacemacs, shows the error message: >treemacs-icons-dired--display: Wrong type argument: char-or-string-p, nil Loading `treemacs-icons-dired-mode` from the `dired-load-hook`, instead of from the `dired-mode-hook`, seems to fix it. The `dired-load-hook` docstring says: >Run after loading Dired. The `dired-mode-hook` docstring says: >Run at the very end of ‘dired-mode’.
122 lines
4.2 KiB
EmacsLisp
122 lines
4.2 KiB
EmacsLisp
;;; packages.el --- treemacs Layer packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2019 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Alexander Miller <alexanderm@web.de>
|
|
;; Hong Xu <hong@topbug.net>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(defconst treemacs-packages
|
|
'(
|
|
golden-ratio
|
|
treemacs
|
|
(treemacs-evil :toggle (memq dotspacemacs-editing-style '(vim hybrid)))
|
|
(treemacs-icons-dired :toggle treemacs-use-icons-dired)
|
|
(treemacs-magit :requires magit)
|
|
(treemacs-persp :requires persp-mode)
|
|
treemacs-projectile
|
|
winum
|
|
))
|
|
|
|
(defun treemacs/pre-init-golden-ratio ()
|
|
(spacemacs|use-package-add-hook golden-ratio
|
|
:post-config
|
|
(add-to-list 'golden-ratio-exclude-buffer-regexp
|
|
(rx "*Treemacs" (0+ any)))))
|
|
|
|
(defun treemacs/init-treemacs ()
|
|
(use-package treemacs
|
|
:commands (treemacs-select-window
|
|
treemacs-select-scope-type
|
|
treemacs--window-number-ten
|
|
treemacs-current-visibility)
|
|
:defer t
|
|
:init
|
|
(progn
|
|
(setq treemacs-follow-after-init t)
|
|
(add-hook 'treemacs-mode-hook
|
|
#'spacemacs/treemacs-setup-width-lock)
|
|
(spacemacs|spacebind
|
|
"Files manipulation."
|
|
:global
|
|
(("f" "Files"
|
|
("t" treemacs "File tree")
|
|
("B" treemacs-bookmark "Find bookmark in file tree")
|
|
("T" treemacs-find-file "Focus current file in file tree")
|
|
("M-t" treemacs-find-tag "Focus tag in file tree" ))
|
|
("p" "Project"
|
|
("t" spacemacs/treemacs-project-toggle "Open project in file tree"))))
|
|
(which-key-add-major-mode-key-based-replacements 'treemacs-mode
|
|
"c" "treemacs-create"
|
|
"o" "treemacs-visit-node"
|
|
"oa" "treemacs-visit-node-ace"
|
|
"t" "treemacs-toggles"
|
|
"y" "treemacs-copy"
|
|
"C-c C-p" "treemacs-projects"
|
|
"C-c C-p c" "treemacs-projects-collapse"))
|
|
:config
|
|
(progn
|
|
(spacemacs/define-evil-state-face "treemacs" "MediumPurple1")
|
|
;; minor modes are enabled by default, so they must be explicitly
|
|
;; turned off
|
|
(if (eq treemacs-use-follow-mode t)
|
|
(treemacs-follow-mode t)
|
|
(treemacs-follow-mode -1))
|
|
(if (eq treemacs-use-follow-mode 'tag)
|
|
(treemacs-tag-follow-mode t)
|
|
(treemacs-tag-follow-mode -1))
|
|
(if treemacs-use-filewatch-mode
|
|
(treemacs-filewatch-mode t)
|
|
(treemacs-filewatch-mode -1))
|
|
(if (memq treemacs-use-git-mode '(simple extended deferred))
|
|
(treemacs-git-mode treemacs-use-git-mode)
|
|
(treemacs-git-mode -1))
|
|
(add-to-list 'spacemacs-window-split-ignore-prefixes
|
|
treemacs--buffer-name-prefix))))
|
|
|
|
(defun treemacs/init-treemacs-evil ()
|
|
(use-package treemacs-evil
|
|
:after treemacs
|
|
:if (memq dotspacemacs-editing-style '(vim hybrid))))
|
|
|
|
(defun treemacs/init-treemacs-projectile ()
|
|
(use-package treemacs-projectile
|
|
:after treemacs
|
|
:defer t
|
|
:init (require 'treemacs-projectile)))
|
|
|
|
(defun treemacs/init-treemacs-persp ()
|
|
(use-package treemacs-persp
|
|
:after treemacs persp-mode
|
|
:config (when (eq treemacs-use-scope-type 'Perspectives)
|
|
(treemacs-set-scope-type 'Perspectives))))
|
|
|
|
(defun treemacs/init-treemacs-icons-dired ()
|
|
(use-package treemacs-icons-dired
|
|
:hook (dired-load . treemacs-icons-dired-mode)))
|
|
|
|
(defun treemacs/pre-init-winum ()
|
|
(spacemacs|use-package-add-hook winum
|
|
:post-config
|
|
(progn
|
|
;; `0', `M-0' and `C-x w 0' are bound to `winum-select-window-0-or-10'
|
|
(define-key winum-keymap
|
|
[remap winum-select-window-0-or-10] #'treemacs-select-window)
|
|
;; replace the which-key name
|
|
(push '((nil . "winum-select-window-0-or-10") .
|
|
(nil . "treemacs-select-window"))
|
|
which-key-replacement-alist)
|
|
(with-eval-after-load 'treemacs
|
|
(dolist (n (number-sequence 1 5))
|
|
(add-to-list 'winum-ignored-buffers
|
|
(format "%sFramebuffer-%s*"
|
|
treemacs--buffer-name-prefix n)))))))
|
|
|
|
(defun treemacs/init-treemacs-magit ()
|
|
(use-package treemacs-magit
|
|
:after treemacs magit
|
|
:defer t))
|