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

Fix #42: refactor doom-modeline-project-root to avoid errors.

Browse source
This commit is contained in:
Vincent Zhang 2018-11-13 13:24:14 +08:00
parent f0e882dbe6
commit 813adefbfa
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
doom-modeline.el
View file

@ -331,18 +331,18 @@ active.")
(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.
If STRICT-P, return nil if no project was found, otherwise return Return `default-directory' if no project was found."
`default-directory'."
(if (local-variable-p 'doom-modeline-project-root) (if (local-variable-p 'doom-modeline-project-root)
doom-modeline-project-root doom-modeline-project-root
(or
(when (featurep 'projectile)
(let ((projectile-require-project-root nil))
(setq doom-modeline-project-root (setq doom-modeline-project-root
(projectile-ensure-project (projectile-project-root))))) (or
(when (featurep 'projectile) (projectile-project-root))
(when (featurep 'project) (when (featurep 'project)
(when-let ((project (project-current))) (when-let ((project (project-current)))
(car (project-roots project))))))) (car (project-roots project))))
default-directory))))
(project-roots (project-current))
;; Disable projectile mode-line segment ;; Disable projectile mode-line segment
(setq projectile-dynamic-mode-line nil) (setq projectile-dynamic-mode-line nil)
@ -439,7 +439,7 @@ active.")
(defun doom-modeline-update-env () (defun doom-modeline-update-env ()
"Update environment info on mode-line." "Update environment info on mode-line."
(when doom-modeline-env-command (when doom-modeline-env-command
(let ((default-directory (or (doom-modeline-project-root) "")) (let ((default-directory (doom-modeline-project-root))
(s (shell-command-to-string doom-modeline-env-command))) (s (shell-command-to-string doom-modeline-env-command)))
(setq doom-modeline-env-version (if (string-match "[ \t\n\r]+\\'" s) (setq doom-modeline-env-version (if (string-match "[ \t\n\r]+\\'" s)
(replace-match "" t t s) (replace-match "" t t s)
@ -567,7 +567,7 @@ fish-shell style.
Example: Example:
~/Projects/FOSS/emacs/lisp/comint.el => ~/P/F/emacs/lisp/comint.el" ~/Projects/FOSS/emacs/lisp/comint.el => ~/P/F/emacs/lisp/comint.el"
(let* ((project-root (or (doom-modeline-project-root) "")) (let* ((project-root (doom-modeline-project-root))
(file-name-split (shrink-path-file-mixed project-root (file-name-split (shrink-path-file-mixed project-root
(or (file-name-directory file-path) "./") (or (file-name-directory file-path) "./")
file-path)) file-path))