Improvements to autocompletion with eglot.

Add a function to toggle autocompletion and improve the
competion-at-point-functions when eglot is rinning using cape-capf-super.

configs/init-ai.el

@@ -41,5 +41,12 @@
         )
   )
 
+(use-package copilot
+  :bind (("M-<return>" . copilot-complete)
+         :map copilot-completion-map
+         ("C-g" . 'copilot-clear-overlay)
+         ("C-<return>" . 'copilot-accept-completion)
+         ("C-<tab>" . 'copilot-accept-completion-by-word)))
+
 (provide 'init-ai)
 ;;; init-ai.el ends here

configs/init-completion.el

@@ -66,20 +66,30 @@
      ))
   )
 
-
 ;; Set de funciones de para las sugerencias de corfu.
 (use-package cape
   :ensure (:host github :repo "minad/cape")
   :after corfu
+  :hook (eglot-managed-mode . (lambda()
+                                (setq completion-at-point-functions
+                                      (list (cape-capf-super
+                                             #'eglot-completion-at-point
+                                             #'cape-abbrev
+                                             #'cape-dabbrev
+                                             #'cape-history
+                                             #'cape-dict
+                                             #'cape-file
+                                             #'cape-keyword)))))
   :bind (("C-c c f" . cape-file)
          ("C-c c l" . cape-line))
   :init
   (setq text-mode-ispell-word-completion nil)
   ;; (add-to-list 'completion-at-point-functions #'cape-line)     ;; Completar línea actual en función de lo que dice otras líneas de buffer.
   ;; (add-to-list 'completion-at-point-functions #'cape-tex)      ;; Completar Latex (caracteres unicode).
-  (add-to-list 'completion-at-point-functions #'cape-dict)     ;; Completar desde un diccionario (por defecto toma el de linux que está en /usr/share/dict/words).
   (add-to-list 'completion-at-point-functions #'cape-dabbrev)  ;; Completar desde otras la palabras del buffer.
   (add-to-list 'completion-at-point-functions #'cape-abbrev)   ;; Completar desde una abreviaciónes configuradas con add-global-abbrev (añadir abreviación global) o add-mode-abbrev (abreviación para el modo actual).
+  (add-to-list 'completion-at-point-functions #'cape-history)  ;; Completar desde el historial de altocompletado
+  (add-to-list 'completion-at-point-functions #'cape-dict)     ;; Completar desde un diccionario (por defecto toma el de linux que está en /usr/share/dict/words).
   (add-to-list 'completion-at-point-functions #'cape-file)     ;; Completar rutas de archivos.
   (add-to-list 'completion-at-point-functions #'cape-keyword)  ;; Completar desde keyword del lenguaje.
 

configs/init-functions.el

@@ -151,5 +151,13 @@ If PROJECT is not specified, assume current project root."
                      (apply #'< (mapcar (lambda (range) (- (cdr range) (car range)))
                                         (list l1 l2)))))))))
 
+(defun corfu-auto-toggle()
+  "Toggle corfu autocomplete."
+  (interactive)
+  (global-corfu-mode 0)
+  (setq corfu-auto (not corfu-auto))
+  (global-corfu-mode 1)
+  )
+
 (provide 'init-functions)
 ;;; init-functions.el ends here.

configs/init-lsp.el

@@ -88,7 +88,7 @@
   :hook (prog-mode . (lambda ()
                        (unless (derived-mode-p 'makefile-mode)
                          (flymake-mode))))
-  :config
+  :init
   (remove-hook 'flymake-diagnostic-functions 'flymake-proc-legacy-flymake)
   )
 

configs/init-utils.el

@@ -185,10 +185,11 @@
         ("w" global-display-fill-column-indicator-mode "fill column indicator" :toggle t)
         ("t" global-hl-todo-mode "todo" :toggle t))
        "Program"
-       (("f" flymake-mode "flymake" :toggle t)
-        ("c" flyspell-mode "spell check" :toggle t)
+       (("F" flymake-mode "flymake" :toggle t)
+        ("f" flyspell-mode "spell check" :toggle t)
         ("u" subword-mode "subword" :toggle t)
         ("v" global-diff-hl-mode "gutter" :toggle t)
+        ("c" global-copilot-mode "copilot" :toggle t)
         ("V" diff-hl-flydiff-mode "live gutter" :toggle t)
         ("M" diff-hl-margin-mode "margin gutter" :toggle t)
         ("D" diff-hl-dired-mode "dired gutter" :toggle t))