awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-18 16:06:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

Polish neotree integration

Browse Source 
+ Smaller font in neotree window (with slightly thinner window)
+ Refactor advice naming
+ Add space-prepended buffer name to winner-boring-alist
+ Remove unnecessary advice defuns
This commit is contained in:
Henrik Lissner
2016-06-09 00:24:40 -04:00
parent 5f1cd1972f
commit 93b5cecd9d
3 changed files with 15 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
core/defuns/defuns-neotree.el
View File

@@ -45,19 +45,16 @@
(apply orig-fun args)))
;;;###autoload
(defun doom*neotree-shorten-pwd (node)
"Shorter pwd in neotree"
(defun doom*neo-insert-root-entry (node)
"Pretty-print pwd in neotree"
(list (concat "" (projectile-project-name))))
;;;###autoload
(defun doom*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 " ")))))
(defun doom*neo-insert-fold-symbol (name)
"Custom hybrid unicode theme with leading whitespace."
(or (and (eq name 'open) (neo-buffer--insert-with-face " -  " 'neo-expand-btn-face))
(and (eq name 'close) (neo-buffer--insert-with-face " +  " 'neo-expand-btn-face))
(and (eq name 'leaf) (neo-buffer--insert-with-face " " 'neo-expand-btn-face))))
(provide 'defuns-neotree)
;;; defuns-neotree.el ends here