racket-mode custom

1 files changed, 6 insertions, 4 deletions

diff --git a/init.org b/init.org
index 3258b0a..f7dcde3 100644
--- a/init.org
+++ b/init.org
@@ -2583,13 +2583,15 @@
     #+begin_src emacs-lisp
       (use-package racket-mode
         :ensure t
+        :init (setq racket-show-functions '(racket-show-echo-area))
         :config
+        (jao-define-attached-buffer "\\`\\*Racket REPL")
+        (jao-define-attached-buffer "\\`\\*Racket Describe" 0.5)
         (add-hook 'racket-mode-hook #'paredit-mode)
         (require 'racket-xp)
-        (defun jao-racket-rem-redisplays ()
-          (remove-hook 'pre-redisplay-functions #'racket-xp-pre-redisplay t))
-        ;; (add-hook 'racket-xp-mode-hook #'jao-racket-rem-redisplays)
-        (add-hook 'racket-mode-hook #'racket-xp-mode))
+        (add-hook 'racket-mode-hook #'racket-xp-mode)
+        :bind (:map racket-mode-map (("C-c C-d" . racket-xp-describe)
+                                     ("C-c C-S-d" . racket-xp-documentation))))
 
     #+end_src
 *** Python