TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

New neotree key bindings configuration based on hjkl

Browse source
This commit is contained in:
syl20bnr 2014-12-31 23:06:15 -05:00
parent 811c7c5868
commit e7fc0b5384
1 changed files with 46 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

61
spacemacs/extensions.el
View file

@ -62,7 +62,7 @@
:init :init
(progn (progn
(add-to-list 'evil-motion-state-modes 'neotree-mode) (add-to-list 'evil-motion-state-modes 'neotree-mode)
(setq neo-window-width 30 (setq neo-window-width 32
neo-create-file-auto-open t neo-create-file-auto-open t
neo-banner-message nil neo-banner-message nil
neo-show-updir-line nil neo-show-updir-line nil
@ -72,22 +72,53 @@
neo-persist-show nil neo-persist-show nil
neo-show-hidden-files t neo-show-hidden-files t
neo-auto-indent-point t) neo-auto-indent-point t)
(defun spacemacs/neotree-expand-or-open ()
"Collapse a neotree node."
(interactive)
(let ((node (neo-buffer--get-filename-current-line)))
(when node
(if (file-directory-p node)
(progn
(neo-buffer--set-expand node t)
(neo-buffer--refresh t)
(when neo-auto-indent-point
(next-line)
(neo-point-auto-indent)))
(call-interactively 'neotree-enter)))))
(defun spacemacs/neotree-collapse ()
"Collapse a neotree node."
(interactive)
(let ((node (neo-buffer--get-filename-current-line)))
(when node
(when (file-directory-p node)
(neo-buffer--set-expand node nil)
(neo-buffer--refresh t))
(when neo-auto-indent-point
(neo-point-auto-indent)))))
(defun spacemacs//neotree-key-bindings ()
"Set the key bindings for a neotree buffer."
(define-key evil-motion-state-local-map (kbd "TAB") 'neotree-stretch-toggle)
(define-key evil-motion-state-local-map (kbd "RET") 'neotree-enter)
(define-key evil-motion-state-local-map (kbd "|") 'neotree-enter-vertical-split)
(define-key evil-motion-state-local-map (kbd "-") 'neotree-enter-horizontal-split)
(define-key evil-motion-state-local-map (kbd "?") 'evil-search-backward)
(define-key evil-motion-state-local-map (kbd "c") 'neotree-create-node)
(define-key evil-motion-state-local-map (kbd "d") 'neotree-delete-node)
(define-key evil-motion-state-local-map (kbd "g") 'neotree-refresh)
(define-key evil-motion-state-local-map (kbd "h") 'spacemacs/neotree-collapse)
(define-key evil-motion-state-local-map (kbd "H") 'neotree-hidden-file-toggle)
(define-key evil-motion-state-local-map (kbd "J") 'neotree-select-down-node)
(define-key evil-motion-state-local-map (kbd "K") 'neotree-select-up-node)
(define-key evil-motion-state-local-map (kbd "l") 'spacemacs/neotree-expand-or-open)
(define-key evil-motion-state-local-map (kbd "q") 'neotree-hide)
(define-key evil-motion-state-local-map (kbd "r") 'neotree-rename-node))
(evil-leader/set-key "ft" 'neotree-toggle)) (evil-leader/set-key "ft" 'neotree-toggle))
:config :config
(add-hook 'neotree-mode-hook (add-hook 'neotree-mode-hook 'spacemacs//neotree-key-bindings)))
(lambda ()
(define-key evil-motion-state-local-map (kbd "TAB") 'neotree-enter)
(define-key evil-motion-state-local-map (kbd "RET") 'neotree-enter)
(define-key evil-motion-state-local-map (kbd "?") 'evil-search-backward)
(define-key evil-motion-state-local-map (kbd "a") 'neotree-stretch-toggle)
(define-key evil-motion-state-local-map (kbd "c") 'neotree-create-node)
(define-key evil-motion-state-local-map (kbd "d") 'neotree-delete-node)
(define-key evil-motion-state-local-map (kbd "g") 'neotree-refresh)
(define-key evil-motion-state-local-map (kbd "H") 'neotree-hidden-file-toggle)
(define-key evil-motion-state-local-map (kbd "K") 'kill-this-buffer)
(define-key evil-motion-state-local-map (kbd "q") 'neotree-hide)
(define-key evil-motion-state-local-map (kbd "r") 'neotree-rename-node)
))))
(defun spacemacs/init-revive () (defun spacemacs/init-revive ()
(use-package revive (use-package revive