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

General formatting & minor refactors

Browse Source
This commit is contained in:
Henrik Lissner
2018-09-02 17:18:31 +02:00
parent daef19ba64
commit 3a23ff56cd
7 changed files with 22 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/ui/modeline/config.el
View File

@ -249,7 +249,7 @@ Currently available functions:
concat (if (eq idx len) "\"};" "\",\n")))
'xpm t :ascent 'center)))))
(defun +modeline-build-path (&optional path)
(defun +modeline-build-path (path)
"Construct the file path for the `+modeline-buffer-id' segment using
`+mdoeline-buffer-path-function'. If the buffer has no `buffer-file-name', just
use `buffer-name'."
@ -433,9 +433,7 @@ Meant for `+modeline-buffer-path-function'."
:on-hooks (find-file-hook after-save-hook after-revert-hook)
:init (propertize "%b" 'face 'doom-modeline-buffer-file)
:faces t
(if buffer-file-name
(+modeline-build-path (buffer-file-name (buffer-base-buffer)))
(propertize "%b" 'face 'doom-modeline-buffer-file)))
(+modeline-build-path (buffer-file-name (buffer-base-buffer))))
(def-modeline-segment! +modeline-buffer-directory
(let ((face (if (active) 'doom-modeline-buffer-path)))