From 8b95aa5d3e015eaab0b31b4dd24b9fb9b53f50bd Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Mon, 12 Jul 2021 19:18:34 -0400
Subject: [PATCH] lang/racket: add +lsp flag

And add link to racket's README.
---
 docs/modules.org               | 2 +-
 modules/lang/racket/README.org | 1 +
 modules/lang/racket/config.el  | 3 +++
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/docs/modules.org b/docs/modules.org
index 9ba24c70e..4b1c91c5f 100644
--- a/docs/modules.org
+++ b/docs/modules.org
@@ -138,7 +138,7 @@ Modules that bring support for a language or group of languages to Emacs.
 + purescript =+lsp= - TODO
 + [[file:../modules/lang/python/README.org][python]] =+cython +lsp +pyright +pyenv +conda +poetry= - TODO
 + qt - TODO
-+ racket - TODO
++ [[file:../modules/lang/racket/README.org][racket]] =+lsp +xp= - TODO
 + [[file:../modules/lang/raku/README.org][raku]] - TODO
 + [[file:../modules/lang/rest/README.org][rest]] - TODO
 + rst - TODO
diff --git a/modules/lang/racket/README.org b/modules/lang/racket/README.org
index 7091e1341..31df6f6dd 100644
--- a/modules/lang/racket/README.org
+++ b/modules/lang/racket/README.org
@@ -23,6 +23,7 @@ This module provides integration for [[https://github.com/greghendershott/racket
 This module has no dedicated maintainers.
 
 ** Module Flags
++ =+lsp= Enables LSP support. Requires jeapostrophe/racket-langserver.
 + =+xp= Enables the explore mode, which "analyzes expanded code to explain and explore."
 
 ** Plugins
diff --git a/modules/lang/racket/config.el b/modules/lang/racket/config.el
index 42f085b4a..f01f87962 100644
--- a/modules/lang/racket/config.el
+++ b/modules/lang/racket/config.el
@@ -26,6 +26,9 @@
              #'rainbow-delimiters-mode
              #'highlight-quoted-mode)
 
+  (when (featurep! +lsp)
+    (add-hook 'racket-mode-local-vars-hook #'lsp!))
+
   (when (featurep! +xp)
     (add-hook 'racket-mode-local-vars-hook #'racket-xp-mode)
     ;; Both flycheck and racket-xp produce error popups, but racket-xp's are