¿Puedo obtener la finalización del modo ido-modo para buscar etiquetas en Emacs?

Question

¿Es posible usar la función ido-mode para encontrar definiciones en un archivo TAGS? Sospecho que ido-completar-leer es parte de la respuesta. Aquí está mi código que no trabaja, que muestra un modo de minibuffer-IDO despoblado:

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

Answer 1

tipo de ineficiente, pero ¿qué tal:

(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

Por supuesto que es posible, esto es Emacs. ¿Qué hace el código no funcional que le dice que no está funcionando?

Mi primera sospecha es que podría funcionar mejor si usaste tags-apropos (mira sobre la línea 1885 en etags.el), ya que etags-tags-apropos no está definido y todo.

Answer 3

encontrar definiciones que uso de comandos de CEDET semántico-ia-rápido-salto, que, junto con generar GTAGS de GNU Mundial da la navegación adecuada y rápida a través de archivos de origen.

Answer 4

Véase también, como alternativa: http://www.emacswiki.org/emacs/Icicles_-_Emacs_Tags_Enhancements

Answer 5

Una expansión de la solución 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)))) 

Esto pone el tag tag-a-punto en la cabeza de la lista. Supongo que podría ordenar de forma secundaria por buffer-file-name si dos etiquetas coinciden, pero eso no siempre es lo que desea. Puede ser más rápido usar https://github.com/magnars/s.el#s-ends-with-suffix-s-optional-ignore-case que cadena de coincidencias para tablas de etiquetas realmente grandes.