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
|
!(function (e) {
function n(e) {
return RegExp('(\\()(?:' + e + ')(?=[\\s\\)])');
}
function a(e) {
return RegExp('([\\s([])(?:' + e + ')(?=[\\s)])');
}
var t = '(?!\\d)[-+*/~!@$%^=<>{}\\w]+',
r = '(\\()',
i =
'(?:[^()]|\\((?:[^()]|\\((?:[^()]|\\((?:[^()]|\\((?:[^()]|\\([^()]*\\))*\\))*\\))*\\))*\\))*',
s = {
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(
'(\\()(?:and|(?:cl-)?letf|cl-loop|cond|cons|error|if|(?:lexical-)?let\\*?|message|not|null|or|provide|require|setq|unless|use-package|when|while)(?=\\s)'
),
lookbehind: !0,
},
{
pattern: RegExp(
'(\\()(?:append|by|collect|concat|do|finally|for|in|return)(?=\\s)'
),
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('(\\()def(?:const|custom|group|var)\\s+' + t),
lookbehind: !0,
inside: { keyword: /^def[a-z]+/, variable: RegExp(t) },
},
defun: {
pattern: RegExp(
'(\\()(?:cl-)?(?:defmacro|defun\\*?)\\s+' + t + '\\s+\\(' + i + '\\)'
),
lookbehind: !0,
greedy: !0,
inside: {
keyword: /^(?:cl-)?def\S+/,
arguments: null,
function: { pattern: RegExp('(^\\s)' + t), lookbehind: !0 },
punctuation: /[()]/,
},
},
lambda: {
pattern: RegExp(
'(\\()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 },
],
},
l = {
'lisp-marker': RegExp('&(?!\\d)[-+*/~!@$%^=<>{}\\w]+'),
varform: {
pattern: RegExp('\\(' + t + '\\s+(?=\\S)' + i + '\\)'),
inside: s,
},
argument: {
pattern: RegExp('(^|[\\s(])' + t),
lookbehind: !0,
alias: 'variable',
},
rest: s,
},
o = '\\S+(?:\\s+\\S+)*',
p = {
pattern: RegExp(r + i + '(?=\\))'),
lookbehind: !0,
inside: {
'rest-vars': { pattern: RegExp('&(?:body|rest)\\s+' + o), inside: l },
'other-marker-vars': {
pattern: RegExp('&(?:aux|optional)\\s+' + o),
inside: l,
},
keys: {
pattern: RegExp('&key\\s+' + o + '(?:\\s+&allow-other-keys)?'),
inside: l,
},
argument: { pattern: RegExp(t), alias: 'variable' },
punctuation: /[()]/,
},
};
(s.lambda.inside.arguments = p),
(s.defun.inside.arguments = e.util.clone(p)),
(s.defun.inside.arguments.inside.sublist = p),
(e.languages.lisp = s),
(e.languages.elisp = s),
(e.languages.emacs = s),
(e.languages['emacs-lisp'] = s);
})(Prism);
|
