doom-modeline: minor refactor

This commit is contained in:
Henrik Lissner 2017-09-12 14:53:40 +02:00
parent be0e23686b
commit f6f335ee14
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -255,9 +255,9 @@ If TRUNCATE-TAIL is t also truncate the parent directory of the file."
(basename (cdr dirs)) (basename (cdr dirs))
(dir-faces (or modified-faces (if active 'doom-modeline-project-root-dir))) (dir-faces (or modified-faces (if active 'doom-modeline-project-root-dir)))
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file)))) (file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
(concat (propertize dirname (concat (propertize (concat dirname
'face (if dir-faces `(:inherit ,dir-faces))) (if truncate-tail (substring basename 0 1) basename)
(propertize (concat (if truncate-tail (substring basename 0 1) basename) "/") "/")
'face (if dir-faces `(:inherit ,dir-faces))) 'face (if dir-faces `(:inherit ,dir-faces)))
(propertize (file-name-nondirectory buffer-file-name) (propertize (file-name-nondirectory buffer-file-name)
'face (if file-faces `(:inherit ,file-faces))))))))) 'face (if file-faces `(:inherit ,file-faces)))))))))