Kann ich Ido-Mode-Style-Vervollständigung für das Suchen von Tags in Emacs erhalten?

Question

Ist es möglich, Ido-Modus zu verwenden, um Definitionen in einer TAGS-Datei zu finden? Ich vermute, dass Ido-Completing-Read Teil der Antwort ist. Hier ist mein nicht-funktionierenden Code, der einen unbewohnten Ido-Modus Minipuffer zeigt:

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

Answer 1

Art ineffizient, aber wie etwa:

(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

Natürlich ist es möglich, das ist EMACS. Was macht der nicht funktionierende Code, der dir sagt, dass er nicht funktioniert?

Mein erster Verdacht ist, dass es besser funktionieren könnte, wenn Sie tags-apropos verwenden (siehe etwa Zeile 1885 in etags.el), da etags-tags-apropos nicht definiert ist und alle.

Answer 3

Definitionen zu finden i cedet Befehl semantisch-ia-schnell-Sprung, dass zusammen mit gtags von GNU Globale gibt richtige und schnelle Navigation durch Quelldateien verwenden.

Answer 4

Siehe auch als Alternative: http://www.emacswiki.org/emacs/Icicles_-_Emacs_Tags_Enhancements

Answer 5

Eine Erweiterung der Lösung des 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)))) 

Dies bringt Tags timmendes Kennzeichen-at-Punkt an der Spitze der Liste. Ich denke, Sie könnten nach Puffer-Dateiname suchen, wenn zwei Tags übereinstimmen, aber das ist vielleicht nicht immer das, was Sie wollen. Könnte schneller sein als https://github.com/magnars/s.el#s-ends-with-suffix-s-optional-ignore-case als String-Match für wirklich große Tags Tabellen.