From c370e995a8cd47970d5f77ab46c30c9ebb93407a Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 30 Jun 2024 13:58:19 +0200
Subject: [PATCH] Update --lisp packages

---
 bundle/bundle--lisp.el | 65 ++++++++++++++++++++++++++----------------
 1 file changed, 41 insertions(+), 24 deletions(-)

diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el
index bcafe083..3c1d006c 100644
--- a/bundle/bundle--lisp.el
+++ b/bundle/bundle--lisp.el
@@ -330,31 +330,48 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
 (use-package common-lisp-snippets
   :after yasnippet)
 
-(use-package geiser
-  :init
-  (setq geiser-repl-prompt-read-only t)
-  (setq geiser-repl-highlight-error-messages t)
-  (if (eq system-type 'windows-nt)
-      (progn
-        (setq geiser-active-implementations '(racket))
-        (setq geiser-default-implementation 'racket))
-    (progn
-      (setq geiser-active-implementations '(racket guile))
-      (setq geiser-default-implementation 'guile)))
-  :hook (scheme-mode . geiser-mode))
+;; (use-package geiser
+;;   :init
+;;   (setq geiser-repl-prompt-read-only t)
+;;   (setq geiser-repl-highlight-error-messages t)
+;;   (if (eq system-type 'windows-nt)
+;;       (progn
+;;         (setq geiser-active-implementations '(racket))
+;;         (setq geiser-default-implementation 'racket))
+;;     (progn
+;;       (setq geiser-active-implementations '(racket guile))
+;;       (setq geiser-default-implementation 'guile)))
+;;   :hook (scheme-mode . geiser-mode))
 
-(use-package racket-mode
-  :mode "\\.rkt\\'")
+;; (use-package racket-mode
+;;   :mode "\\.rkt\\'")
 
-(use-package geiser-racket
-  :defer t
-  :after geiser
+;; (use-package geiser-racket
+;;   :defer t
+;;   :after geiser
+;;   :config
+;;   (when (eq system-type 'windows-nt)
+;;     (setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))
+
+;; (when (eq system-type 'gnu/linux)
+;;   (use-package geiser-guile
+;;     :defer t
+;;     :after geiser
+;;     :custom (geiser-guile-binary "guile")))
+
+(use-package ac-slime
+  :after (slime auto-complete)
   :config
-  (when (eq system-type 'windows-nt)
-    (setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))
+  (add-hook 'slime-mode-hook 'set-up-slime-ac)
+  (add-hook 'slime-repl-mode-hook 'set-up-slime-ac))
 
-(when (eq system-type 'gnu/linux)
-  (use-package geiser-guile
-    :defer t
-    :after geiser
-    :custom (geiser-guile-binary "guile")))
+(use-package paredit
+  :hook ((emacs-lisp-mode . paredit-mode)
+         (eval-expression-minibuffer-setup . paredit-mode)
+         (ielm-mode . paredit-mode)
+         (lisp-mode . paredit-mode)
+         (lisp-interaction-mode . paredit-mode)
+         (scheme-mode . paredit-mode))
+  :bind (:map paredit-mode-map
+              ("M-)" . paredit-forward-slurp-sexp)
+              ("M-(" . paredit-forward-barf-sexp)))