Update neotree defuns

This commit is contained in:
Henrik Lissner 2015-12-23 03:47:31 -05:00
parent 567703c34a
commit c1927909af

View file

@ -2,23 +2,17 @@
;; for ../core-project.el ;; for ../core-project.el
;;;###autoload ;;;###autoload
(defun narf/neotree-open (&optional dir) (defun narf/neotree ()
"Toggle the neotree window"
(interactive) (interactive)
(neotree-dir (or dir (narf/project-root)))) (let ((in-neotree (and (neo-global--window-exists-p)
(window-live-p neo-global--buffer)
;;;###autoload (eq (current-buffer) neo-global--buffer))))
(defun narf/neotree-toggle () (if in-neotree
(interactive) (neotree-hide)
(if (neo-global--window-exists-p) (unless (neo-global--window-exists-p)
(neotree-hide) (neotree-dir (narf/project-root)))
(narf/neotree-open))) (neotree-find))))
;;;###autoload
(defun narf/neotree-find ()
(interactive)
(unless (neo-global--window-exists-p)
(save-excursion (narf/neotree-open)))
(neotree-find))
;;;###autoload ;;;###autoload
(defun narf|neotree-close-on-window-change () (defun narf|neotree-close-on-window-change ()