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

91
modules/init-neotree.el
View File

@ -28,59 +28,68 @@
("d" . neotree-delete-node) ("d" . neotree-delete-node)
("r" . neotree-rename-node))) ("r" . neotree-rename-node)))
:config :config
(setq neo-create-file-auto-open nil (when (and (require 'neotree nil t)
neo-auto-indent-point nil (fboundp 'off-p))
neo-autorefresh t (setq neo-create-file-auto-open nil
neo-smart-open t neo-auto-indent-point nil
neo-mode-line-type 'none neo-autorefresh t
neo-window-width 25 neo-smart-open t
neo-show-updir-line nil neo-mode-line-type 'none
neo-theme (if (display-graphic-p) 'icons 'arrow) neo-window-width 25
neo-banner-message nil neo-show-updir-line nil
neo-confirm-create-file #'off-p neo-theme (if (display-graphic-p) 'icons 'arrow)
neo-confirm-create-directory #'off-p neo-banner-message nil
neo-show-hidden-files nil neo-confirm-create-file #'off-p
neo-keymap-style 'concise neo-confirm-create-directory #'off-p
neo-hidden-regexp-list neo-show-hidden-files nil
'(;; vcs folders neo-keymap-style 'concise
"^\\.\\(git\\|hg\\|svn\\)$" neo-hidden-regexp-list
;; compiled files '(;; vcs folders
"\\.\\(pyc\\|o\\|elc\\|lock\\|css.map\\)$" "^\\.\\(git\\|hg\\|svn\\)$"
;; generated files, caches or local pkgs ;; compiled files
"^\\(node_modules\\|vendor\\|.\\(project\\|cask\\|yardoc\\|sass-cache\\)\\)$" "\\.\\(pyc\\|o\\|elc\\|lock\\|css.map\\)$"
;; org-mode folders ;; generated files, caches or local pkgs
"^\\.\\(sync\\|export\\|attach\\)$" "^\\(node_modules\\|vendor\\|.\\(project\\|cask\\|yardoc\\|sass-cache\\)\\)$"
"~$" ;; org-mode folders
"^#.*#$")) "^\\.\\(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))))))
(advice-add #'neo-buffer--insert-root-entry :override #'shrink-root-entry)) (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 () (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)
(let ((project-dir (when (and (require 'neotree nil t)
(ignore-errors (fboundp 'projectile-project-root))
(let ((project-dir
(ignore-errors
;;; Pick one: projectile or find-file-in-project ;;; Pick one: projectile or find-file-in-project
(projectile-project-root))) (projectile-project-root)))
(file-name (buffer-file-name)) (file-name (buffer-file-name))
(neo-smart-open t)) (neo-smart-open t))
(if (and (fboundp 'neo-global--window-exists-p) (if (and (fboundp 'neo-global--window-exists-p)
(neo-global--window-exists-p)) (neo-global--window-exists-p))
(neotree-hide) (neotree-hide)
(progn (progn
(neotree-show) (neotree-show)
(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)