awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

ui/doom-modeline: fix stringp errors

Browse Source 
Caused by old uses of doom-project-root. See 53fe7a1 for details.
This commit is contained in:
Henrik Lissner
2018-09-29 21:58:09 -04:00
parent fd19698927
commit 6c5512896a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/ui/doom-modeline/config.el
View File

@ -339,7 +339,7 @@ If TRUNCATE-TAIL is t also truncate the parent directory of the file."
(defun +doom-modeline--buffer-file-name-relative (_file-path true-file-path &optional include-project) (defun +doom-modeline--buffer-file-name-relative (_file-path true-file-path &optional include-project)
"Propertized `buffer-file-name' showing directories relative to project's root only." "Propertized `buffer-file-name' showing directories relative to project's root only."
(let ((root (doom-project-root)) (let ((root (or (doom-project-root) default-directory))
(active (active))) (active (active)))
(if (null root) (if (null root)
(propertize "%b" 'face (if active 'doom-modeline-buffer-file)) (propertize "%b" 'face (if active 'doom-modeline-buffer-file))
@ -360,7 +360,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 (doom-project-root)) (let* ((project-root (or (doom-project-root) default-directory))
(file-name-split (shrink-path-file-mixed project-root (file-name-split (shrink-path-file-mixed project-root
(file-name-directory file-path) (file-name-directory file-path)
file-path)) file-path))