Fix visit docs for Racket & support racket-xp (#3373)

* Fix visit docs for Racket & support racket-xp

- Fix Racket's +lookup/documentation in the same way as
  f20f477a44
- Support the +xp feature which enables racket-xp. When it's not
  enabled, default handlers to the traditional racket-repl
  (which requires users to run code first)

* PR feedback

* Replace add-hook! with add-hook
This commit is contained in:
sorawee 2020-06-13 00:03:11 -07:00 committed by GitHub
parent 991a205ebd
commit 0f3bd57101
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 24 additions and 4 deletions

View file

@ -13,8 +13,8 @@
:config
(set-repl-handler! 'racket-mode #'+racket/open-repl)
(set-lookup-handlers! 'racket-mode
:definition #'racket-xp-visit-definition
:documentation #'racket-xp-describe)
:definition #'+racket-lookup-definition
:documentation #'+racket-lookup-documentation)
(set-docsets! 'racket-mode "Racket")
(set-pretty-symbols! 'racket-mode
:lambda "lambda"
@ -27,9 +27,12 @@
#'rainbow-delimiters-mode
#'highlight-quoted-mode)
(when (featurep! +xp)
(add-hook 'racket-mode-hook #'racket-xp-mode))
(unless (or (featurep! :editor parinfer)
(featurep! :editor lispy))
(add-hook! 'racket-mode-hook #'racket-smart-open-bracket-mode))
(add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode))
(map! :localleader
:map racket-mode-map