diff options
Diffstat (limited to '.config/emacs/modules/bd--modeline.el')
| -rw-r--r-- | .config/emacs/modules/bd--modeline.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el index 15b470f..35c486e 100644 --- a/.config/emacs/modules/bd--modeline.el +++ b/.config/emacs/modules/bd--modeline.el @@ -19,13 +19,13 @@ mode-line-modes)) (global-set-key (kbd "C-c ,") 'minor-mode-blackout-mode) -(defface bd/underline-shadow +(defface bd/bold-shadow `((t :inherit shadow :bold t)) - "Shadow with an underline.") + "Shadow with bold.") (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/bold-shadow))) "Formats the modeline-buffer-name.") ;;;; pos @@ -38,13 +38,10 @@ (cdr mode-line-position)))) ;;;; git -(defun git-vc-modeline () - (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))) - (format " %s " - (propertize (git-vc-modeline) 'face 'shadow)))) + '(:eval (when vc-mode + (format "-- %s" + (propertize (cadr (split-string vc-mode "[:-]")) 'face 'shadow)))) "Formats the checked out git repository.") @@ -59,7 +56,6 @@ bd/buffer-identification-mode-line " -- " mode-line-modes - " -- " bd/vc-mode-line " -- " bd/line-position)) |