From 68dc510a1c1e4407327ae1a1c8d648e232a5221d Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 9 Aug 2018 12:58:26 +0200 Subject: [PATCH] Refactor +modeline-file-path Remove unused letvars and face management. --- modules/ui/modeline/config.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/modules/ui/modeline/config.el b/modules/ui/modeline/config.el index 243d038b6..ddc4c4fb9 100644 --- a/modules/ui/modeline/config.el +++ b/modules/ui/modeline/config.el @@ -237,16 +237,14 @@ buffers.") (directory-name-p buffer-file-name)) (propertize (abbreviate-file-name (or buffer-file-name default-directory)) 'face 'doom-modeline-buffer-path)) - ((let* ((modified-faces (if (buffer-modified-p) 'doom-modeline-buffer-modified)) - (true-filename (file-truename buffer-file-name)) + ((let* ((true-filename (file-truename buffer-file-name)) (relative-dirs (file-relative-name (file-name-directory true-filename) - (concat root "../"))) - (relative-faces (or modified-faces 'doom-modeline-buffer-path)) - (file-faces (or modified-faces 'doom-modeline-buffer-file))) + (concat root "../")))) (if (equal "./" relative-dirs) (setq relative-dirs "")) - (concat (propertize relative-dirs 'face (if relative-faces `(:inherit ,relative-faces))) + (concat (propertize relative-dirs + 'face 'doom-modeline-buffer-path) (propertize (file-name-nondirectory true-filename) - 'face (if file-faces `(:inherit ,file-faces))))))))) + 'face 'doom-modeline-buffer-file))))))) ;; TODO Add shrink-path alternatives