From b4d7ea7e66eb2d831db3dcd4452de99927bfca59 Mon Sep 17 00:00:00 2001 From: Pau Ruiz Safont Date: Sat, 12 Sep 2020 22:00:46 +0100 Subject: fix ocaml highlights Function matching was wrongly parenthesized, parameter detection was too eager and it was wrongly matching all + and - as delimiters --- queries/ocaml/highlights.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/queries/ocaml/highlights.scm b/queries/ocaml/highlights.scm index 013f00d7f..e5ee92e1a 100644 --- a/queries/ocaml/highlights.scm +++ b/queries/ocaml/highlights.scm @@ -38,8 +38,12 @@ [(value_name) (type_variable)] @variable (let_binding pattern: (value_pattern) @variable) +(let_binding pattern: (tuple_pattern (value_pattern) @variable)) -(value_pattern) @parameter +(let_binding (parameter (label_name) @parameter)) +(let_binding (parameter (value_pattern) @parameter)) +(let_binding (parameter (typed_pattern (value_pattern) @parameter))) +(function_type (typed_label (label_name) @parameter)) ; Application ;------------ @@ -55,7 +59,7 @@ (#eq? @operator "|>")) (application_expression - function: (value_path (value_name)) @function) + function: (value_path (value_name) @function)) ( (value_name) @function.builtin @@ -140,7 +144,7 @@ (object_type ["<" ">"] @punctuation.bracket) [ - "," "." ";" ":" "=" "|" "~" "?" "+" "-" "!" ">" "&" + "," "." ";" ":" "=" "|" "~" "?" "!" ">" "&" "->" ";;" ":>" "+=" ":=" ".." ] @punctuation.delimiter -- cgit v1.2.3-70-g09d2