From c5a431c3b7a6833d90f2f7a1a0ac310cecfaa2fc Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 29 Aug 2022 20:58:46 -0400
Subject: Update Emacs config.

---
 dotfiles/.emacs.d/init.el | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/dotfiles/.emacs.d/init.el b/dotfiles/.emacs.d/init.el
index d53360d..f418073 100644
--- a/dotfiles/.emacs.d/init.el
+++ b/dotfiles/.emacs.d/init.el
@@ -279,12 +279,29 @@ might be bad."
   :config
   (add-hook 'emacs-lisp-mode-hook (lambda () (paredit-mode t)))
   (add-hook 'lisp-mode-hook (lambda () (paredit-mode t)))
+  (add-hook 'lisp-data-mode-hook (lambda () (paredit-mode t)))
   (add-hook 'lisp-interaction-mode-hook (lambda () (paredit-mode t)))
   (add-hook 'scheme-mode-hook (lambda () (paredit-mode t))))
 
 (use-package geiser
-  :config (use-package geiser-guile)
-  :custom ((geiser-active-implementations '(guile))))
+  :config
+  (use-package geiser-guile)
+  ;; Use project-aware REPL buffer naming so it's clear which REPL
+  ;; belongs to which project.
+  (defun repl-buffer-name (impl)
+    (if geiser-repl-per-project-p
+        (format "*Geiser %s: %s*"
+                (geiser-repl--repl-name impl)
+                (file-name-nondirectory
+                 (directory-file-name
+                  (funcall geiser-repl-current-project-function))))
+      (format "*Geiser %s*" (geiser-repl--repl-name impl))))
+  (setq geiser-repl-buffer-name-function #'repl-buffer-name)
+  :custom ((geiser-active-implementations '(guile))
+           ;; One REPL per project, please!
+           (geiser-repl-per-project-p t)))
+
+(use-package flycheck-guile)
 
 ;; Use scheme-mode for Skribe documents.
 (add-to-list 'auto-mode-alist '("\\.skr$" . scheme-mode))
@@ -412,7 +429,9 @@ indentation."
            (erc-kill-server-buffer-on-quit t)
            (erc-server-coding-system '(utf-8 . utf-8))
            (erc-autojoin-channels-alist
-            '(("libera.chat" "#gnuassembly" "#guile" "#guix" "#lispgames" "#chickadee")))
+            '(("libera.chat"
+               "#gnuassembly" "#guile" "#guile-steel" "#guix" "#lispgames"
+               "#chickadee")))
            ;; Don't open channel buffers in place of the current
            ;; buffer because that drives me fucking crazy.
            (erc-join-buffer 'bury)
-- 
cgit v1.2.3