use prism-tomorrow.css
This commit is contained in:
@ -0,0 +1,13 @@
|
||||
#t
|
||||
#f
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["boolean", "#t"],
|
||||
["boolean", "#f"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for booleans.
|
@ -0,0 +1,53 @@
|
||||
(cons)
|
||||
(car)
|
||||
(cdr)
|
||||
(null?)
|
||||
(pair?)
|
||||
(boolean?)
|
||||
(eof-object?)
|
||||
(char?)
|
||||
(procedure?)
|
||||
(number?)
|
||||
(port?)
|
||||
(string?)
|
||||
(vector?)
|
||||
(symbol?)
|
||||
(bytevector?)
|
||||
(list)
|
||||
(call-with-current-continuation)
|
||||
(call/cc)
|
||||
(append)
|
||||
(abs)
|
||||
(apply)
|
||||
(eval)
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["punctuation", "("], ["builtin", "cons"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "car"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "cdr"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "null?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "pair?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "boolean?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "eof-object?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "char?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "procedure?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "number?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "port?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "string?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "vector?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "symbol?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "bytevector?"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "list"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "call-with-current-continuation"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "call/cc"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "append"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "abs"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "apply"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["builtin", "eval"], ["punctuation", ")"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for builtins.
|
@ -0,0 +1,19 @@
|
||||
#\a
|
||||
#\space
|
||||
#\u0041
|
||||
#\λ
|
||||
#\)
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["character", "#\\a"],
|
||||
["character", "#\\space"],
|
||||
["character", "#\\u0041"],
|
||||
["character", "#\\λ"],
|
||||
["character", "#\\)"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for character literals.
|
@ -0,0 +1,13 @@
|
||||
;
|
||||
; foobar
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["comment", ";"],
|
||||
["comment", "; foobar"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for comments.
|
@ -0,0 +1,21 @@
|
||||
(fl= 1 2)
|
||||
(flmin 2 3)
|
||||
(exact? 2)
|
||||
(inexact->exact 3)
|
||||
(!fact)
|
||||
(defined foo)
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["punctuation", "("], ["function", "fl="], ["number", "1"], ["number", "2"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "flmin"], ["number", "2"], ["number", "3"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "exact?"], ["number", "2"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "inexact->exact"], ["number", "3"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "!fact"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "defined"], " foo", ["punctuation", ")"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for functions.
|
@ -0,0 +1,12 @@
|
||||
(pair? '(1 2))
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["punctuation", "("], ["builtin", "pair?"],
|
||||
["punctuation", "'"], ["punctuation", "("], ["number", "1"], ["number", "2"], ["punctuation", ")"], ["punctuation", ")"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Tests that first number of a list is not highlighted as a function. See #1331
|
@ -0,0 +1,57 @@
|
||||
(define)
|
||||
(define-syntax)
|
||||
(define-library)
|
||||
(define-values)
|
||||
(case-lambda)
|
||||
(lambda)
|
||||
(let)
|
||||
(let*)
|
||||
(letrec)
|
||||
(let-values)
|
||||
(let*-values)
|
||||
(letrec-values)
|
||||
(else)
|
||||
(if)
|
||||
(cond)
|
||||
(begin)
|
||||
(delay)
|
||||
(delay-force)
|
||||
(parameterize)
|
||||
(guard)
|
||||
(set!)
|
||||
(quasi-quote)
|
||||
(quote)
|
||||
(syntax-rules)
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["punctuation", "("], ["keyword", "define"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "define-syntax"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "define-library"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "define-values"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "case-lambda"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "lambda"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "let"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "let*"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "letrec"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "let-values"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "let*-values"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "letrec-values"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "else"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "if"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "cond"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "begin"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "delay"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "delay-force"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "parameterize"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "guard"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "set!"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "quasi-quote"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "quote"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["keyword", "syntax-rules"], ["punctuation", ")"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for keywords.
|
@ -0,0 +1,19 @@
|
||||
(foo 42)
|
||||
(foo 3.14159)
|
||||
(foo 3+4i)
|
||||
(foo 2.5+0.0i)
|
||||
(foo 3+0i)
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["punctuation", "("], ["function", "foo"], ["number", "42"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "foo"], ["number", "3.14159"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "foo"], ["number", "3+4i"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "foo"], ["number", "2.5+0.0i"], ["punctuation", ")"],
|
||||
["punctuation", "("], ["function", "foo"], ["number", "3+0i"], ["punctuation", ")"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for numbers and complex numbers.
|
@ -0,0 +1,31 @@
|
||||
(+
|
||||
(-
|
||||
(*
|
||||
(/
|
||||
(%
|
||||
(<
|
||||
(<=
|
||||
(>
|
||||
(>=
|
||||
(=
|
||||
(=>
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["punctuation", "("], ["operator", "+"],
|
||||
["punctuation", "("], ["operator", "-"],
|
||||
["punctuation", "("], ["operator", "*"],
|
||||
["punctuation", "("], ["operator", "/"],
|
||||
["punctuation", "("], ["operator", "%"],
|
||||
["punctuation", "("], ["operator", "<"],
|
||||
["punctuation", "("], ["operator", "<="],
|
||||
["punctuation", "("], ["operator", ">"],
|
||||
["punctuation", "("], ["operator", ">="],
|
||||
["punctuation", "("], ["operator", "="],
|
||||
["punctuation", "("], ["operator", "=>"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for operators.
|
@ -0,0 +1,17 @@
|
||||
""
|
||||
"fo\"obar"
|
||||
'turkey
|
||||
(define a 'foo)
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
[
|
||||
["string", "\"\""],
|
||||
["string", "\"fo\\\"obar\""],
|
||||
["string", "'turkey"],
|
||||
["punctuation", "("], ["keyword", "define"], " a ", ["string","'foo"], ["punctuation",")"]
|
||||
]
|
||||
|
||||
----------------------------------------------------
|
||||
|
||||
Checks for strings and symbols.
|
Reference in New Issue
Block a user