diff options
Diffstat (limited to '.config/emacs/modules/bd--modeline.el')
| -rw-r--r-- | .config/emacs/modules/bd--modeline.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el index 382944e..15b470f 100644 --- a/.config/emacs/modules/bd--modeline.el +++ b/.config/emacs/modules/bd--modeline.el @@ -21,11 +21,11 @@ (defface bd/underline-shadow `((t :inherit shadow - :underline t)) + :bold t)) "Shadow with an underline.") (defvar-local bd/buffer-identification-mode-line - '(:eval (format "%s " (propertize (buffer-name) 'face 'bd/underline-shadow))) + '(:eval (format "%s" (propertize (buffer-name) 'face 'bd/underline-shadow))) "Formats the modeline-buffer-name.") ;;;; pos @@ -42,16 +42,14 @@ (mapconcat 'concat (cdr (split-string vc-mode "[:-]")) "-")) (defvar-local bd/vc-mode-line - '(:eval (when (and vc-mode (not (eq major-mode 'magit-status-mode))) ; fix to avoid bug which occurs in magit buffer (don't remember) + '(:eval (when (and vc-mode (not (eq major-mode 'magit-status-mode))) (format " %s " (propertize (git-vc-modeline) 'face 'shadow)))) "Formats the checked out git repository.") -(dolist (construct '(bd/time-mode-line - bd/buffer-identification-mode-line - bd/vc-mode-line - bd/line-position)) +(dolist (construct '(bd/buffer-identification-mode-line + bd/vc-mode-line)) (put construct 'risky-local-variable t)) @@ -59,9 +57,11 @@ (list mode-line-front-space bd/buffer-identification-mode-line + " -- " mode-line-modes - mode-line-modified - bd/vc-mode-line + " -- " + bd/vc-mode-line + " -- " bd/line-position)) |