branch: externals/nano-modeline
commit a4e72d1486307879b10cf6fd78a895ad7fdbcc38
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Added handling of indirect buffer
---
nano-modeline.el | 17 ++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index cb383c17bc..31f7580687 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -1022,7 +1022,22 @@ depending on the version of mu4e."
(plist-get (cdr (assoc 'text-mode nano-modeline-mode-formats)) :icon)))
(defun nano-modeline-default-mode (&optional icon)
- (let ((buffer-name (format-mode-line "%b"))
+ (let ((icon (or icon
+ (plist-get (cdr (assoc 'text-mode
nano-modeline-mode-formats)) :icon)))
+ ;; We take into account the case of narrowed buffers
+ (buffer-name (cond
+ ((and (derived-mode-p 'org-mode)
+ (buffer-narrowed-p)
+ (buffer-base-buffer))
+ (format"%s [%s]" (buffer-base-buffer)
+ (substring-no-properties (or (org-get-heading
'no-tags)
+ "-"))))
+ ((and (buffer-narrowed-p)
+ (buffer-base-buffer))
+ (format"%s [narrow]" (buffer-base-buffer)))
+ (t
+ (format-mode-line "%b"))))
+
(mode-name (nano-modeline-mode-name))
(branch (nano-modeline-vc-branch))
(position (format-mode-line "%l:%c")))
