lang/scheme: general refactor

To optimize it and conform to new elips conventions introduced with
straight.el integration.

modules/lang/scheme/config.el

@@ -1,21 +1,24 @@
 ;;; lang/scheme/config.el -*- lexical-binding: t; -*-
 
+;;;###package scheme
 (add-hook 'scheme-mode-hook #'rainbow-delimiters-mode)
 
-(def-package! geiser
-  :mode ("\\.scm\\'" . scheme-mode)
-  :mode ("\\.ss\\'"  . scheme-mode)
-  :commands (geiser)
+
+(use-package! geiser
+  :defer t
   :init
   (setq geiser-active-implementations '(guile chicken mit chibi chez))
+  (unless (featurep! :lang racket)
+    (push 'racket geiser-active-implementations))
+  (after! scheme  ; built-in
     (set-repl-handler! 'scheme-mode '+scheme/repl)
     (set-eval-handler! 'scheme-mode #'geiser-eval-region)
     (set-lookup-handlers! 'scheme-mode
       :definition #'geiser-edit-symbol-at-point
-    :documentation #'geiser-doc-symbol-at-point)
+      :documentation #'geiser-doc-symbol-at-point))
   :config
-  (map! (:localleader
-          (:map scheme-mode-map
+  (map! :localleader
+        :map scheme-mode-map
         "'" #'geiser-mode-switch-to-repl
         "s" #'geiser-set-scheme
 
@@ -36,4 +39,4 @@
           "q" #'geiser-repl-exit
           "r" #'geiser-restart-repl
           "R" #'geiser-reload
-              "c" #'geiser-repl-clear-buffer)))))
+          "c" #'geiser-repl-clear-buffer)))