/*
|
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,
|
'builtin-name':
|
// 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 SIMPLE_NUMBER_RE = '[-+]?\\d+(\\.\\d+)?';
|
|
const SYMBOL = {
|
begin: SYMBOL_RE,
|
relevance: 0
|
};
|
const NUMBER = {
|
className: 'number',
|
begin: SIMPLE_NUMBER_RE,
|
relevance: 0
|
};
|
const STRING = hljs.inherit(hljs.QUOTE_STRING_MODE, {
|
illegal: null
|
});
|
const COMMENT = hljs.COMMENT(
|
';',
|
'$',
|
{
|
relevance: 0
|
}
|
);
|
const LITERAL = {
|
className: 'literal',
|
begin: /\b(true|false|nil)\b/
|
};
|
const COLLECTION = {
|
begin: '[\\[\\{]',
|
end: '[\\]\\}]'
|
};
|
const HINT = {
|
className: 'comment',
|
begin: '\\^' + SYMBOL_RE
|
};
|
const HINT_COL = hljs.COMMENT('\\^\\{', '\\}');
|
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 = [
|
LIST,
|
STRING,
|
HINT,
|
HINT_COL,
|
COMMENT,
|
KEY,
|
COLLECTION,
|
NUMBER,
|
LITERAL,
|
SYMBOL
|
];
|
|
const GLOBAL = {
|
beginKeywords: globals,
|
lexemes: SYMBOL_RE,
|
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 = [
|
hljs.COMMENT('comment', ''),
|
GLOBAL,
|
NAME,
|
BODY
|
];
|
BODY.contains = DEFAULT_CONTAINS;
|
COLLECTION.contains = DEFAULT_CONTAINS;
|
HINT_COL.contains = [ COLLECTION ];
|
|
return {
|
name: 'Clojure',
|
aliases: [ 'clj' ],
|
illegal: /\S/,
|
contains: [
|
LIST,
|
STRING,
|
HINT,
|
HINT_COL,
|
COMMENT,
|
KEY,
|
COLLECTION,
|
NUMBER,
|
LITERAL
|
]
|
};
|
}
|
|
module.exports = clojure;
|
