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

Move neotree advice fns to defuns-neotree.el

Browse source
This commit is contained in:
Henrik Lissner 2016-05-12 02:54:15 -04:00
parent d751be7898
commit a867225eb2
2 changed files with 28 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

33
core/core-project.el
View file

@ -91,6 +91,17 @@
neo-banner-message nil) neo-banner-message nil)
:config :config
(evil-set-initial-state 'neotree-mode 'motion) (evil-set-initial-state 'neotree-mode 'motion)
;; A custom and simple theme for neotree
(advice-add 'neo-buffer--insert-fold-symbol :override 'narf*neo-buffer-fold-symbol)
;; Shorter pwd in neotree
(advice-add 'neo-buffer--insert-root-entry :filter-args 'narf*neotree-shorten-pwd)
;; Don't ask for confirmation when creating files
(advice-add 'neotree-create-node :around 'narf*neotree-create-node)
;; Prevents messing up the neotree buffer on window changes
(advice-add 'narf--evil-window-move :around 'narf*save-neotree)
(advice-add 'narf--evil-swap-windows :around 'narf*save-neotree)
(add-hook 'neotree-mode-hook 'narf|neotree-init-keymap) (add-hook 'neotree-mode-hook 'narf|neotree-init-keymap)
(defun narf|neotree-init-keymap () (defun narf|neotree-init-keymap ()
(map! :map evil-motion-state-local-map (map! :map evil-motion-state-local-map
@ -109,27 +120,7 @@
"d" 'neotree-delete-node "d" 'neotree-delete-node
"g" 'neotree-refresh "g" 'neotree-refresh
"r" 'neotree-rename-node "r" 'neotree-rename-node
"R" 'neotree-change-root)) "R" 'neotree-change-root)))
(defun narf*neotree-shorten-pwd (node)
"Shorter pwd in neotree"
(list (abbreviate-file-name (car node))))
(advice-add 'neo-buffer--insert-root-entry :filter-args 'narf*neotree-shorten-pwd)
(defun narf*neotree-create-node (orig-fun &rest args)
"Don't ask for confirmation when creating files"
(cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest _) t)))
(apply orig-fun args)))
(advice-add 'neotree-create-node :around 'narf*neotree-create-node)
(defun narf*save-neotree (orig-fun &rest args)
"Prevents messing up the neotree buffer on window changes"
(narf/neotree-save (apply orig-fun args)))
(advice-add 'narf--evil-window-move :around 'narf*save-neotree)
(advice-add 'narf--evil-swap-windows :around 'narf*save-neotree)
;; A custom and simple theme for neotree
(advice-add 'neo-buffer--insert-fold-symbol :override 'narf*neo-buffer-fold-symbol))
;; ;;
(use-package projectile (use-package projectile

16
core/defuns/defuns-neotree.el
View file

@ -43,5 +43,21 @@
(and (eq name 'close) (funcall n-insert-symbol "+ ")) (and (eq name 'close) (funcall n-insert-symbol "+ "))
(and (eq name 'leaf) (funcall n-insert-symbol " "))))) (and (eq name 'leaf) (funcall n-insert-symbol " ")))))
;;;###autoload
(defun narf*save-neotree (orig-fun &rest args)
"Prevents messing up the neotree buffer on window changes"
(narf/neotree-save (apply orig-fun args)))
;;;###autoload
(defun narf*neotree-create-node (orig-fun &rest args)
"Don't ask for confirmation when creating files"
(cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest _) t)))
(apply orig-fun args)))
;;;###autoload
(defun narf*neotree-shorten-pwd (node)
"Shorter pwd in neotree"
(list (abbreviate-file-name (car node))))
(provide 'defuns-neotree) (provide 'defuns-neotree)
;;; defuns-neotree.el ends here ;;; defuns-neotree.el ends here