1 files changed, 14 insertions, 0 deletions

@@ -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)