From 0a2972980f1248813bfa3191479241a63e9930bf Mon Sep 17 00:00:00 2001 From: may <63159454+m4rch3n1ng@users.noreply.github.com> Date: Sat, 4 Oct 2025 21:01:45 +0200 Subject: [PATCH] queries(scheme): properly highlight define-values (#14504) --- runtime/queries/scheme/highlights.scm | 46 +++++++++++++++++++++------ 1 file changed, 36 insertions(+), 10 deletions(-) diff --git a/runtime/queries/scheme/highlights.scm b/runtime/queries/scheme/highlights.scm index 772dcbf5c..ea35be5ea 100644 --- a/runtime/queries/scheme/highlights.scm +++ b/runtime/queries/scheme/highlights.scm @@ -46,7 +46,7 @@ . (list (symbol) @variable) - (#any-of? @_f "lambda" "λ")) + (#any-of? @_f "lambda" "λ" "define-values")) (list . @@ -70,7 +70,7 @@ ; operators ((symbol) @operator - (#match? @operator "^(\\+|-|\\*|/|=|>|<|>=|<=)$")) + (#any-of? @operator "+" "-" "*" "/" "=" ">" "<" ">=" "<=")) ; library @@ -94,19 +94,45 @@ (list . ((symbol) @keyword.conditional - (#match? @keyword.conditional "^(if|cond|case|when|unless)$" - ))) + (#any-of? @keyword.conditional "if" "cond" "case" "when" "unless"))) (list . (symbol) @keyword - (#match? @keyword - "^(define-syntax|let\\*|lambda|λ|case-lambda|case|=>|quote-splicing|unquote-splicing|set!|let|letrec|letrec-syntax|let-values|let\\*-values|do|else|define|cond|syntax-rules|unquote|begin|quote|let-syntax|and|if|quasiquote|letrec|delay|or|when|unless|identifier-syntax|assert|library|export|import|rename|only|except|prefix)$" - )) + (#any-of? @keyword + "define-syntax" "let*" "lambda" "λ" "case-lambda" "case" "=>" "quote-splicing" "unquote-splicing" + "set!" "let" "letrec" "letrec-syntax" "let-values" "let*-values" "do" "else" "define" "cond" + "syntax-rules" "unquote" "begin" "quote" "let-syntax" "and" "if" "quasiquote" "letrec" "delay" + "or" "when" "unless" "identifier-syntax" "assert" "library" "export" "import" "rename" "only" + "except" "prefix" "define-values")) (list . (symbol) @function.builtin - (#match? @function.builtin - "^(caar|cadr|call-with-input-file|call-with-output-file|cdar|cddr|list|open-input-file|open-output-file|with-input-from-file|with-output-to-file|\\*|\\+|-|/|<|<=|=|>|>=|abs|acos|angle|append|apply|asin|assoc|assq|assv|atan|boolean\\?|caaaar|caaadr|caaar|caadar|caaddr|caadr|cadaar|cadadr|cadar|caddar|cadddr|caddr|call-with-current-continuation|call-with-values|car|cdaaar|cdaadr|cdaar|cdadar|cdaddr|cdadr|cddaar|cddadr|cddar|cdddar|cddddr|cdddr|cdr|ceiling|char->integer|char-alphabetic\\?|char-ci<=\\?|char-ci<\\?|char-ci=\\?|char-ci>=\\?|char-ci>\\?|char-downcase|char-lower-case\\?|char-numeric\\?|char-ready\\?|char-upcase|char-upper-case\\?|char-whitespace\\?|char<=\\?|char<\\?|char=\\?|char>=\\?|char>\\?|char\\?|close-input-port|close-output-port|complex\\?|cons|cos|current-error-port|current-input-port|current-output-port|denominator|display|dynamic-wind|eof-object\\?|eq\\?|equal\\?|eqv\\?|eval|even\\?|exact->inexact|exact\\?|exp|expt|floor|flush-output|for-each|force|gcd|imag-part|inexact->exact|inexact\\?|input-port\\?|integer->char|integer\\?|interaction-environment|lcm|length|list->string|list->vector|list-ref|list-tail|list\\?|load|log|magnitude|make-polar|make-rectangular|make-string|make-vector|map|max|member|memq|memv|min|modulo|negative\\?|newline|not|null-environment|null\\?|number->string|number\\?|numerator|odd\\?|output-port\\?|pair\\?|peek-char|positive\\?|procedure\\?|quotient|rational\\?|rationalize|read|read-char|real-part|real\\?|remainder|reverse|round|scheme-report-environment|set-car!|set-cdr!|sin|sqrt|string|string->list|string->number|string->symbol|string-append|string-ci<=\\?|string-ci<\\?|string-ci=\\?|string-ci>=\\?|string-ci>\\?|string-copy|string-fill!|string-length|string-ref|string-set!|string<=\\?|string<\\?|string=\\?|string>=\\?|string>\\?|string\\?|substring|symbol->string|symbol\\?|tan|transcript-off|transcript-on|truncate|values|vector|vector->list|vector-fill!|vector-length|vector-ref|vector-set!|vector\\?|write|write-char|zero\\?)$" - )) + (#any-of? @function.builtin + "caar" "cadr" "call-with-input-file" "call-with-output-file" "cdar" "cddr" "list" + "open-input-file" "open-output-file" "with-input-from-file" "with-output-to-file" "*" "+" "-" + "/" "<" "<=" "=" ">" ">=" "abs" "acos" "angle" "append" "apply" "asin" "assoc" "assq" "assv" + "atan" "boolean?" "caaaar" "caaadr" "caaar" "caadar" "caaddr" "caadr" "cadaar" "cadadr" "cadar" + "caddar" "cadddr" "caddr" "call-with-current-continuation" "call-with-values" "car" "cdaaar" + "cdaadr" "cdaar" "cdadar" "cdaddr" "cdadr" "cddaar" "cddadr" "cddar" "cdddar" "cddddr" "cdddr" + "cdr" "ceiling" "char->integer" "char-alphabetic?" "char-ci<=?" "char-ci=?" "char-ci>?" "char-downcase" "char-lower-case?" "char-numeric?" "char-ready?" + "char-upcase" "char-upper-case?" "char-whitespace?" "char<=?" "char=?" + "char>?" "char?" "close-input-port" "close-output-port" "complex?" "cons" "cos" + "current-error-port" "current-input-port" "current-output-port" "denominator" "display" + "dynamic-wind" "eof-object?" "eq?" "equal?" "eqv?" "eval" "even?" "exact->inexact" "exact?" "exp" + "expt" "floor" "flush-output" "for-each" "force" "gcd" "imag-part" "inexact->exact" "inexact?" + "input-port?" "integer->char" "integer?" "interaction-environment" "lcm" "length" "list->string" + "list->vector" "list-ref" "list-tail" "list?" "load" "log" "magnitude" "make-polar" + "make-rectangular" "make-string" "make-vector" "map" "max" "member" "memq" "memv" "min" "modulo" + "negative?" "newline" "not" "null-environment" "null?" "number->string" "number?" "numerator" + "odd?" "output-port?" "pair?" "peek-char" "positive?" "procedure?" "quotient" "rational?" + "rationalize" "read" "read-char" "real-part" "real?" "remainder" "reverse" "round" + "scheme-report-environment" "set-car!" "set-cdr!" "sin" "sqrt" "string" "string->list" + "string->number" "string->symbol" "string-append" "string-ci<=?" "string-ci=?" "string-ci>?" "string-copy" "string-fill!" "string-length" "string-ref" + "string-set!" "string<=?" "string=?" "string>?" "string?" "substring" + "symbol->string" "symbol?" "tan" "transcript-off" "transcript-on" "truncate" "values" "vector" + "vector->list" "vector-fill!" "vector-length" "vector-ref" "vector-set!" "vector?" "write" + "write-char" "zero?"))