From 007c2ec4f8fa990090dcf8e95dd8e01954df37da Mon Sep 17 00:00:00 2001 From: bd Date: Fri, 29 Nov 2024 19:15:55 -0500 Subject: Use built-in battery display --- .config/emacs/modules/bd--modeline.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to '.config/emacs/modules/bd--modeline.el') 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)) -- cgit v1.2.3