94 lines
3.3 KiB
EmacsLisp
94 lines
3.3 KiB
EmacsLisp
;;; lang/racket/config.el -*- lexical-binding: t; -*-
|
|
|
|
(after! projectile
|
|
(add-to-list 'projectile-project-root-files "info.rkt"))
|
|
|
|
|
|
;;
|
|
;;; Packages
|
|
|
|
(use-package! racket-mode
|
|
:mode "\\.rkt\\'" ; give it precedence over :lang scheme
|
|
:config
|
|
(set-repl-handler! 'racket-mode #'+racket/open-repl)
|
|
(set-lookup-handlers! '(racket-mode racket-repl-mode)
|
|
:definition #'+racket-lookup-definition
|
|
:documentation #'+racket-lookup-documentation)
|
|
(set-docsets! 'racket-mode "Racket")
|
|
(set-ligatures! 'racket-mode
|
|
:lambda "lambda"
|
|
:map "map"
|
|
:dot ".")
|
|
(set-rotate-patterns! 'racket-mode
|
|
:symbols '(("#true" "#false")))
|
|
(set-formatter! 'raco-fmt '("raco" "fmt") :modes '(racket-mode))
|
|
|
|
(add-hook! 'racket-mode-hook
|
|
#'rainbow-delimiters-mode
|
|
#'highlight-quoted-mode)
|
|
|
|
(when (modulep! +lsp)
|
|
(add-hook 'racket-mode-local-vars-hook #'lsp! 'append))
|
|
|
|
(when (modulep! +xp)
|
|
(add-hook 'racket-mode-local-vars-hook #'racket-xp-mode)
|
|
;; Both flycheck and racket-xp produce error popups, but racket-xp's are
|
|
;; higher quality so disable flycheck's:
|
|
(when (modulep! :checkers syntax)
|
|
(add-hook! 'racket-xp-mode-hook
|
|
(defun +racket-disable-flycheck-h ()
|
|
(cl-pushnew 'racket flycheck-disabled-checkers)))))
|
|
|
|
(unless (or (modulep! :editor parinfer)
|
|
(modulep! :editor lispy))
|
|
(add-hook 'racket-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)
|
|
(:localleader
|
|
:map racket-mode-map
|
|
"a" #'racket-align
|
|
"A" #'racket-unalign
|
|
"f" #'racket-fold-all-tests
|
|
"F" #'racket-unfold-all-tests
|
|
"h" #'racket-doc
|
|
"i" #'racket-unicode-input-method-enable
|
|
"l" #'racket-logger
|
|
"o" #'racket-profile
|
|
"p" #'racket-cycle-paren-shapes
|
|
"r" #'racket-run
|
|
"R" #'racket-run-and-switch-to-repl
|
|
"t" #'racket-test
|
|
"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)
|
|
(:prefix ("g" . "goto")
|
|
"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)
|
|
: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)
|
|
(:prefix ("g" . "goto")
|
|
"b" #'racket-unvisit
|
|
"m" #'racket-visit-module
|
|
"d" #'racket-repl-visit-definition))))
|