238e37a171
+ Removed highlight-quoted block because `highlight-quoted-mode` is already autoloaded by the package + Removed org-babel-do-load-languages because lang/org/+babel already has a built-in autoloader for ob-* packages. + Removed flycheck-mode from racket-mode hook because it is enabled globally in :feature syntax-checker + Removed highlight-numbers-mode from racket-mode-hook because it is enabled on prog-mode-hook in core-ui (as of #770) + Fix racket popup rule regexp + Remove popup rules that were redundant with the defaults + Remove racket-mode-specific company-frontends value, looks like personal preference, otherwise should be set in a separate hook function that is easily recognized and disabled, if the user desires. + Remove :interpreter and :mode properties because they are already registered by the racket-mode package. + Move racket-unicode-input-method-enable into :hook property (to defer the config)
70 lines
2.5 KiB
EmacsLisp
70 lines
2.5 KiB
EmacsLisp
;;; lang/racket/config.el -*- lexical-binding: t; -*-
|
|
|
|
(def-package! racket-mode
|
|
:hook ((racket-mode racket-repl-mode) . racket-unicode-input-method-enable)
|
|
:config
|
|
(set-popup-rule! "^\\*Racket REPL" :size 10 :select t)
|
|
(set-repl-handler! 'racket-mode #'+racket/repl)
|
|
(set-eval-handler! 'racket-mode "racket")
|
|
(set-company-backend! 'racket-mode '(company-abbrev
|
|
company-dabbrev-code
|
|
company-dabbrev
|
|
company-files))
|
|
(set-lookup-handlers! 'racket-mode
|
|
:definition #'racket-describe
|
|
:documentation #'racket-doc)
|
|
(set-docset! 'racket-mode "Racket")
|
|
(set-pretty-symbols! 'racket-mode
|
|
:lambda "lambda"
|
|
:map "map"
|
|
:dot ".")
|
|
(set-rotate-patterns! 'racket-mode
|
|
:symbols '(("#true" "#false")))
|
|
|
|
(add-hook! racket-mode
|
|
#'(;; 3rd-party functionality
|
|
doom|enable-delete-trailing-whitespace
|
|
;; fontification
|
|
rainbow-delimiters-mode
|
|
highlight-quoted-mode))
|
|
|
|
(setq-hook! racket-mode racket-smart-open-bracket-enable t)
|
|
|
|
(map! :map racket-mode-map
|
|
:localleader
|
|
:n "c" #'racket-run
|
|
:n "z" #'racket-repl
|
|
:n "C" #'racket-run-and-switch-to-repl
|
|
:n "x" #'racket-racket
|
|
:n "t" #'racket-test
|
|
:n "l" #'racket-logger
|
|
:n "o" #'racket-profile
|
|
(:desc "eval" :prefix "s"
|
|
:n "d" #'racket-send-definition
|
|
:n "l" #'racket-send-last-sexp
|
|
:n "r" #'racket-send-region)
|
|
(:desc "macro expand" :prefix "e"
|
|
:n "d" #'racket-expand-definition
|
|
:n "l" #'racket-expand-last-sexp
|
|
:n "r" #'racket-expand-region
|
|
:n "a" #'racket-expand-again)
|
|
:n "r" #'racket-open-require-path
|
|
:n "TAB" #'indent-for-tab-command
|
|
:n "u" #'racket-backward-up-list
|
|
:n "[" #'racket-smart-open-bracket
|
|
:n ")" #'racket-insert-closing
|
|
:n "]" #'racket-insert-closing
|
|
:n "}" #'racket-insert-closing
|
|
:n "p" #'racket-cycle-paren-shapes
|
|
:n "y" #'racket-insert-lambda
|
|
:n "d" #'racket-doc
|
|
:n "." #'racket-describe
|
|
:n "M-." #'racket-visit-definition
|
|
:n "C-." #'racket-visit-module
|
|
:n "," #'racket-unvisit
|
|
:n "f" #'racket-fold-all-tests
|
|
:n "F" #'racket-unfold-all-tests
|
|
:n "a" #'racket-align
|
|
:n "A" #'racket-unalign
|
|
:nv ";" #'comment-dwim
|
|
:nv "\\" #'indent-region))
|