Propertize read-only status

1 files changed, 4 insertions, 2 deletions

diff --git a/modally.el b/modally.el
index 084c5c4..13cb17f 100644
--- a/modally.el
+++ b/modally.el
@@ -41,7 +41,10 @@
 (defun modally--read-only-status ()
   "Return a string to display read-only status."
   (format "%s %s"
-          (if buffer-read-only " RO" " RW")
+          (if buffer-read-only
+              (propertize " RO" 'face (if (mode-line-window-selected-p)
+                                          'warning))
+            " RW")
           (modally--separator)))
 
 (defun modally--buffer-name ()
@@ -49,7 +52,6 @@
   (let* ((buffer-face (cond
                         ((not (mode-line-window-selected-p)) 'mode-line-inactive)
                         ((buffer-modified-p) 'modally-buffer-modified)
-                        (buffer-read-only 'modally-buffer-readonly)
                         ('modally-buffer)))
          (buffer-name
           (if buffer-file-name