heckyel/emacs-personal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix the following functions might not be defined at runtime

Browse Source 
- 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:
Jesús 2019-01-22 18:36:08 -05:00
parent 323b9b6e01
commit 70ee129a0a
No known key found for this signature in database
GPG Key ID: F6EE7BC59A315766
1 changed files with 50 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
modules/init-neotree.el
View File

@ -28,6 +28,8 @@
("d" . neotree-delete-node) ("d" . neotree-delete-node)
("r" . neotree-rename-node))) ("r" . neotree-rename-node)))
:config :config
(when (and (require 'neotree nil t)
(fboundp 'off-p))
(setq neo-create-file-auto-open nil (setq neo-create-file-auto-open nil
neo-auto-indent-point nil neo-auto-indent-point nil
neo-autorefresh t neo-autorefresh t
@ -51,20 +53,28 @@
;; org-mode folders ;; org-mode folders
"^\\.\\(sync\\|export\\|attach\\)$" "^\\.\\(sync\\|export\\|attach\\)$"
"~$" "~$"
"^#.*#$")) "^#.*#$")))
(when (bound-and-true-p winner-mode) (when (bound-and-true-p winner-mode)
(push neo-buffer-name winner-boring-buffers)) (push neo-buffer-name winner-boring-buffers))
(defun shrink-root-entry (node) (defun shrink-root-entry (node)
"shrink-print pwd in neotree" "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)) (advice-add #'neo-buffer--insert-root-entry :override #'shrink-root-entry))
)
(defun neotree-project-dir-toggle () (defun neotree-project-dir-toggle ()
"Open NeoTree using the project root, using find-file-in-project or the current buffer directory." "Open NeoTree using the project root, using find-file-in-project or the current buffer directory."
(interactive) (interactive)
(when (and (require 'neotree nil t)
(fboundp 'projectile-project-root))
(let ((project-dir (let ((project-dir
(ignore-errors (ignore-errors
;;; Pick one: projectile or find-file-in-project ;;; Pick one: projectile or find-file-in-project
@ -79,8 +89,7 @@
(if project-dir (if project-dir
(neotree-dir project-dir)) (neotree-dir project-dir))
(if file-name (if file-name
(neotree-find file-name)))))) (neotree-find file-name)))))))
(provide 'init-neotree) (provide 'init-neotree)