Adjust scheme setup

Maybe I'll need to change back when I am back to my other computer

init.org

@@ -168,12 +168,14 @@
   (add-hook
    'after-init-hook
    (lambda ()
+     (require 'server)
      (let ((private-file (concat user-emacs-directory "private.el")))
        (when (file-exists-p private-file)
          (load-file private-file))
        (when (file-exists-p custom-file)
          (load-file custom-file))
-       (server-start))))
+       (unless (server-running-p)
+         (server-start)))))
 
   #+end_src
 
@@ -368,6 +370,7 @@
 
   (dolist (mode
            '(tool-bar-mode                ; No toolbars, more room for text
+             menu-bar-mode                ; No menu bar
              scroll-bar-mode              ; No scroll bars either
              blink-cursor-mode))          ; The blinking cursor gets old
     (funcall mode 0))
@@ -471,7 +474,7 @@
    #+begin_src emacs-lisp
 
    (when (member "Source Code Pro" (font-family-list))
-     (set-face-attribute 'default nil :font "Source Code Pro-15"))
+     (set-face-attribute 'default nil :font "Source Code Pro-13"))
 
    #+end_src
 
@@ -485,8 +488,8 @@
      :defer t
      :hook (text-mode . mixed-pitch-mode)
      :config
-     (when (member "Source Serif Pro" (font-family-list))
-       (set-face-attribute 'variable-pitch nil :family "Source Serif Pro")))
+     (when (member "Source Serif 4" (font-family-list))
+       (set-face-attribute 'variable-pitch nil :family "Source Serif 4")))
 
    #+end_src
 
@@ -1632,22 +1635,22 @@
     (use-package geiser-gambit
       :config
 
-      (defun geiser-r5rs--enter (_remote)
-        "Clear the debugger on entry.
-    The REPL starts in a debug mode.  Exit it on entry."
-        ",d")
+      (defconst geiser-r5rs-minimum-version "v4.9.0")
 
-      (defun geiser-r5rs--parameters ()
-        "Return a list with all parameters needed to start Gambit scheme-r5rs."
-        (list "-:d-,r5rs"
-              (expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir)
-              "-"))
+      (defun geiser-r5rs--arglist ()
+        "Return a list of arguments given to gsi.
+      Ensures R5RS and support for Geiser."
+        `("-:d-,r5rs"
+          ,(expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir)
+          "-"))
 
-      (define-geiser-implementation (r5rs gambit)
-                                    (arglist geiser-r5rs--parameters)
-                                    (enter-command geiser-r5rs--enter))
+      (define-geiser-implementation
+       (r5rs gambit)
+       (minimum-version geiser-r5rs-minimum-version)
+       (arglist geiser-r5rs--arglist))
 
       (geiser-activate-implementation 'r5rs)
+      (setq geiser-repl-add-project-paths nil)
 
       (provide 'geiser-r5rs))