Fix the following functions might not be defined at runtime
- off-p - shrink-path-dirs - neo-buffer--insert-root-entry Fix functions are not known to be defined - shrink-root-entry - projectile-project-root FS #2
This commit is contained in:
parent
323b9b6e01
commit
70ee129a0a
@ -28,6 +28,8 @@
|
||||
("d" . neotree-delete-node)
|
||||
("r" . neotree-rename-node)))
|
||||
:config
|
||||
(when (and (require 'neotree nil t)
|
||||
(fboundp 'off-p))
|
||||
(setq neo-create-file-auto-open nil
|
||||
neo-auto-indent-point nil
|
||||
neo-autorefresh t
|
||||
@ -51,20 +53,28 @@
|
||||
;; org-mode folders
|
||||
"^\\.\\(sync\\|export\\|attach\\)$"
|
||||
"~$"
|
||||
"^#.*#$"))
|
||||
"^#.*#$")))
|
||||
|
||||
(when (bound-and-true-p winner-mode)
|
||||
(push neo-buffer-name winner-boring-buffers))
|
||||
|
||||
(defun shrink-root-entry (node)
|
||||
"shrink-print pwd in neotree"
|
||||
(insert (propertize (concat (shrink-path-dirs node) "\n") 'face `(:inherit (,neo-root-dir-face)))))
|
||||
(when (and (require 'neotree nil t)
|
||||
(fboundp 'shrink-path-dirs))
|
||||
(insert (propertize (concat (shrink-path-dirs node) "\n") 'face `(:inherit (,neo-root-dir-face))))))
|
||||
|
||||
(when (and (require 'neotree nil t)
|
||||
(fboundp 'neo-buffer--insert-root-entry)
|
||||
(fboundp 'shrink-root-entry))
|
||||
(advice-add #'neo-buffer--insert-root-entry :override #'shrink-root-entry))
|
||||
)
|
||||
|
||||
(defun neotree-project-dir-toggle ()
|
||||
"Open NeoTree using the project root, using find-file-in-project or the current buffer directory."
|
||||
(interactive)
|
||||
(when (and (require 'neotree nil t)
|
||||
(fboundp 'projectile-project-root))
|
||||
(let ((project-dir
|
||||
(ignore-errors
|
||||
;;; Pick one: projectile or find-file-in-project
|
||||
@ -79,8 +89,7 @@
|
||||
(if project-dir
|
||||
(neotree-dir project-dir))
|
||||
(if file-name
|
||||
(neotree-find file-name))))))
|
||||
|
||||
(neotree-find file-name)))))))
|
||||
|
||||
(provide 'init-neotree)
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user