Puis-je obtenir l'achèvement du style ido-mode pour la recherche de tags dans Emacs?

Question

Est-il possible d'utiliser l'achèvement du mode ido pour trouver des définitions dans un fichier TAGS? Je soupçonne que ido-completion-read fait partie de la réponse. Voici mon code non-travail, qui montre un ido mode dépeuplé minibuffer:

(defun ido-choose-from-tags() 
    "Use ido to select tags " 
    (interactive) 
    (etags-tags-apropos 
    (ido-completing-read "Tags: " nil t))) 

Answer 1

Type d'inefficacité, mais que diriez-vous:

(defun my-ido-find-tag() 
    "Find a tag using ido" 
    (interactive) 
    (tags-completion-table) 
    (let (tag-names) 
    (mapc (lambda (x) 
      (unless (integerp x) 
       (push (prin1-to-string x t) tag-names))) 
      tags-completion-table) 
    (find-tag (ido-completing-read "Tag: " tag-names)))) 

Answer 2

Bien sûr, il est possible, cela est emacs. Que fait le code non fonctionnel qui vous dit que ça ne fonctionne pas?

Mon premier soupçon est que cela pourrait fonctionner mieux si vous avez utilisé tags-apropos (voir à propos de la ligne 1885 dans etags.el), vu que etags-tags-apropos n'est pas défini et tous.

Answer 3

Pour trouver des définitions i utiliser la commande CEDET sémantique-ia-rapide saut, qui, avec gtags de GNU mondial donne la navigation correcte et rapide grâce à des fichiers source.

Answer 4

Voir aussi, comme alternative: http://www.emacswiki.org/emacs/Icicles_-_Emacs_Tags_Enhancements

Answer 5

Une expansion de la solution de scottfrazer:

(defun my-ido-find-tag() 
    "Find a tag using ido" 
    (interactive) 
    (tags-completion-table) 
    (let* ((initial-input 
      (funcall (or find-tag-default-function 
         (get major-mode 'find-tag-default-function) 
         'find-tag-default))) 
     (initial-input-regex (concat "\\(^\\|::\\)" initial-input "$"))) 
    (find-tag (ido-completing-read 
       "Tag: " 
       (sort 
       (remove nil 
         (mapcar (lambda (tag) (unless (integerp tag) 
               (prin1-to-string tag 'noescape))) 
           tags-completion-table)) 
       ;; put those matching initial-input first: 
       (lambda (a b) (string-match initial-input-regex a))) 
       nil 
       'require-match 
       initial-input)))) 

Cela met à la tête de la liste de tags-à-point tags correspondants. Je suppose que vous pourriez trier secondairement par buffer-file-name si deux balises correspondent, mais ce n'est pas toujours ce que vous voulez. Peut être plus rapide à utiliser https://github.com/magnars/s.el#s-ends-with-suffix-s-optional-ignore-case que la chaîne de correspondance pour les tables de tags vraiment énormes.