2018-07-29 10:50:17 -03:00
|
|
|
;;; lang/racket/config.el -*- lexical-binding: t; -*-
|
|
|
|
|
2019-07-23 12:44:03 +02:00
|
|
|
(use-package! racket-mode
|
2018-08-12 13:52:35 -03:00
|
|
|
:hook (racket-repl-mode . racket-unicode-input-method-enable)
|
2018-07-29 10:50:17 -03:00
|
|
|
:config
|
2018-07-29 17:22:01 +02:00
|
|
|
(set-popup-rule! "^\\*Racket REPL" :size 10 :select t)
|
2018-07-29 10:50:17 -03:00
|
|
|
(set-repl-handler! 'racket-mode #'+racket/repl)
|
|
|
|
(set-lookup-handlers! 'racket-mode
|
2018-08-19 00:08:32 +02:00
|
|
|
:definition #'racket-visit-definition
|
|
|
|
:documentation #'racket-describe)
|
feature/lookup: rewrite dash docset integration
+ Uses alist variable to store config, rather than hooks
+ Added check for installed docsets in +lookup/documentation
+ Set docsets for various language modules (c-mode, c++-mode, css-mode,
scss-mode, sass-mode, web-mode, go-mode, racket-mode, emacs-lisp-mode,
js2-mode, rjsx-mode, typescript-mode, rust-mode, and php-mode)
+ Made *eww* popups for dash docsets larger
+ Renamed set-docset! => set-docsets! (set-docset! is aliased to
set-docsets!)
+ New +lookup/install-docset alias
2018-08-31 02:44:49 +02:00
|
|
|
(set-docsets! 'racket-mode "Racket")
|
2018-07-29 10:50:17 -03:00
|
|
|
(set-pretty-symbols! 'racket-mode
|
|
|
|
:lambda "lambda"
|
|
|
|
:map "map"
|
|
|
|
:dot ".")
|
|
|
|
(set-rotate-patterns! 'racket-mode
|
|
|
|
:symbols '(("#true" "#false")))
|
2018-07-29 18:18:04 +02:00
|
|
|
|
2019-07-26 19:57:13 +02:00
|
|
|
(add-hook! 'racket-mode-hook
|
|
|
|
#'rainbow-delimiters-mode
|
|
|
|
#'highlight-quoted-mode)
|
2019-07-26 11:15:03 -04:00
|
|
|
(set-lookup-handlers! 'racket-mode :definition #'racket-visit-definition)
|
2018-07-29 10:50:17 -03:00
|
|
|
|
2019-07-21 12:18:40 -04:00
|
|
|
(map! :map (racket-mode-map racket-repl-mode-hook)
|
|
|
|
:i "[" #'racket-smart-open-bracket)
|
|
|
|
|
2018-12-23 23:54:27 -05:00
|
|
|
(map! :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
|
2018-08-18 23:50:28 +02:00
|
|
|
(:prefix "e"
|
2018-12-23 23:54:27 -05:00
|
|
|
"d" #'racket-expand-definition
|
|
|
|
"l" #'racket-expand-last-sexp
|
|
|
|
"r" #'racket-expand-region
|
|
|
|
"a" #'racket-expand-again)
|
2018-08-19 00:09:04 +02:00
|
|
|
(:prefix "g"
|
2018-12-23 23:54:27 -05:00
|
|
|
"d" #'racket-visit-definition
|
|
|
|
"m" #'racket-visit-module
|
|
|
|
"r" #'racket-open-require-path
|
|
|
|
"b" #'racket-unvisit)
|
2018-08-19 00:09:04 +02:00
|
|
|
(:prefix "s"
|
2018-12-23 23:54:27 -05:00
|
|
|
"d" #'racket-send-definition
|
|
|
|
"l" #'racket-send-last-sexp
|
|
|
|
"r" #'racket-send-region)))
|