init.org

@@ -168,14 +168,12 @@
   (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))
-       (unless (server-running-p)
-         (server-start)))))
+       (server-start))))
 
   #+end_src
 
@@ -370,7 +368,6 @@
 
   (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))
@@ -474,7 +471,7 @@
    #+begin_src emacs-lisp
 
    (when (member "Source Code Pro" (font-family-list))
-     (set-face-attribute 'default nil :font "Source Code Pro-13"))
+     (set-face-attribute 'default nil :font "Source Code Pro-15"))
 
    #+end_src
 
@@ -488,8 +485,8 @@
      :defer t
      :hook (text-mode . mixed-pitch-mode)
      :config
-     (when (member "Source Serif 4" (font-family-list))
-       (set-face-attribute 'variable-pitch nil :family "Source Serif 4")))
+     (when (member "Source Serif Pro" (font-family-list))
+       (set-face-attribute 'variable-pitch nil :family "Source Serif Pro")))
 
    #+end_src
 
@@ -1635,22 +1632,22 @@
     (use-package geiser-gambit
       :config
 
-      (defconst geiser-r5rs-minimum-version "v4.9.0")
+      (defun geiser-r5rs--enter (_remote)
+        "Clear the debugger on entry.
+    The REPL starts in a debug mode.  Exit it on entry."
+        ",d")
 
-      (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)
+      (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)
               "-"))
 
-      (define-geiser-implementation
-       (r5rs gambit)
-       (minimum-version geiser-r5rs-minimum-version)
-       (arglist geiser-r5rs--arglist))
+      (define-geiser-implementation (r5rs gambit)
+                                    (arglist geiser-r5rs--parameters)
+                                    (enter-command geiser-r5rs--enter))
 
       (geiser-activate-implementation 'r5rs)
-      (setq geiser-repl-add-project-paths nil)
 
       (provide 'geiser-r5rs))