Unnamed repository; edit this file 'description' to name the repository.
Diffstat (limited to 'runtime/queries/scheme/highlights.scm')
| -rw-r--r-- | runtime/queries/scheme/highlights.scm | 156 |
1 files changed, 61 insertions, 95 deletions
diff --git a/runtime/queries/scheme/highlights.scm b/runtime/queries/scheme/highlights.scm index 288fcfe9..c7050847 100644 --- a/runtime/queries/scheme/highlights.scm +++ b/runtime/queries/scheme/highlights.scm @@ -10,129 +10,95 @@ (block_comment) @comment.block (directive) @keyword.directive -; variables - -((symbol) @variable.builtin - (#eq? @variable.builtin "...")) - -((symbol) @variable.builtin - (#eq? @variable.builtin ".")) - -(symbol) @variable - -["(" ")" "[" "]" "{" "}"] @punctuation.bracket +; operators -(quote "'") @operator -(unquote_splicing ",@") @operator -(unquote ",") @operator -(quasiquote "`") @operator +((symbol) @operator + (#match? @operator "^(\\+|-|\\*|/|=|>|<|>=|<=)$")) -; procedure +; keywords (list . - (symbol) @function) + ((symbol) @keyword.conditional + (#match? @keyword.conditional "^(if|cond|case|when|unless)$" + ))) + +(list + . + (symbol) @keyword + (#match? @keyword + "^(define-syntax|let\\*|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)$" + )) (list . (symbol) @function.builtin - (#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-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?")) + (#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\\?)$" + )) ; special forms (list - "[" - (symbol)+ @variable - "]") + "[" + (symbol)+ @variable + "]") (list - . - (symbol) @_f - . - (list - (symbol) @variable) - (#any-of? @_f "lambda" "λ" "define-values")) + . + (symbol) @_f + . + (list + (symbol) @variable) + (#eq? @_f "lambda")) (list - . - (symbol) @_f - (list - . - (list - (symbol) @variable)) - (#eq? @_f "case-lambda")) - -(list - . - (symbol) @_f - . - (list - (list - (symbol) @variable.parameter)) - (#any-of? @_f - "let" "let*" "let-syntax" "let-values" "let*-values" "letrec" "letrec*" "letrec-syntax" "do")) + . + (symbol) @_f + . + (list + (list + (symbol) @variable.parameter)) + (#match? @_f + "^(let|let\\*|let-syntax|let-values|let\\*-values|letrec|letrec\\*|letrec-syntax)$")) -; operators +; quote -((symbol) @operator - (#any-of? @operator "+" "-" "*" "/" "=" ">" "<" ">=" "<=")) +(list + . + (symbol) @_f + (#eq? @_f "quote")) @string.symbol ; library (list - . - (symbol) @_lib - . - (symbol) @namespace + . + (symbol) @_lib + . + (symbol) @namespace - (#eq? @_lib "library")) + (#eq? @_lib "library")) -; quote +; procedure (list . - (symbol) @_f - (#eq? @_f "quote")) @string.symbol + (symbol) @function) -; keywords +;; variables -(list - . - ((symbol) @keyword.conditional - (#any-of? @keyword.conditional "if" "cond" "case" "when" "unless"))) +((symbol) @variable.builtin + (#eq? @variable.builtin "...")) + +((symbol) @variable.builtin + (#eq? @variable.builtin ".")) + +(symbol) @variable + +["(" ")" "[" "]" "{" "}"] @punctuation.bracket + +(quote "'") @operator +(unquote_splicing ",@") @operator +(unquote ",") @operator +(quasiquote "`") @operator -(list - . - (symbol) @keyword - (#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")) |