fix
This commit is contained in:
184
book/node_modules/highlight.js/lib/languages/clojure.js
generated
vendored
Normal file
184
book/node_modules/highlight.js/lib/languages/clojure.js
generated
vendored
Normal file
@ -0,0 +1,184 @@
|
||||
/*
|
||||
Language: Clojure
|
||||
Description: Clojure syntax (based on lisp.js)
|
||||
Author: mfornos
|
||||
Website: https://clojure.org
|
||||
Category: lisp
|
||||
*/
|
||||
|
||||
/** @type LanguageFn */
|
||||
function clojure(hljs) {
|
||||
const SYMBOLSTART = 'a-zA-Z_\\-!.?+*=<>&\'';
|
||||
const SYMBOL_RE = '[#]?[' + SYMBOLSTART + '][' + SYMBOLSTART + '0-9/;:$#]*';
|
||||
const globals = 'def defonce defprotocol defstruct defmulti defmethod defn- defn defmacro deftype defrecord';
|
||||
const keywords = {
|
||||
$pattern: SYMBOL_RE,
|
||||
built_in:
|
||||
// Clojure keywords
|
||||
globals + ' '
|
||||
+ 'cond apply if-not if-let if not not= =|0 <|0 >|0 <=|0 >=|0 ==|0 +|0 /|0 *|0 -|0 rem '
|
||||
+ 'quot neg? pos? delay? symbol? keyword? true? false? integer? empty? coll? list? '
|
||||
+ 'set? ifn? fn? associative? sequential? sorted? counted? reversible? number? decimal? '
|
||||
+ 'class? distinct? isa? float? rational? reduced? ratio? odd? even? char? seq? vector? '
|
||||
+ 'string? map? nil? contains? zero? instance? not-every? not-any? libspec? -> ->> .. . '
|
||||
+ 'inc compare do dotimes mapcat take remove take-while drop letfn drop-last take-last '
|
||||
+ 'drop-while while intern condp case reduced cycle split-at split-with repeat replicate '
|
||||
+ 'iterate range merge zipmap declare line-seq sort comparator sort-by dorun doall nthnext '
|
||||
+ 'nthrest partition eval doseq await await-for let agent atom send send-off release-pending-sends '
|
||||
+ 'add-watch mapv filterv remove-watch agent-error restart-agent set-error-handler error-handler '
|
||||
+ 'set-error-mode! error-mode shutdown-agents quote var fn loop recur throw try monitor-enter '
|
||||
+ 'monitor-exit macroexpand macroexpand-1 for dosync and or '
|
||||
+ 'when when-not when-let comp juxt partial sequence memoize constantly complement identity assert '
|
||||
+ 'peek pop doto proxy first rest cons cast coll last butlast '
|
||||
+ 'sigs reify second ffirst fnext nfirst nnext meta with-meta ns in-ns create-ns import '
|
||||
+ 'refer keys select-keys vals key val rseq name namespace promise into transient persistent! conj! '
|
||||
+ 'assoc! dissoc! pop! disj! use class type num float double short byte boolean bigint biginteger '
|
||||
+ 'bigdec print-method print-dup throw-if printf format load compile get-in update-in pr pr-on newline '
|
||||
+ 'flush read slurp read-line subvec with-open memfn time re-find re-groups rand-int rand mod locking '
|
||||
+ 'assert-valid-fdecl alias resolve ref deref refset swap! reset! set-validator! compare-and-set! alter-meta! '
|
||||
+ 'reset-meta! commute get-validator alter ref-set ref-history-count ref-min-history ref-max-history ensure sync io! '
|
||||
+ 'new next conj set! to-array future future-call into-array aset gen-class reduce map filter find empty '
|
||||
+ 'hash-map hash-set sorted-map sorted-map-by sorted-set sorted-set-by vec vector seq flatten reverse assoc dissoc list '
|
||||
+ 'disj get union difference intersection extend extend-type extend-protocol int nth delay count concat chunk chunk-buffer '
|
||||
+ 'chunk-append chunk-first chunk-rest max min dec unchecked-inc-int unchecked-inc unchecked-dec-inc unchecked-dec unchecked-negate '
|
||||
+ 'unchecked-add-int unchecked-add unchecked-subtract-int unchecked-subtract chunk-next chunk-cons chunked-seq? prn vary-meta '
|
||||
+ 'lazy-seq spread list* str find-keyword keyword symbol gensym force rationalize'
|
||||
};
|
||||
|
||||
const SYMBOL = {
|
||||
begin: SYMBOL_RE,
|
||||
relevance: 0
|
||||
};
|
||||
const NUMBER = {
|
||||
scope: 'number',
|
||||
relevance: 0,
|
||||
variants: [
|
||||
{ match: /[-+]?0[xX][0-9a-fA-F]+N?/ }, // hexadecimal // 0x2a
|
||||
{ match: /[-+]?0[0-7]+N?/ }, // octal // 052
|
||||
{ match: /[-+]?[1-9][0-9]?[rR][0-9a-zA-Z]+N?/ }, // variable radix from 2 to 36 // 2r101010, 8r52, 36r16
|
||||
{ match: /[-+]?[0-9]+\/[0-9]+N?/ }, // ratio // 1/2
|
||||
{ match: /[-+]?[0-9]+((\.[0-9]*([eE][+-]?[0-9]+)?M?)|([eE][+-]?[0-9]+M?|M))/ }, // float // 0.42 4.2E-1M 42E1 42M
|
||||
{ match: /[-+]?([1-9][0-9]*|0)N?/ }, // int (don't match leading 0) // 42 42N
|
||||
]
|
||||
};
|
||||
const CHARACTER = {
|
||||
scope: 'character',
|
||||
variants: [
|
||||
{ match: /\\o[0-3]?[0-7]{1,2}/ }, // Unicode Octal 0 - 377
|
||||
{ match: /\\u[0-9a-fA-F]{4}/ }, // Unicode Hex 0000 - FFFF
|
||||
{ match: /\\(newline|space|tab|formfeed|backspace|return)/ }, // special characters
|
||||
{
|
||||
match: /\\\S/,
|
||||
relevance: 0
|
||||
} // any non-whitespace char
|
||||
]
|
||||
};
|
||||
const REGEX = {
|
||||
scope: 'regex',
|
||||
begin: /#"/,
|
||||
end: /"/,
|
||||
contains: [ hljs.BACKSLASH_ESCAPE ]
|
||||
};
|
||||
const STRING = hljs.inherit(hljs.QUOTE_STRING_MODE, { illegal: null });
|
||||
const COMMA = {
|
||||
scope: 'punctuation',
|
||||
match: /,/,
|
||||
relevance: 0
|
||||
};
|
||||
const COMMENT = hljs.COMMENT(
|
||||
';',
|
||||
'$',
|
||||
{ relevance: 0 }
|
||||
);
|
||||
const LITERAL = {
|
||||
className: 'literal',
|
||||
begin: /\b(true|false|nil)\b/
|
||||
};
|
||||
const COLLECTION = {
|
||||
begin: "\\[|(#::?" + SYMBOL_RE + ")?\\{",
|
||||
end: '[\\]\\}]',
|
||||
relevance: 0
|
||||
};
|
||||
const KEY = {
|
||||
className: 'symbol',
|
||||
begin: '[:]{1,2}' + SYMBOL_RE
|
||||
};
|
||||
const LIST = {
|
||||
begin: '\\(',
|
||||
end: '\\)'
|
||||
};
|
||||
const BODY = {
|
||||
endsWithParent: true,
|
||||
relevance: 0
|
||||
};
|
||||
const NAME = {
|
||||
keywords: keywords,
|
||||
className: 'name',
|
||||
begin: SYMBOL_RE,
|
||||
relevance: 0,
|
||||
starts: BODY
|
||||
};
|
||||
const DEFAULT_CONTAINS = [
|
||||
COMMA,
|
||||
LIST,
|
||||
CHARACTER,
|
||||
REGEX,
|
||||
STRING,
|
||||
COMMENT,
|
||||
KEY,
|
||||
COLLECTION,
|
||||
NUMBER,
|
||||
LITERAL,
|
||||
SYMBOL
|
||||
];
|
||||
|
||||
const GLOBAL = {
|
||||
beginKeywords: globals,
|
||||
keywords: {
|
||||
$pattern: SYMBOL_RE,
|
||||
keyword: globals
|
||||
},
|
||||
end: '(\\[|#|\\d|"|:|\\{|\\)|\\(|$)',
|
||||
contains: [
|
||||
{
|
||||
className: 'title',
|
||||
begin: SYMBOL_RE,
|
||||
relevance: 0,
|
||||
excludeEnd: true,
|
||||
// we can only have a single title
|
||||
endsParent: true
|
||||
}
|
||||
].concat(DEFAULT_CONTAINS)
|
||||
};
|
||||
|
||||
LIST.contains = [
|
||||
GLOBAL,
|
||||
NAME,
|
||||
BODY
|
||||
];
|
||||
BODY.contains = DEFAULT_CONTAINS;
|
||||
COLLECTION.contains = DEFAULT_CONTAINS;
|
||||
|
||||
return {
|
||||
name: 'Clojure',
|
||||
aliases: [
|
||||
'clj',
|
||||
'edn'
|
||||
],
|
||||
illegal: /\S/,
|
||||
contains: [
|
||||
COMMA,
|
||||
LIST,
|
||||
CHARACTER,
|
||||
REGEX,
|
||||
STRING,
|
||||
COMMENT,
|
||||
KEY,
|
||||
COLLECTION,
|
||||
NUMBER,
|
||||
LITERAL
|
||||
]
|
||||
};
|
||||
}
|
||||
|
||||
module.exports = clojure;
|
||||
Reference in New Issue
Block a user