1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
!(function (e) {
function n(e) {
return RegExp('(\\()(?:' + e + ')(?=[\\s\\)])');
}
function a(e) {
return RegExp('([\\s([])(?:' + e + ')(?=[\\s)])');
}
var t = '(?!\\d)[-+*/~!@$%^=<>{}\\w]+',
r = '(\\()',
i = '(?=\\s)',
s =
'(?:[^()]|\\((?:[^()]|\\((?:[^()]|\\((?:[^()]|\\((?:[^()]|\\([^()]*\\))*\\))*\\))*\\))*\\))*',
l = {
heading: { pattern: /;;;.*/, alias: ['comment', 'title'] },
comment: /;.*/,
string: {
pattern: /"(?:[^"\\]|\\.)*"/,
greedy: !0,
inside: {
argument: /[-A-Z]+(?=[.,\s])/,
symbol: RegExp('`' + t + "'"),
},
},
'quoted-symbol': {
pattern: RegExp("#?'" + t),
alias: ['variable', 'symbol'],
},
'lisp-property': { pattern: RegExp(':' + t), alias: 'property' },
splice: { pattern: RegExp(',@?' + t), alias: ['symbol', 'variable'] },
keyword: [
{
pattern: RegExp(
r +
'(?:and|(?:cl-)?letf|cl-loop|cond|cons|error|if|(?:lexical-)?let\\*?|message|not|null|or|provide|require|setq|unless|use-package|when|while)' +
i
),
lookbehind: !0,
},
{
pattern: RegExp(
r + '(?:append|by|collect|concat|do|finally|for|in|return)' + i
),
lookbehind: !0,
},
],
declare: { pattern: n('declare'), lookbehind: !0, alias: 'keyword' },
interactive: {
pattern: n('interactive'),
lookbehind: !0,
alias: 'keyword',
},
boolean: { pattern: a('nil|t'), lookbehind: !0 },
number: { pattern: a('[-+]?\\d+(?:\\.\\d*)?'), lookbehind: !0 },
defvar: {
pattern: RegExp(r + 'def(?:const|custom|group|var)\\s+' + t),
lookbehind: !0,
inside: { keyword: /^def[a-z]+/, variable: RegExp(t) },
},
defun: {
pattern: RegExp(
r + '(?:cl-)?(?:defmacro|defun\\*?)\\s+' + t + '\\s+\\(' + s + '\\)'
),
lookbehind: !0,
greedy: !0,
inside: {
keyword: /^(?:cl-)?def\S+/,
arguments: null,
function: { pattern: RegExp('(^\\s)' + t), lookbehind: !0 },
punctuation: /[()]/,
},
},
lambda: {
pattern: RegExp(
r + 'lambda\\s+\\(\\s*(?:&?' + t + '(?:\\s+&?' + t + ')*\\s*)?\\)'
),
lookbehind: !0,
greedy: !0,
inside: { keyword: /^lambda/, arguments: null, punctuation: /[()]/ },
},
car: { pattern: RegExp(r + t), lookbehind: !0 },
punctuation: [
/(?:['`,]?\(|[)\[\]])/,
{ pattern: /(\s)\.(?=\s)/, lookbehind: !0 },
],
},
o = {
'lisp-marker': RegExp('&(?!\\d)[-+*/~!@$%^=<>{}\\w]+'),
varform: {
pattern: RegExp('\\(' + t + '\\s+(?=\\S)' + s + '\\)'),
inside: l,
},
argument: {
pattern: RegExp('(^|[\\s(])' + t),
lookbehind: !0,
alias: 'variable',
},
rest: l,
},
p = '\\S+(?:\\s+\\S+)*',
d = {
pattern: RegExp(r + s + '(?=\\))'),
lookbehind: !0,
inside: {
'rest-vars': { pattern: RegExp('&(?:body|rest)\\s+' + p), inside: o },
'other-marker-vars': {
pattern: RegExp('&(?:aux|optional)\\s+' + p),
inside: o,
},
keys: {
pattern: RegExp('&key\\s+' + p + '(?:\\s+&allow-other-keys)?'),
inside: o,
},
argument: { pattern: RegExp(t), alias: 'variable' },
punctuation: /[()]/,
},
};
(l.lambda.inside.arguments = d),
(l.defun.inside.arguments = e.util.clone(d)),
(l.defun.inside.arguments.inside.sublist = d),
(e.languages.lisp = l),
(e.languages.elisp = l),
(e.languages.emacs = l),
(e.languages['emacs-lisp'] = l);
})(Prism);
|
