From 37d92510afbaea8609e8aa3612c6e9d27edba12d Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Thu, 2 Jul 2026 00:00:41 -0400 Subject: feat(modeline): mode icons, status segments, and a repair command I rebuilt the custom modeline as pure segment helpers with thin :eval wiring: - The nerd-icons mode icon replaces the mode-name text (cached per buffer, plain name on terminal frames), with the full mode name in the help-echo. - New left-side segments: modified dot / read-only lock (file buffers only), remote @host tag, Narrow tag that widens on click, point-based percentage, region selection info, and a MACRO tag while a keyboard macro records. - New right-side segments: mode-line-process (eat and compilation state was invisible) and flycheck per-severity counts with click-through to the error list, replacing the stock status text. Glyphs are nerd-icons private-use codepoints so emojify can't rewrite them, with text fallbacks when icons are unavailable. - cj/modeline-reset kills a hijacked buffer-local mode-line-format (two-column mode, ediff, calc). - Optional taller bar via cj/modeline-height-factor, a display height property on the padding space so the theme's mode-line faces stay untouched. - Housekeeping: the dead user-constants require and stale commentary are gone, cj/modeline-vc-faces left the risky-local-variable list, and the cache-key defun is cj/--modeline-vc-cache-key so it no longer shadows the same-named defvar. Percent signs from :eval strings go through the mode-line %-construct pass, so the position segment emits %% for a literal percent. --- tests/test-modeline-config-flycheck-segment.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/test-modeline-config-flycheck-segment.el') diff --git a/tests/test-modeline-config-flycheck-segment.el b/tests/test-modeline-config-flycheck-segment.el index 2ae2f5de..ed4d0601 100644 --- a/tests/test-modeline-config-flycheck-segment.el +++ b/tests/test-modeline-config-flycheck-segment.el @@ -2,7 +2,7 @@ ;;; Commentary: ;; Smoke test that the custom modeline's `mode-line-format' includes -;; a guarded reference to `flycheck-mode-line-status-text', and that +;; a guarded reference to `cj/--modeline-flycheck-status', and that ;; the guard requires both `mode-line-window-selected-p' and ;; `bound-and-true-p flycheck-mode'. See ;; docs/specs/flycheck-modeline-customization-spec-implemented.org for the design. @@ -16,9 +16,9 @@ (require 'modeline-config) (ert-deftest test-modeline-config-flycheck-segment-present () - "`mode-line-format' contains an :eval form invoking flycheck-mode-line-status-text." + "`mode-line-format' contains an :eval form invoking cj/--modeline-flycheck-status." (let ((printed (format "%S" (default-value 'mode-line-format)))) - (should (string-match-p "flycheck-mode-line-status-text" printed)))) + (should (string-match-p "cj/--modeline-flycheck-status" printed)))) (ert-deftest test-modeline-config-flycheck-segment-guarded-by-active-window () "Flycheck segment gates on `mode-line-window-selected-p'." -- cgit v1.2.3