From 7fd88a804b98ae1af6ef743e95c0beea83028d9f Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 2 Sep 2021 23:51:52 -0500
Subject: Change modified indicator in special modes

---
 lisp/acdw-modeline.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el
index 6a11418..44bb889 100644
--- a/lisp/acdw-modeline.el
+++ b/lisp/acdw-modeline.el
@@ -86,7 +86,14 @@ indicator in the mode-line."
       (let* ((read-only (and buffer-read-only (buffer-file-name)))
              (modified (buffer-modified-p)))
         (propertize
-         (if read-only " =" (if modified " +" " -"))
+         (concat " "
+                 (cond
+                  ((derived-mode-p 'special-mode
+                                   'lui-mode)
+                   "~")
+                  (read-only "=")
+                  (modified "+")
+                  (t "-")))
          'help-echo (format
                      (concat "Buffer is %s and %smodified\n"
                              "mouse-1: Toggle read-only status.")
-- 
cgit 1.4.1-21-gabe81