doomemacs/modules/feature/evil/autoload/neotree.el

20 lines
717 B
EmacsLisp
Raw Normal View History

2017-02-13 04:54:36 -05:00
;;; feature/evil/autoload/neotree.el
;;;###autoload
(defun +evil/neotree ()
"Toggle the neotree window."
(interactive)
(let ((in-neotree (and (neo-global--window-exists-p)
(window-live-p neo-global--buffer)
(eq (current-buffer) neo-global--buffer)))
(path buffer-file-name))
(if in-neotree
(neotree-hide)
(let ((project-root (doom-project-root)))
(unless (and (neo-global--window-exists-p)
2017-02-19 18:14:46 -05:00
(equal (file-truename (neo-global--with-buffer neo-buffer--start-node))
(file-truename project-root)))
2017-02-13 04:54:36 -05:00
(neotree-dir project-root))
(neotree-find path project-root)))))