From 4a290a129a41a46165c0f8dd95b2e084ecf37dd5 Mon Sep 17 00:00:00 2001
From: eriedaberrie <eriedaberrie@gmail.com>
Date: Sun, 23 Jul 2023 15:36:23 -0700
Subject: [PATCH] Add racket-mode

---
 init.el | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/init.el b/init.el
index 12173f4..debfbed 100644
--- a/init.el
+++ b/init.el
@@ -201,7 +201,7 @@
     (meow-normal-define-key '("?" . avy-goto-char-timer))))
 
 (use-package puni
-  :hook prog-mode tex-mode
+  :hook prog-mode tex-mode slime-repl-mode racket-repl-mode
   :bind (:map puni-mode-map
               ("C-)" . puni-slurp-forward)
               ("C-}" . puni-barf-forward)
@@ -313,7 +313,7 @@
                   '(my-meow-undo meow-undo meow-undo-in-selection)))))
 
 (use-package rainbow-delimiters
-  :hook prog-mode)
+  :hook prog-mode slime-repl-mode racket-repl-mode)
 
 (use-package highlight-indent-guides
   :hook prog-mode
@@ -579,9 +579,6 @@
   :hook (after-init . envrc-global-mode))
 
 (defun my-slime-repl-set-parens ()
-  (rainbow-delimiters-mode)
-  (puni-mode)
-  (electric-pair-local-mode)
   (define-key slime-repl-mode-map (kbd "DEL") nil)
   (local-set-key (kbd "DEL") #'backward-delete-char-untabify))
 
@@ -596,6 +593,9 @@
   (with-eval-after-load 'meow
     (add-to-list 'meow-mode-state-list '(sldb-mode . motion))))
 
+(use-package racket-mode
+  :hook (racket-mode . racket-xp-mode))
+
 ;; (use-package web-mode
 ;;   :mode ("\\.\\([jt]sx?\\|css\\)\\'" . web-mode)
 ;;   :custom
@@ -939,6 +939,14 @@
   :custom
   (prettify-symbols-unprettify-at-point t))
 
+(use-package electric-pair-mode
+  :ensure nil
+  :hook
+  (prog-mode . electric-pair-local-mode)
+  (eval-expression-minibuffer-setup-mode . electric-pair-local-mode)
+  (slime-repl-mode . electric-pair-local-mode)
+  (racket-repl-mode . electric-pair-local-mode))
+
 (use-package ffap
   :ensure nil
   :demand t
@@ -1015,9 +1023,6 @@
                 clojure-mode-hook))
   (add-hook hook #'my-use-spaces-for-indent))
 
-(add-hook 'prog-mode-hook #'electric-pair-local-mode)
-(add-hook 'eval-expression-minibuffer-setup-hook #'electric-pair-local-mode)
-
 (add-hook 'text-mode-hook #'word-wrap-whitespace-mode)
 (add-hook 'text-mode-hook #'visual-line-mode)