emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/nano-modeline a1ba95e 20/25: Updated default mode


From: ELPA Syncer
Subject: [elpa] externals/nano-modeline a1ba95e 20/25: Updated default mode
Date: Thu, 23 Dec 2021 12:57:32 -0500 (EST)

branch: externals/nano-modeline
commit a1ba95ef87b24cc5200f6c2d1bd4a8cdb61aa9fa
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Updated default mode
---
 nano-modeline.el | 20 ++++----------------
 1 file changed, 4 insertions(+), 16 deletions(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index e7f64ce..98a5365 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -695,22 +695,10 @@ depending on the version of mu4e."
           (mode-name   (nano-modeline-mode-name))
           (branch      (nano-modeline-vc-branch))
           (position    (format-mode-line "%l:%c")))
-      (nano-modeline-compose (nano-modeline-status)
-                             buffer-name
-                             (concat "(" mode-name
-                                     (if branch (concat ", "
-                                            (propertize branch 'face 'italic)))
-                                     ")" )
-                             position)))
-
-;; ---------------------------------------------------------------------
-(defun nano-modeline-status ()
-  "Return buffer status: read-only (RO), modified (**) or read-write (RW)"
-  
-  (let ((read-only   buffer-read-only)
-        (modified    (and buffer-file-name (buffer-modified-p))))
-    (cond (modified  "**") (read-only "RO") (t "RW"))))
-  
+      (nano-modeline-render (upcase  mode-name)
+                            buffer-name
+                            (if branch (concat "(" branch ")") "")
+                            position)))
 
 ;; ---------------------------------------------------------------------
 (defun nano-modeline-face-clear (face)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]