From 86b144a915e3226a23d75878fa0f2dc10eeefb17 Mon Sep 17 00:00:00 2001 From: sarna Date: Sat, 22 Aug 2020 15:09:43 +0200 Subject: [PATCH 1/3] Set lookup handlers in the repl as well --- modules/lang/racket/config.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/lang/racket/config.el b/modules/lang/racket/config.el index 70b4d2506..7885aba18 100644 --- a/modules/lang/racket/config.el +++ b/modules/lang/racket/config.el @@ -12,7 +12,7 @@ :hook (racket-repl-mode . racket-unicode-input-method-enable) :config (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 :documentation #'+racket-lookup-documentation) (set-docsets! 'racket-mode "Racket") From 113ec1c201cf0f6e9e1de56c321a7b9fbc7f31ea Mon Sep 17 00:00:00 2001 From: sarna Date: Sat, 22 Aug 2020 15:10:30 +0200 Subject: [PATCH 2/3] Remap funs to xp-specific ones in racket-xp-mode --- modules/lang/racket/config.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/modules/lang/racket/config.el b/modules/lang/racket/config.el index 7885aba18..31e0a52c9 100644 --- a/modules/lang/racket/config.el +++ b/modules/lang/racket/config.el @@ -41,8 +41,10 @@ (add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode)) (map! (:map racket-xp-mode-map - [remap next-error] #'racket-xp-next-error - [remap previous-error] #'racket-xp-previous-error) + [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 From 452bc0d183ecad64aea0972a85c53f60dc9a85bf Mon Sep 17 00:00:00 2001 From: sarna Date: Sat, 22 Aug 2020 15:12:39 +0200 Subject: [PATCH 3/3] Map bindings for the repl --- modules/lang/racket/config.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/modules/lang/racket/config.el b/modules/lang/racket/config.el index 31e0a52c9..d36089112 100644 --- a/modules/lang/racket/config.el +++ b/modules/lang/racket/config.el @@ -74,4 +74,18 @@ (:prefix ("s" . "send") "d" #'racket-send-definition "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))))