Refactor read-only status

1 files changed, 6 insertions, 5 deletions

diff --git a/modally.el b/modally.el
index 13cb17f..734535a 100644
--- a/modally.el
+++ b/modally.el
@@ -40,11 +40,12 @@
 
 (defun modally--read-only-status ()
   "Return a string to display read-only status."
-  (format "%s %s"
-          (if buffer-read-only
-              (propertize " RO" 'face (if (mode-line-window-selected-p)
-                                          'warning))
-            " RW")
+  (format " %s %s"
+          (propertize
+           (if buffer-read-only "RO" "RW")
+           'face (when (and (mode-line-window-selected-p)
+                            buffer-read-only)
+                   'modally-buffer-readonly))
           (modally--separator)))
 
 (defun modally--buffer-name ()