72 lines
2.7 KiB
EmacsLisp
72 lines
2.7 KiB
EmacsLisp
;;; defuns-neotree.el
|
|
;; for ../core-project.el
|
|
|
|
;;;###autoload
|
|
(defun doom/neotree ()
|
|
"Toggle the neotree window"
|
|
(interactive)
|
|
(let ((in-neotree (and (neo-global--window-exists-p)
|
|
(window-live-p neo-global--buffer)
|
|
(eq (current-buffer) neo-global--buffer)))
|
|
(path buffer-file-name))
|
|
(if in-neotree
|
|
(neotree-hide)
|
|
(let ((project-root (doom/project-root)))
|
|
(unless (and (neo-global--window-exists-p)
|
|
(f-same? (neo-global--with-buffer neo-buffer--start-node) project-root))
|
|
(neotree-dir project-root))
|
|
(neotree-find path project-root)))))
|
|
|
|
;;;###autoload
|
|
(defmacro doom/neotree-save (&rest body)
|
|
`(let ((neo-p (neo-global--window-exists-p)))
|
|
(when neo-p (neotree-hide))
|
|
,@body
|
|
(when neo-p
|
|
(save-selected-window
|
|
(neotree-show)))))
|
|
|
|
;;;###autoload
|
|
(defun doom|neotree-close-on-window-change (&rest _)
|
|
"Close neotree to prevent ensuing mindow buggery."
|
|
(unless (and (neo-global--window-exists-p)
|
|
(eq (current-buffer) (neo-global--get-buffer)))
|
|
(neotree-hide)))
|
|
|
|
;;;###autoload
|
|
(defun doom*save-neotree (orig-fun &rest args)
|
|
"Prevents messing up the neotree buffer on window changes"
|
|
(doom/neotree-save (apply orig-fun args)))
|
|
|
|
;;;###autoload
|
|
(defun doom*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 doom*neo-insert-root-entry (node)
|
|
"Pretty-print pwd in neotree"
|
|
(list (concat " " (projectile-project-name))))
|
|
|
|
;;;###autoload
|
|
(defun doom*neo-insert-fold-symbol (name)
|
|
"Custom hybrid unicode theme with leading whitespace."
|
|
(or (and (eq name 'open)
|
|
(neo-buffer--insert-with-face (format " - %s "
|
|
(propertize ""
|
|
'face `(:family "fontawesome" :height 1.2)
|
|
'display '(raise -0.2)))
|
|
'neo-expand-btn-face))
|
|
(and (eq name 'close)
|
|
(neo-buffer--insert-with-face (format " + %s "
|
|
(propertize ""
|
|
'face `(:family "fontawesome" :height 1.2)
|
|
'display '(raise -0.2)))
|
|
'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
|