emacs-diffs
[Top][All Lists]
Advanced

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

master 431f8ff1e38: * lisp/imenu.el: Support more values for imenu-flatt


From: Juri Linkov
Subject: master 431f8ff1e38: * lisp/imenu.el: Support more values for imenu-flatten (bug#70846)
Date: Mon, 13 May 2024 02:59:30 -0400 (EDT)

branch: master
commit 431f8ff1e38ca4367637c6b9fbc25d13d6f760a7
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/imenu.el: Support more values for imenu-flatten (bug#70846)
    
    (imenu-flatten): Change type boolean to choice
    of more values for prefix/suffix section names.
    (imenu--completion-buffer): Add :annotation-function if
    'imenu-flatten' is 'annotation'.
    (imenu--flatten-index-alist): Put property 'imenu-section' if
    'imenu-flatten' is 'annotation'.
---
 lisp/imenu.el | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 9c0c1ae144e..93a544ff550 100644
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -147,10 +147,16 @@ Used for flattening nested indexes with name 
concatenation."
 
 (defcustom imenu-flatten nil
   "Whether to flatten the list of sections in an imenu or show it nested.
-If non-nil, popup the completion buffer with a flattened menu.
+If nil, use nested indexes.
+If t, popup the completion buffer with a flattened menu.
+If `annotation', use completion annotation as a suffix
+to append section names after the index names.
+
 The string from `imenu-level-separator' is used to separate names of
 nested levels while flattening nested indexes with name concatenation."
-  :type 'boolean
+  :type '(choice (const :tag "Nested" nil)
+                 (const :tag "By prefix" t)
+                 (const :tag "By suffix" annotation))
   :version "30.1")
 
 (defcustom imenu-generic-skip-comments-and-strings t
@@ -743,7 +749,12 @@ Return one of the entries in index-alist or nil."
     ;; Display the completion buffer.
     (minibuffer-with-setup-hook
         (lambda ()
-          (setq-local completion-extra-properties '(:category imenu))
+          (setq-local completion-extra-properties
+                      `( :category imenu
+                         ,@(when (eq imenu-flatten 'annotation)
+                             `(:annotation-function
+                               ,(lambda (s) (get-text-property
+                                             0 'imenu-section s))))))
           (unless imenu-eager-completion-buffer
             (minibuffer-completion-help)))
       (setq name (completing-read prompt
@@ -787,7 +798,11 @@ Returns t for rescan and otherwise an element or 
subelement of INDEX-ALIST."
                               name))))
        (cond
        ((not (imenu--subalist-p item))
-        (list (cons new-prefix pos)))
+        (list (cons (if (and (eq imenu-flatten 'annotation) prefix)
+                        (propertize name 'imenu-section
+                                    (format " (%s)" prefix))
+                      new-prefix)
+                    pos)))
        (t
         (imenu--flatten-index-alist pos concat-names new-prefix)))))
    index-alist))



reply via email to

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