Estoy trabajando en la implementación de autocompletado en emacs para el lenguaje de programación haxe.¿Cómo se muestran las opciones de autocompletar en emacs?
Ya descubrí cómo obtener la lista de autocomplementos que deseo presentar. La lista está en formato:
'((name1 type1 desc1)
(name2 type2 desc2) ...
Quiero mostrar a la lista de usuario que contiene texto en formato "tipo1 nombre1" después de la posición del cursor (como en la función Autocompletar-mode) y la descripción para el elemento seleccionado en ese momento en el minibúfer. El usuario debería poder seleccionar completar o renunciar como en el modo de autocompletar.
Cuando el usuario selecciona algo, el nombre1 debe insertarse en la posición del cursor.
¿Cuál es la mejor/más fácil manera de hacer esto? ¿Hay alguna forma estándar de emacs para hacer esto, o debería codificar algo por mi cuenta?
EDITAR: Tengo funciones para obtener la lista de candidatos de autocompletar en función del búfer. Ahora estoy luchando por cómo integrar eso al modo autocompletar. Como get-completa es una operación pesada, me gustaría dispararlo solo si el cursor está en "." personaje.
Aquí está el código que tengo.
(defun get-completes-from-haxe (hxml-file file pos)
(let* ((completion-buffer (get-buffer-create "*haxe-completions*"))
(cmd (concat "cd " (file-name-directory hxml-file) "; haxe " hxml-file " --display " file "@" (number-to-string pos))))
(ignore-errors
(shell-command cmd completion-buffer)
(let ((clist (xml-parse-region 1 (buffer-size completion-buffer) completion-buffer))
(completes nil))
(dolist (s (cddar clist))
(when (listp s)
(let* ((item (cdr s))
(name (cdaar item))
(type (car (cddadr item)))
(desc (cdddr item)))
(setf completes (cons name completes)))))
completes))))
(defun file-find-upwards (buffer file-name)
;; Chase links in the source file and search in the dir where it points.
(setq dir-name (or (and (buffer-file-name buffer)
(file-name-directory (file-chase-links
(buffer-file-name buffer))))
default-directory))
;; Chase links before visiting the file. This makes it easier to
;; use a single file for several related directories.
(setq dir-name (file-chase-links dir-name))
(setq dir-name (expand-file-name dir-name))
;; Move up in the dir hierarchy till we find a change log file.
(let ((file1 (concat dir-name file-name))
parent-dir)
(while (and (not (file-exists-p file1))
(progn (setq parent-dir
(file-name-directory
(directory-file-name
(file-name-directory file1))))
;; Give up if we are already at the root dir.
(not (string= (file-name-directory file1)
parent-dir))))
;; Move up to the parent dir and try again.
(setq file1 (expand-file-name file-name parent-dir)))
;; If we found the file in a parent dir, use that. Otherwise,
;; return nil
(if (or (get-file-buffer file1) (file-exists-p file1))
file1
nil)))
(defun get-candidate-list (buffer pos)
(get-completes-from-haxe
(file-find-upwards buffer "compile.hxml")
(buffer-file-name buffer)
pos))
Vi eso, pero no pude encontrar la manera de mostrar información sobre herramientas y documentos con él. Todo lo que ofrece es como autocompletar, que no es lo que quiero. – Marko
Parece que en el modo automplete, la función ac-select-candidate se usa para mostrar la selección actual de candidatos, puede definir un consejo para esa función para mostrar el desc en minibúfer – user49117