From b11f89e650195f8e33b8387051fe1270c8e5b3dc Mon Sep 17 00:00:00 2001
From: bth <git@bth.moi>
Date: Tue, 9 Jun 2026 15:04:32 -0700
Subject: [PATCH] break apart minmo-narrow-notifier and minmo-linecol-total

---
 minmo.el | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

diff --git a/minmo.el b/minmo.el
index 95c8bbd..a974591 100644
--- a/minmo.el
+++ b/minmo.el
@@ -413,7 +413,7 @@ Optional FORCE means ignore the minmo--git-directory-table."
     ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; line column
+;;; line column narrow
 
 (defcustom minmo-line-column-format "%l:%c" "format for line number and column."
   :type '(string)
@@ -423,14 +423,14 @@ Optional FORCE means ignore the minmo--git-directory-table."
   :type '(string)
   :group  'minmo)
 
-;; line count can be expensive for large files, when run continuously. cache it.
-(defvar-local minmo--total-lines-cache nil
-  "Cached total line count for the current buffer.")
-
 (defcustom minmo-narrow-face 'warning "face for narrow notifier."
   :type '(symbol)
   :group  'minmo)
 
+;; line count can be expensive for large files, when run continuously. cache it.
+(defvar-local minmo--total-lines-cache nil
+  "Cached total line count for the current buffer.")
+
 (defun minmo--cache-total-lines ()
   "Refresh the total line count cache."
   ;; 'line-number-at-pos' is C-level:
@@ -440,17 +440,22 @@ Optional FORCE means ignore the minmo--git-directory-table."
 (add-hook 'after-save-hook #'minmo--cache-total-lines)
 (add-hook 'after-revert-hook #'minmo--cache-total-lines)
 
+(defun minmo-linecol-total ()
+  (when minmo--total-lines-cache
+    (concat minmo-line-column-format
+            minmo-line-column-suffix
+            (number-to-string minmo--total-lines-cache))))
+
+(defun minmo-narrow-notifier ()
+  (if (buffer-narrowed-p)
+      (propertize "narrow" 'face minmo-narrow-face)
+    nil))
+
 ;; because when narrow is on, line count is meaningless:
 (defun minmo-narrow-or-linecol-total ()
   (when buffer-file-name
-    (if (buffer-narrowed-p)
-        (propertize "%n" 'face minmo-narrow-face)
-      ;; consult preview won't have filled out minmo--total-lines-cache:
-      (when minmo--total-lines-cache
-        (concat minmo-line-column-format
-                minmo-line-column-suffix
-                (number-to-string minmo--total-lines-cache)))
-      )))
+    (or (minmo-narrow-notifier)
+        (minmo-linecol-total))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; minor-modes