github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Optimize doom-modeline-project-root.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-29 21:36:47 +08:00
parent 5cb7c2ddfb
commit 0ead21b91f
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
doom-modeline-core.el
View file

@ -478,15 +478,14 @@ If DEFAULT is non-nil, set the default mode-line for all buffers."
(defvar-local doom-modeline-project-root nil) (defvar-local doom-modeline-project-root nil)
(defun doom-modeline-project-root () (defun doom-modeline-project-root ()
"Get the path to the root of your project. "Get the path to the root of your project.
Return `default-directory' if no project was found."
Return `default-directory' if no project was found."
(or doom-modeline-project-root (or doom-modeline-project-root
(setq doom-modeline-project-root (setq doom-modeline-project-root
(file-local-name (file-local-name
(or (or
(when (featurep 'projectile) (when (bound-and-true-p projectile-mode)
(ignore-errors (projectile-project-root))) (ignore-errors (projectile-project-root)))
(when (featurep 'project) (when (fboundp 'project-current)
(ignore-errors (ignore-errors
(when-let ((project (project-current))) (when-let ((project (project-current)))
(expand-file-name (car (project-roots project)))))) (expand-file-name (car (project-roots project))))))