syntax highlightinggit status

tree-sitter/example.crr

@@ -1,7 +1,43 @@
-type t List = 'EOL | 'Cons {head: t, tail: t List}
+def tricky =
+  let ab = funct(1)
+  let cd = 3
+  ab + cd
 
-type List2 = with t: 'EOL | 'Cons {head: t, tail: t List}
 
-type List3 = with t: &a 'EOL | 'Cons {head: t, tail: a}
+## doc comment
+type [a,b] list = [a,b] List option
 
-type List4 = with t: &a 'EOL Unit | 'Cons {head: t, tail: a}
+# comment
+
+def xa =
+  let data = 2
+  if data then
+    data and other and more
+  else 'MyTag myList ++ [4 + 2 * -(4) - 1] = 2^2
+
+## adds two numbers
+## together
+def add : int -> int -> int =
+  a -> b : int -> a + b
+
+def lol =
+  let data = 2
+  match x with
+    a | b -> (match c with y -> 3 | z ->5)
+  | c -> 3
+
+def main = 
+  let x = 2 ( 5 ) 
+  [6 :: int,7,8,"helo world"]
+  
+  
+def example = a -> b -> 1:x => y
+
+extensible union io.Plan
+extend io.Plan with 'WriteFile Unit
+
+type a b = {a:Int,b: (Array Of Integ), c: a3}
+
+type ?lol.FullPartial = {}
+
+type t List = with lol: &t2 with cursed: 'Tag [t,t2] List option | 'Case2 | 'Case3 | ...?rem -> int -> float

tree-sitter/grammar.js

@@ -12,12 +12,13 @@ module.exports = grammar({
 
   reserved: {
     toplevel_kw: $ =>
-    ['type', 'with', 'extensible', 'extend', 'union', 'def', 'await', 'if', 'then', 'else', 'in', 'match'],
+      ['type', 'with', 'extensible', 'extend', 'union', 'def', 'await', 'let', 'if', 'then', 'else', 'in', 'match'],
   },
 
   extras: ($) => [
     /\s/, // whitespace
     $.comment,
+    $.section_comment,
   ],
 
   word: $ => $._identifier_tok,
@@ -55,6 +56,9 @@ module.exports = grammar({
     comment: $ =>
       token(seq("# ", /.*/)),
 
+    section_comment: $ =>
+      token(seq("###", /.*/)),
+
     doc_comment: $ =>
       repeat1(seq('## ', token.immediate(/.*/))),
 

tree-sitter/queries/highlights.scm

@@ -0,0 +1,57 @@
+; megic
+
+(identifier) @variable
+
+(tag) @label ; @constructor
+
+[
+ "(" ")"
+ "{" "}"
+ "[" "]"
+ ] @punctuation.bracket
+
+[
+ "."
+ ","
+ "|"
+ "->"
+ ":"
+ ] @punctuation.delimiter
+
+[
+ (comment)
+ (doc_comment)
+ (section_comment)
+ ] @comment
+
+(num_literal) @constant.builtin
+
+[(char_literal)
+ (string_literal)
+ ] @string
+
+(escape_sequence) @escape
+
+["+" "-"
+ "*" "/"
+ "=>" "++"
+ "::"
+ ] @operator
+
+[
+ "def"
+ "type"
+ "with"
+ "extensible"
+ "extend"
+ "union"
+ "def"
+ "await"
+ "let"
+ "if"
+ "then"
+ "else"
+ "in"
+ "match"
+ "and"
+ ] @keyword

tree-sitter/src/grammar.json

@@ -70,6 +70,22 @@
         ]
       }
     },
+    "section_comment": {
+      "type": "TOKEN",
+      "content": {
+        "type": "SEQ",
+        "members": [
+          {
+            "type": "STRING",
+            "value": "###"
+          },
+          {
+            "type": "PATTERN",
+            "value": ".*"
+          }
+        ]
+      }
+    },
     "doc_comment": {
       "type": "REPEAT1",
       "content": {
@@ -2027,6 +2043,10 @@
     {
       "type": "SYMBOL",
       "name": "comment"
+    },
+    {
+      "type": "SYMBOL",
+      "name": "section_comment"
     }
   ],
   "conflicts": [],
@@ -2135,6 +2155,10 @@
         "type": "STRING",
         "value": "await"
       },
+      {
+        "type": "STRING",
+        "value": "let"
+      },
       {
         "type": "STRING",
         "value": "if"

tree-sitter/src/node-types.json

@@ -6300,6 +6300,11 @@
     "type": "match",
     "named": false
   },
+  {
+    "type": "section_comment",
+    "named": true,
+    "extra": true
+  },
   {
     "type": "string_middle",
     "named": true

tree-sitter/tree-sitter.json

@@ -10,7 +10,8 @@
         "crr"
       ],
       "injection-regex": "^crepuscular$",
-      "class-name": "TreeSitterCrepuscular"
+      "class-name": "TreeSitterCrepuscular",
+      "highlights": "queries/highlights.scm"
     }
   ],
   "metadata": {