From a4076c7eaa0fc6d4ff1642c1d60a58ab4cbbfbb4 Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Mon, 19 Dec 2022 23:38:01 -0500 Subject: [PATCH 1/3] Tidy up appearance of anzu and MC segments --- mood-line.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/mood-line.el b/mood-line.el index edfad36..68a6d1b 100644 --- a/mood-line.el +++ b/mood-line.el @@ -235,17 +235,16 @@ "Displays color-coded anzu status information in the mode-line (if available)." (when (and (boundp 'anzu--state) anzu--state) (cond ((eq anzu--state 'replace-query) - (format #("Replace: %d " 0 11 (face mood-line-status-warning)) anzu--cached-count)) + (format #("Replace×%d " 7 10 (face mood-line-status-info)) anzu--cached-count)) (anzu--overflow-p - (format #("%d/%d+ " 0 3 (face mood-line-status-info) 3 6 (face mood-line-status-error)) anzu--current-position anzu--total-matched)) + (format #("%d/%d+ " 0 2 (face mood-line-status-info) 3 6 (face mood-line-status-error)) anzu--current-position anzu--total-matched)) (t - (format #("%d/%d " 0 5 (face mood-line-status-info)) anzu--current-position anzu--total-matched))))) + (format #("%d/%d " 0 2 (face mood-line-status-info)) anzu--current-position anzu--total-matched))))) (defun mood-line-segment-multiple-cursors () "Displays the number of active multiple-cursors in the mode-line (if available)." (when (and (boundp 'multiple-cursors-mode) multiple-cursors-mode) - (concat "MC" - (format #("×%d " 0 3 (face mood-line-status-warning)) (mc/num-cursors))))) + (format #("MC×%d " 2 5 (face mood-line-status-info)) (mc/num-cursors)))) (defun mood-line-segment-position () "Displays the current cursor position in the mode-line." From df40e0e29d40003b5ca055da95aa7bf20c60de9b Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Mon, 19 Dec 2022 23:38:36 -0500 Subject: [PATCH 2/3] Make checkdoc happy --- mood-line.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mood-line.el b/mood-line.el index 68a6d1b..ea6dfd7 100644 --- a/mood-line.el +++ b/mood-line.el @@ -78,12 +78,12 @@ :type 'boolean) (defcustom mood-line-show-encoding-information nil - "If t, the encoding format of the current buffer will be displayed in the mode-line." + "If t, display encoding format of the active buffer in the mode-line." :group 'mood-line :type 'boolean) (defcustom mood-line-show-cursor-point nil - "If t, the value of `point' will be displayed next to the cursor position in the mode-line." + "If t, display value of `point' next to cursor position in the mode-line." :group 'mood-line :type 'boolean) @@ -153,7 +153,7 @@ (mood-line--string-trim-left (mood-line--string-trim-right string))) (defun mood-line--format (left right) - "Return a string of `window-width' length containing LEFT and RIGHT, aligned respectively." + "Return string of `window-width' length with contents LEFT and RIGHT aligned." (let ((reserve (length right))) (concat left " " @@ -288,7 +288,7 @@ mood-line--flycheck-text) (defun mood-line-segment-flymake () - "Displays information about the current status of flymake in the mode-line (if available)." + "Display the current status of flymake in the mode-line (if available)." (when (and (boundp 'flymake-mode) flymake-mode) ;; Depending on Emacs version, flymake stores the mode-line segment using one of two variable names (let ((flymake-segment-format (if (boundp 'flymake-mode-line-format) From 65ae1099e23f762b45fecd60bd43682dbd3965f4 Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Mon, 19 Dec 2022 23:39:02 -0500 Subject: [PATCH 3/3] Enforce normal font weight for status faces --- mood-line.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/mood-line.el b/mood-line.el index ea6dfd7..5e37cf0 100644 --- a/mood-line.el +++ b/mood-line.el @@ -98,27 +98,27 @@ :group 'mood-line) (defface mood-line-status-neutral - '((t (:inherit (shadow)))) + '((t (:inherit (shadow) :weight normal))) "Face used for neutral or inactive status indicators in the mode-line." :group 'mood-line) (defface mood-line-status-info - '((t (:inherit (font-lock-keyword-face)))) + '((t (:inherit (font-lock-keyword-face) :weight normal))) "Face used for generic status indicators in the mode-line." :group 'mood-line) (defface mood-line-status-success - '((t (:inherit (success)))) + '((t (:inherit (success) :weight normal))) "Face used for success status indicators in the mode-line." :group 'mood-line) (defface mood-line-status-warning - '((t (:inherit (warning)))) + '((t (:inherit (warning) :weight normal))) "Face for warning status indicators in the mode-line." :group 'mood-line) (defface mood-line-status-error - '((t (:inherit (error)))) + '((t (:inherit (error) :weight normal))) "Face for error stauts indicators in the mode-line." :group 'mood-line) @@ -128,7 +128,7 @@ :group 'mood-line) (defface mood-line-modified - '((t (:inherit (error)))) + '((t (:inherit (error) :weight normal))) "Face used for the 'modified' indicator symbol in the mode-line." :group 'mood-line)