Config: fix geiser, install gptel.

lisp/init-completion.el

@@ -7,11 +7,19 @@
 ;; eglot
 (use-package eglot
   :hook ((python-mode . eglot-ensure)
-         (scheme-mode . eglot-ensure))
+         ;; (scheme-mode . eglot-ensure)
+         )
   :config
   (setq eglot-send-changes-idle-time 0.25)
   (add-to-list 'eglot-server-programs
-               '(scheme-mode . ("guile-lsp-server"))))
+               '(scheme-mode . ("guile-lsp-server")))
+
+  (add-hook 'eglot-managed-mode-hook    ;; 在scheme模式禁用eglot补全，保留其他功能
+          (lambda ()
+            (when (derived-mode-p 'scheme-mode)
+              (setq-local completion-at-point-functions
+                          (remq 'eglot-completion-at-point
+                                completion-at-point-functions))))))
 
 ;; corfu
 (use-package corfu
@@ -31,11 +39,10 @@
                              gud-mode
                              vterm-mode)
                         t))
-  :hook ((global-corfu-mode . corfu-popupinfo-mode)
-         (global-corfu-mode . corfu-history-mode))
-
-  :init (global-corfu-mode)
-
+  :init
+  (global-corfu-mode)
+  (corfu-popupinfo-mode)
+  (corfu-history-mode)
   :config
   (add-hook 'after-init-hook #'global-corfu-mode)
   ;;Quit completion before saving
@@ -119,13 +126,13 @@
   (global-treesit-auto-mode)
   (setq treesit-font-lock-level 4))
 
-(use-package geiser)
+(use-package geiser
+  :config
+  (with-eval-after-load 'geiser
+  (setq geiser-default-implementation 'guile)))
 
 (use-package geiser-guile)
 
-(with-eval-after-load 'geiser
-  (setq geiser-default-implementation 'guile))
-
 (provide 'init-completion)
 
 ;;; init-completion.el ends here