Add racket-mode

This commit is contained in:
eriedaberrie 2023-07-23 15:36:23 -07:00
parent 5b58bd2839
commit 4a290a129a

21
init.el
View file

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