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

neotree: unicode icon display; wider window

Browse source
This commit is contained in:
Henrik Lissner 2016-05-20 17:22:52 -04:00
parent 6ac3e495bd
commit 99b5d42f3f
2 changed files with 17 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/core-project.el
View file

@ -85,15 +85,17 @@
neo-auto-indent-point t
neo-mode-line-type 'none
neo-persist-show nil
neo-window-width 26
neo-window-width 28
neo-show-updir-line nil
neo-auto-indent-point t
neo-theme 'nerd ; fallback
neo-banner-message nil)
:config
(evil-set-initial-state 'neotree-mode 'motion)
(add-hook 'neo-after-create-hook 'narf|hide-mode-line)
;; A custom and simple theme for neotree
(advice-add 'neo-buffer--insert-fold-symbol :override 'narf*neo-buffer-fold-symbol)
(advice-add 'neo-buffer--insert-fold-symbol :override 'narf*neo-theme)
;; 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
@ -103,7 +105,9 @@
(add-hook 'neotree-mode-hook 'narf|neotree-init-keymap)
(defun narf|neotree-init-keymap ()
(setq line-spacing 1)
(map! :map evil-motion-state-local-map
"ESC ESC" 'neotree-hide
"q" 'neotree-hide
"RET" 'neotree-enter
"J" 'neotree-select-next-sibling-node

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

@ -33,16 +33,6 @@
(eq (current-buffer) (neo-global--get-buffer)))
(neotree-hide)))
;;;###autoload
(defun narf*neo-buffer-fold-symbol (name)
"Custom hybrid ascii theme with leading whitespace."
(let ((n-insert-symbol (lambda (n)
(neo-buffer--insert-with-face
n 'neo-expand-btn-face))))
(or (and (eq name 'open) (funcall n-insert-symbol "- "))
(and (eq name 'close) (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"
@ -57,7 +47,17 @@
;;;###autoload
(defun narf*neotree-shorten-pwd (node)
"Shorter pwd in neotree"
(list (abbreviate-file-name (car node))))
(list (concat "" (projectile-project-name))))
;;;###autoload
(defun narf*neo-theme (name)
"Custom hybrid ascii theme with leading whitespace."
(let ((n-insert-symbol (lambda (n)
(neo-buffer--insert-with-face
n 'neo-expand-btn-face))))
(or (and (eq name 'open) (funcall n-insert-symbol " -  "))
(and (eq name 'close) (funcall n-insert-symbol " +  "))
(and (eq name 'leaf) (funcall n-insert-symbol " ")))))
(provide 'defuns-neotree)
;;; defuns-neotree.el ends here