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

Add more faces for buffer path.

Browse source 
Fix #99.
This commit is contained in:
Vincent Zhang 2019-01-23 02:50:58 +08:00
parent 19b1bde931
commit 82e7020eec
1 changed files with 39 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
doom-modeline-core.el
View file

@ -148,6 +148,14 @@ The icons may not be showed correctly in terminal and on Windows.")
'((t (:inherit (mode-line-buffer-id bold)))) '((t (:inherit (mode-line-buffer-id bold))))
"Face used for the minor-modes segment in the mode-line.") "Face used for the minor-modes segment in the mode-line.")
(defface doom-modeline-project-parent-dir
'((t (:inherit (font-lock-comment-face bold))))
"Face used for the project parent directory of the mode-line buffer path.")
(defface doom-modeline-project-dir
'((t (:inherit (font-lock-string-face bold))))
"Face used for the project directory of the mode-line buffer path.")
(defface doom-modeline-project-root-dir (defface doom-modeline-project-root-dir
'((t (:inherit (mode-line-emphasis bold)))) '((t (:inherit (mode-line-emphasis bold))))
"Face used for the project part of the mode-line buffer path.") "Face used for the project part of the mode-line buffer path.")
@ -571,14 +579,10 @@ Example:
(let ((project-root (doom-modeline-project-root)) (let ((project-root (doom-modeline-project-root))
(active (doom-modeline--active)) (active (doom-modeline--active))
(modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified))) (modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)))
(let ((sp-faces (or modified-faces (if active 'font-lock-comment-face))) (let ((sp-faces (or modified-faces (if active 'doom-modeline-project-parent-dir)))
(project-faces (or modified-faces (if active 'font-lock-string-face))) (project-faces (or modified-faces (if active 'doom-modeline-project-dir)))
(relative-faces (or modified-faces (if active 'doom-modeline-buffer-path))) (relative-faces (or modified-faces (if active 'doom-modeline-buffer-path)))
(file-faces (or modified-faces (if active 'doom-modeline-buffer-file)))) (file-faces (or modified-faces (if active 'doom-modeline-buffer-file))))
(let ((sp-props `(,@(if sp-faces `(:inherit ,sp-faces)) ,@(if active '(:weight bold))))
(project-props `(,@(if project-faces `(:inherit ,project-faces)) ,@(if active '(:weight bold))))
(relative-props `(,@(if relative-faces `(:inherit ,relative-faces))))
(file-props `(,@(if file-faces `(:inherit ,file-faces)))))
(concat (concat
;; project root parent ;; project root parent
(unless hide-project-root-parent (unless hide-project-root-parent
@ -590,11 +594,11 @@ Example:
(not (string= root-path-parent "/"))) (not (string= root-path-parent "/")))
(shrink-path--dirs-internal root-path-parent t) (shrink-path--dirs-internal root-path-parent t)
(abbreviate-file-name root-path-parent)) (abbreviate-file-name root-path-parent))
'face sp-props))) 'face sp-faces)))
;; project ;; project
(propertize (propertize
(concat (file-name-nondirectory (directory-file-name project-root)) "/") (concat (file-name-nondirectory (directory-file-name project-root)) "/")
'face project-props) 'face project-faces)
;; relative path ;; relative path
(propertize (propertize
(when-let (relative-path (file-relative-name (when-let (relative-path (file-relative-name
@ -605,9 +609,9 @@ Example:
(if truncate-project-relative-path (if truncate-project-relative-path
(substring (shrink-path--dirs-internal relative-path t) 1) (substring (shrink-path--dirs-internal relative-path t) 1)
relative-path))) relative-path)))
'face relative-props) 'face relative-faces)
;; file name ;; file name
(propertize (file-name-nondirectory file-path) 'face file-props)))))) (propertize (file-name-nondirectory file-path) 'face file-faces)))))
(provide 'doom-modeline-core) (provide 'doom-modeline-core)