Files
.emacs.d/modules/projects/siren-neotree.el

52 lines
1.4 KiB
EmacsLisp

;;; siren-neotree.el --- jimeh's Emacs Siren: neotree configuration.
;;; Commentary:
;; Basic configuration for neotree.
;;; Code:
(require 'siren-all-the-icons)
(require 'siren-projectile)
(use-package neotree
:bind
("C-x C-p" . neotree-toggle)
("C-x p" . neotree-project-dir)
:custom
(neo-autorefresh t)
(neo-force-change-root t)
(neo-mode-line-type 'default)
(neo-show-hidden-files t)
(neo-show-updir-line nil)
(neo-smart-open nil)
(neo-theme (if window-system 'icons 'ascii))
(neo-toggle-window-keep-p t)
(neo-vc-integration '(face char))
(neo-window-width 54)
:init
(defun neotree-project-dir ()
"Open NeoTree using the project root, using find-file-in-project,
or the current buffer directory."
(interactive)
(let ((project-dir (ignore-errors (projectile-project-root)))
(file-name (buffer-file-name))
(neo-smart-open nil))
(neotree-show)
(if project-dir (neotree-dir project-dir))
(if file-name (neotree-find file-name))))
(defun neotree-project-dir-toggle ()
"Toggle opening NeoTree using the project root, using find-file-in-project,
or the current buffer directory."
(interactive)
(if (and (fboundp 'neo-global--window-exists-p)
(neo-global--window-exists-p))
(neotree-hide)
(neotree-project-dir))))
(provide 'siren-neotree)
;;; siren-neotree.el ends here