.

chicken/chicken.nix

@@ -2,6 +2,8 @@
 
 {
   config.home.packages = with pkgs.chickenPackages_5.chickenEggs; [
+    apropos
+    chicken-doc
     chicken-update
     csm
     edn
@@ -9,6 +11,8 @@
     mistie
     nanomsg
     r7rs
+    srfi-1
+    srfi-18
     srfi-197
   ] ++  [ pkgs.chicken ];
 }

emacs/emacs.nix

@@ -46,6 +46,7 @@
       evil-snipe
       forge
       geiser
+      geiser-chicken
       git-gutter
       goto-chg
       guix

emacs/init.el

@@ -603,26 +603,25 @@ Point must be at the beginning of balanced expression (sexp)."
     (kbd "<localleader>ce") #'cider-eval-sexp-at-point))
 
 ;;;;; Chicken Scheme
+(use-package scheme
+  :config
+  (eval-after-load 'eglot
+    '(add-to-list 'eglot-server-programs
+                  '(scheme-mode . ("chicken-lsp-server"))))
+  :hook
+  (scheme-mode . eglot-ensure))
+
 (defun flymake-chicken-init ()
   (add-hook 'flymake-diagnostic-functions
             #'flymake-chicken-backend nil t)
   (flymake-mode))
 
 (use-package geiser
+  :custom
+  (geiser-chicken-match-limit 200)
   :config
   (defalias 'run-geiser 'geiser))
 
-(use-package lsp-scheme
-  :autoload lsp-scheme-chicken
-  :hook
-  (scheme-mode . lsp-scheme)
-  :custom
-  (lsp-scheme-implementation "chicken")
-  :config
-  (progn (add-to-list 'eglot-server-programs
-                      '(scheme-mode . ("chicken-lsp-server"))))
-  (require 'lsp-scheme))
-
 ;; (use-package flymake-chicken
 ;;   :hook
 ;;   ((scheme-mode . flymake-chicken-init)