Add support for Literate Haskell

extension.toml

@@ -11,7 +11,7 @@ repository = "https://github.com/zed-extensions/haskell"
 
 [language_servers.hls]
 name = "Haskell Language Server"
-languages = ["Haskell", "Cabal"]
+languages = ["Haskell", "Cabal", "Literate Haskell"]
 
 [grammars.haskell]
 repository = "https://github.com/tree-sitter/tree-sitter-haskell"
@@ -20,3 +20,7 @@ commit = "8a99848fc734f9c4ea523b3f2a07df133cbbcec2"
 [grammars.cabal]
 repository = "https://gitlab.com/zweimach/tree-sitter-cabal/"
 commit = "6f00f6d4883eb2eb650eea7cc1e95bd25e48419c"
+
+[grammars.haskell_literate]
+repository = "https://github.com/LaurentRDC/tree-sitter-haskell-literate"
+commit = "8ad7bd1b1595f4cc1a4ccc775d4a3c460f43a596"

languages/literate-haskell/config.toml

@@ -0,0 +1,14 @@
+name = "Literate Haskell"
+grammar = "haskell_literate"
+path_suffixes = ["lhs"]
+line_comments = ["-- "]
+block_comment = ["{- ", " -}"]
+autoclose_before = ",=)}]"
+brackets = [
+    { start = "{", end = "}", close = true, newline = true },
+    { start = "[", end = "]", close = true, newline = true },
+    { start = "(", end = ")", close = true, newline = true },
+    { start = "\"", end = "\"", close = true, newline = false },
+    { start = "'", end = "'", close = true, newline = false },
+    { start = "`", end = "`", close = true, newline = false },
+]

languages/literate-haskell/highlights.scm

@@ -0,0 +1,16 @@
+; Bird track marker
+(bird_line ">" @punctuation.special)
+
+; LaTeX delimiters
+(latex_begin) @keyword.directive
+(latex_end) @keyword.directive
+
+; Highlight LaTeX comments like comments
+(latex_comment) @comment
+
+; Markdown delimiters
+(markdown_begin) @keyword.directive
+(markdown_end) @keyword.directive
+
+; Normal prose is not highlighted. Haskell code will be
+; highlighted by the injected Haskell grammar

languages/literate-haskell/injections.scm

@@ -0,0 +1,14 @@
+; Inject Haskell parser into bird-style code lines
+((bird_line
+  (haskell_code) @injection.content)
+ (#set! injection.language "haskell"))
+
+; Inject Haskell parser into LaTeX code blocks
+((latex_code_line
+  (haskell_code) @injection.content)
+ (#set! injection.language "haskell"))
+
+; Inject Haskell parser into Markdown code blocks
+((markdown_code_line
+  (haskell_code) @injection.content)
+ (#set! injection.language "haskell"))