mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 02:30:33 -08:00
Code Issues Projects Releases Wiki Activity

fix(racket): allow toggling smart bracket mode

Browse source 
Adds a custom variable to allow disabling smart bracket mode.

Fix: #1452
This commit is contained in:
flakeuser 2025-04-19 07:02:26 -07:00
parent baf680f9c8
commit 519517a65f
2 changed files with 29 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/lang/racket/README.org
View file

@ -70,6 +70,7 @@ Formatting is handled using the [[doom-module::editor format]] module via [[http
(add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode))
#+end_src
You can manually turn off smart bracket mode by setting the variable ~+racket-enable-smart-brackets~ to nil.
** Unicode Input
The optional ~racket-unicode~ input method lets you type unicode characters such
as λ or π. To enable unicode input for a single buffer, run
@ -91,6 +92,5 @@ Once enabled, unicode input can be toggled by pressing C-\ or running
/This module has no FAQs yet./ [[doom-suggest-faq:][Ask one?]]
* TODO Appendix
#+begin_quote
󱌣 This module has no appendix yet. [[doom-contrib-module:][Write one?]]
#+end_quote
** Variables
- ~+racket-enable-smart-brackets~: Enable smart bracket mode unless parinfer or lispy are enabled. Default is true.

49
modules/lang/racket/config.el
View file

@ -4,6 +4,8 @@
(after! projectile
(add-to-list 'projectile-project-root-files "info.rkt"))
(defvar +racket-enable-smart-brackets t
"If non-nil, without parinfer and lispy, enable racket smart bracket mode.")
;;
;;; Packages
@ -59,14 +61,15 @@
(cl-pushnew 'racket flycheck-disabled-checkers)))))
(unless (or (modulep! :editor parinfer)
(modulep! :editor lispy))
(modulep! :editor lispy)
(not +racket-enable-smart-brackets))
(add-hook mode-hook #'racket-smart-open-bracket-mode))
(map! (:map racket-xp-mode-map
[remap racket-doc] #'racket-xp-documentation
[remap racket-visit-definition] #'racket-xp-visit-definition
[remap next-error] #'racket-xp-next-error
[remap previous-error] #'racket-xp-previous-error)
[remap racket-doc] #'racket-xp-documentation
[remap racket-visit-definition] #'racket-xp-visit-definition
[remap next-error] #'racket-xp-next-error
[remap previous-error] #'racket-xp-previous-error)
(:localleader
:map ,mode-map
"a" #'racket-align
@ -84,30 +87,30 @@
"u" #'racket-backward-up-list
"y" #'racket-insert-lambda
(:prefix ("m" . "macros")
"d" #'racket-expand-definition
"e" #'racket-expand-last-sexp
"r" #'racket-expand-region
"a" #'racket-expand-again)
"d" #'racket-expand-definition
"e" #'racket-expand-last-sexp
"r" #'racket-expand-region
"a" #'racket-expand-again)
(:prefix ("g" . "goto")
"b" #'racket-unvisit
"d" #'racket-visit-definition
"m" #'racket-visit-module
"r" #'racket-open-require-path)
"b" #'racket-unvisit
"d" #'racket-visit-definition
"m" #'racket-visit-module
"r" #'racket-open-require-path)
(:prefix ("s" . "send")
"d" #'racket-send-definition
"e" #'racket-send-last-sexp
"r" #'racket-send-region)
"d" #'racket-send-definition
"e" #'racket-send-last-sexp
"r" #'racket-send-region)
:map racket-repl-mode-map
"l" #'racket-logger
"h" #'racket-repl-documentation
"y" #'racket-insert-lambda
"u" #'racket-backward-up-list
(:prefix ("m" . "macros")
"d" #'racket-expand-definition
"e" #'racket-expand-last-sexp
"f" #'racket-expand-file
"r" #'racket-expand-region)
"d" #'racket-expand-definition
"e" #'racket-expand-last-sexp
"f" #'racket-expand-file
"r" #'racket-expand-region)
(:prefix ("g" . "goto")
"b" #'racket-unvisit
"m" #'racket-visit-module
"d" #'racket-repl-visit-definition)))))
"b" #'racket-unvisit
"m" #'racket-visit-module
"d" #'racket-repl-visit-definition)))))