use prism-tomorrow.css

This commit is contained in:
CyC2018
2018-12-19 14:09:39 +08:00
parent 0f00bcacaf
commit e9e604e6a7
1747 changed files with 100462 additions and 0 deletions

View File

@ -0,0 +1,13 @@
#t
#f
----------------------------------------------------
[
["boolean", "#t"],
["boolean", "#f"]
]
----------------------------------------------------
Checks for booleans.

View File

@ -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.

View File

@ -0,0 +1,19 @@
#\a
#\space
#\u0041
#\λ
#\)
----------------------------------------------------
[
["character", "#\\a"],
["character", "#\\space"],
["character", "#\\u0041"],
["character", "#\\λ"],
["character", "#\\)"]
]
----------------------------------------------------
Checks for character literals.

View File

@ -0,0 +1,13 @@
;
; foobar
----------------------------------------------------
[
["comment", ";"],
["comment", "; foobar"]
]
----------------------------------------------------
Checks for comments.

View File

@ -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.

View File

@ -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

View File

@ -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.

View File

@ -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.

View File

@ -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.

View File

@ -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.