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

Fix incorrect colors of slash.

Browse source
This commit is contained in:
Vincent Zhang 2018-11-20 22:28:28 +08:00
parent 345959763b
commit 51ca9570a6
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
doom-modeline.el
View file

@ -559,11 +559,13 @@ Example:
(let ((project-props `(,@(if project-faces `(:inherit ,project-faces)) ,@(if active '(:weight bold)))) (let ((project-props `(,@(if project-faces `(:inherit ,project-faces)) ,@(if active '(:weight bold))))
(relative-props `(,@(if relative-faces `(:inherit ,relative-faces)))) (relative-props `(,@(if relative-faces `(:inherit ,relative-faces))))
(file-props `(,@(if file-faces `(:inherit ,file-faces))))) (file-props `(,@(if file-faces `(:inherit ,file-faces)))))
(concat (propertize (file-name-nondirectory (directory-file-name project-root)) (concat (propertize (concat
(file-name-nondirectory (directory-file-name project-root))
"/")
'face project-props) 'face project-props)
(propertize (if (string-equal relative-path "./") (propertize (if (string-equal relative-path "./")
"/" ""
(shrink-path--dirs-internal relative-path t)) (substring (shrink-path--dirs-internal relative-path t) 1))
'face relative-props) 'face relative-props)
(propertize (file-name-nondirectory file-path) 'face file-props))))))) (propertize (file-name-nondirectory file-path) 'face file-props)))))))