emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feature/evil: refactor neotree defuns

Browse source
This commit is contained in:
Henrik Lissner 2017-05-17 01:32:39 +02:00
parent 199432c0ac
commit 5416cdbe30
1 changed files with 21 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/feature/evil/autoload/neotree.el
View file

@ -21,32 +21,29 @@
(defun +evil/neotree-collapse-or-up ()
"Collapse an expanded directory node or go to the parent node."
(interactive)
(let ((node (neo-buffer--get-filename-current-line)))
(when node
(when-let (node (neo-buffer--get-filename-current-line))
(if (file-directory-p node)
(if (neo-buffer--expanded-node-p node)
(+evil/neotree-collapse)
(neotree-select-up-node))
(neotree-select-up-node)))))
(neotree-select-up-node))))
;;;###autoload
(defun +evil/neotree-collapse ()
"Collapse a neotree node."
(interactive)
(let ((node (neo-buffer--get-filename-current-line)))
(when node
(when-let (node (neo-buffer--get-filename-current-line))
(when (file-directory-p node)
(neo-buffer--set-expand node nil)
(neo-buffer--refresh t))
(when neo-auto-indent-point
(neo-point-auto-indent)))))
(neo-point-auto-indent))))
;;;###autoload
(defun +evil/neotree-expand-or-open ()
"Expand or open a neotree node."
(interactive)
(let ((node (neo-buffer--get-filename-current-line)))
(when node
(when-let (node (neo-buffer--get-filename-current-line))
(if (file-directory-p node)
(progn
(neo-buffer--set-expand node t)
@ -54,4 +51,4 @@
(when neo-auto-indent-point
(next-line)
(neo-point-auto-indent)))
(call-interactively 'neotree-enter)))))
(call-interactively 'neotree-enter))))