[elpa] externals/nano-modeline acd020a045 10/18: Added imenu-list mode

[ELPA Syncer]

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

    Added imenu-list mode
---
 nano-modeline.el | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/nano-modeline.el b/nano-modeline.el
index 184f5ccbbb..cb383c17bc 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -211,6 +211,10 @@ This is useful (aesthetically) if the face of prefix uses 
a different background
 
 (defcustom nano-modeline-mode-formats
   '(;; with :mode-p first
+
+    (imenu-list-mode        :mode nano-modeline-imenu-list-mode-p
+                            :format nano-modeline-imenu-list-mode
+                            :icon "") ;; nerd-font / oct-three-bars
     (prog-mode              :mode-p nano-modeline-prog-mode-p
                             :format nano-modeline-prog-mode
                             :icon "") ;; nerd-font / oct-file-code
@@ -966,6 +970,23 @@ depending on the version of mu4e."
                             ""
                             position)))
 
+;; ---------------------------------------------------------------------
+(defun nano-modeline-imenu-list-mode-p ()
+  (message "imenu mode: %s"   (derived-mode-p 'imenu-list-major-mode))
+  (derived-mode-p 'imenu-list-major-mode))
+
+(defun nano-modeline-imenu-list-mode (&optional icon)
+  (let ((icon (or icon
+                  (plist-get (cdr (assoc 'text-mode 
nano-imenu-list-mode-formats)) :icon)))
+        ;; We take into account the case of narrowed buffers
+        (buffer-name (buffer-name imenu-list--displayed-buffer)
+        (branch      (nano-modeline-vc-branch))
+        (position    (format-mode-line "%l:%c")))
+    (nano-modeline-render icon
+                          buffer-name
+                          "(imenu list)"
+                          ""))))
+
 ;; ---------------------------------------------------------------------
 (with-eval-after-load 'deft
   (defun nano-modeline-deft-print-header ()