Show narrowed status in mode-line

2 files changed, 15 insertions, 0 deletions

@@ -1232,6 +1232,7 @@ if ripgrep is installed, otherwise `consult-grep'."
                                acdw-modeline/god-mode-indicator
                                acdw-modeline/winum
                                acdw-modeline/minions
+                               acdw-modeline/narrowed
                                simple-modeline-segment-major-mode)))
   (simple-modeline-mode +1))
 
@@ -80,6 +80,20 @@ indicator in the mode-line."
                               (minions-minor-modes-menu)))))
     'mouse-face 'mode-line-highlight)))
 
+(defun acdw-modeline/narrowed ()
+  "Display an indication if the buffer is narrowed."
+  (when (buffer-narrowed-p)
+    (concat
+     ""
+     (propertize
+      "N"
+      'help-echo (format "%s\n%s"
+                         "Buffer is narrowed"
+                         "mouse-2: widen buffer.")
+      'local-map (purecopy (simple-modeline-make-mouse-map
+                            'mouse-2 #'mode-line-widen))
+      'mouse-face 'mode-line-highlight))))
+
 (defun acdw-modeline/text-scale ()
   ;; adapted from https://github.com/seagle0128/doom-modeline
   (when (and (boundp 'text-scale-mode-amount)