.

Author: kiyoon

queries/ocaml/textobjects.scm

@@ -29,30 +29,20 @@
   (then_clause
     (_) @conditional.inner)) @conditional.outer
 
-; TODO: rewrite without make-range!
-; (function_expression
-;   (match_case) @_start @_end
-;   (match_case)* @_end
-;   (#make-range! "conditional.inner" @_start @_end)) @conditional.outer
-;
-; (match_expression
-;   (match_case) @_start @_end
-;   (match_case)* @_end
-;   (#make-range! "conditional.inner" @_start @_end)) @conditional.outer
+(function_expression
+  (match_case)+ @conditional.inner) @conditional.outer
+
+(match_expression
+  (match_case)+ @conditional.inner) @conditional.outer
 (comment) @comment.outer
 
 (parameter) @parameter.outer
 
 (application_expression
   argument: (_) @parameter.outer) @call.outer
 
-; TODO: rewrite without make-range!
-; (application_expression
-;   argument: (_) @_start @_end
-;   argument: (_)* @_end
-;   (#make-range! "call.inner" @_start @_end))
-;
-; (parenthesized_expression
-;   (_) @_start @_end
-;   (_)? @_end
-;   (#make-range! "block.inner" @_start @_end)) @block.outer
+(application_expression
+  argument: (_)+ @call.inner)
+
+(parenthesized_expression
+  _+ @block.inner) @block.outer