104 lines
3.2 KiB
EmacsLisp
104 lines
3.2 KiB
EmacsLisp
|
;;; lang/racket/config.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
(def-package! racket-mode
|
||
|
|
:mode "\\.rkt$"
|
||
|
|
:interpreter "racket"
|
||
|
|
:init
|
||
|
|
(add-hook 'racket-repl-mode-hook 'racket-unicode-input-method-enable)
|
||
|
|
:config
|
||
|
|
(set-popup-rule! "*Racket REPL*"
|
||
|
|
:size 10
|
||
|
|
:select t
|
||
|
|
:modeline nil
|
||
|
|
:quit t
|
||
|
|
:transient 3)
|
||
|
|
(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
|
||
|
|
#'(;; Internals
|
||
|
|
racket-unicode-input-method-enable
|
||
|
|
;; 3rd-party functionality
|
||
|
|
doom|enable-delete-trailing-whitespace
|
||
|
|
;; fontification
|
||
|
|
rainbow-delimiters-mode
|
||
|
|
highlight-quoted-mode
|
||
|
|
highlight-numbers-mode
|
||
|
|
;; initialization
|
||
|
|
flycheck-mode))
|
||
|
|
|
||
|
|
(setq-hook! racket-mode
|
||
|
|
racket-smart-open-bracket-enable t
|
||
|
|
company-frontends '(company-pseudo-tooltip-unless-just-one-frontend
|
||
|
|
company-preview-if-just-one-frontend
|
||
|
|
company-preview-common-frontend))
|
||
|
|
|
||
|
|
(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))
|
||
|
|
|
||
|
|
|
||
|
|
;;
|
||
|
|
;; Plugins
|
||
|
|
;;
|
||
|
|
|
||
|
|
(def-package! highlight-quoted
|
||
|
|
:commands highlight-quoted-mode)
|
||
|
|
|
||
|
|
(after! org
|
||
|
|
(org-babel-do-load-languages
|
||
|
|
'org-babel-load-languages
|
||
|
|
(append org-babel-load-languages
|
||
|
|
'((racket . t)
|
||
|
|
;; (scribble . t)
|
||
|
|
))))
|