emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge pull request #3805 from sarna/develop

Browse source 
Fix bindings for racket-mode
This commit is contained in:
Henrik Lissner 2020-08-23 14:10:46 -04:00 • committed by GitHub
commit 5918d2b5c8
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -12,7 +12,7 @@
:hook (racket-repl-mode . racket-unicode-input-method-enable) :hook (racket-repl-mode . racket-unicode-input-method-enable)
:config :config
(set-repl-handler! 'racket-mode #'+racket/open-repl) (set-repl-handler! 'racket-mode #'+racket/open-repl)
(set-lookup-handlers! 'racket-mode (set-lookup-handlers! '(racket-mode racket-repl-mode)
:definition #'+racket-lookup-definition :definition #'+racket-lookup-definition
:documentation #'+racket-lookup-documentation) :documentation #'+racket-lookup-documentation)
(set-docsets! 'racket-mode "Racket") (set-docsets! 'racket-mode "Racket")
@ -41,8 +41,10 @@
(add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode)) (add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode))
(map! (:map racket-xp-mode-map (map! (:map racket-xp-mode-map
[remap next-error] #'racket-xp-next-error [remap racket-doc] #'racket-xp-documentation
[remap previous-error] #'racket-xp-previous-error) [remap racket-visit-definition] #'racket-xp-visit-definition
[remap next-error] #'racket-xp-next-error
[remap previous-error] #'racket-xp-previous-error)
(:localleader (:localleader
:map racket-mode-map :map racket-mode-map
"a" #'racket-align "a" #'racket-align
@ -72,4 +74,18 @@
(:prefix ("s" . "send") (:prefix ("s" . "send")
"d" #'racket-send-definition "d" #'racket-send-definition
"e" #'racket-send-last-sexp "e" #'racket-send-last-sexp
"r" #'racket-send-region)))) "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))))