vue-files-preview-inno
Version:
A tool for previewing files such as doc, excel, pdf, image, markdown, txt, audio, and video and so on.
88 lines (87 loc) • 3.69 kB
JavaScript
var r, g;
function N() {
if (g) return r;
g = 1;
function h(e) {
const o = "a-zA-Z_\\-!.?+*=<>&#'", t = "[" + o + "][" + o + "0-9/;:]*", b = {
$pattern: t,
built_in: (
// keywords
"!= % %= & &= * ** **= *= *map + += , --build-class-- --import-- -= . / // //= /= < << <<= <= = > >= >> >>= @ @= ^ ^= abs accumulate all and any ap-compose ap-dotimes ap-each ap-each-while ap-filter ap-first ap-if ap-last ap-map ap-map-when ap-pipe ap-reduce ap-reject apply as-> ascii assert assoc bin break butlast callable calling-module-name car case cdr chain chr coll? combinations compile compress cond cons cons? continue count curry cut cycle dec def default-method defclass defmacro defmacro-alias defmacro/g! defmain defmethod defmulti defn defn-alias defnc defnr defreader defseq del delattr delete-route dict-comp dir disassemble dispatch-reader-macro distinct divmod do doto drop drop-last drop-while empty? end-sequence eval eval-and-compile eval-when-compile even? every? except exec filter first flatten float? fn fnc fnr for for* format fraction genexpr gensym get getattr global globals group-by hasattr hash hex id identity if if* if-not if-python2 import in inc input instance? integer integer-char? integer? interleave interpose is is-coll is-cons is-empty is-even is-every is-float is-instance is-integer is-integer-char is-iterable is-iterator is-keyword is-neg is-none is-not is-numeric is-odd is-pos is-string is-symbol is-zero isinstance islice issubclass iter iterable? iterate iterator? keyword keyword? lambda last len let lif lif-not list* list-comp locals loop macro-error macroexpand macroexpand-1 macroexpand-all map max merge-with method-decorator min multi-decorator multicombinations name neg? next none? nonlocal not not-in not? nth numeric? oct odd? open or ord partition permutations pos? post-route postwalk pow prewalk print product profile/calls profile/cpu put-route quasiquote quote raise range read read-str recursive-replace reduce remove repeat repeatedly repr require rest round route route-with-methods rwm second seq set-comp setattr setv some sorted string string? sum switch symbol? take take-nth take-while tee try unless unquote unquote-splicing vars walk when while with with* with-decorator with-gensyms xi xor yield yield-from zero? zip zip-longest | |= ~"
)
}, y = "[-+]?\\d+(\\.\\d+)?", w = {
begin: t,
relevance: 0
}, s = {
className: "number",
begin: y,
relevance: 0
}, c = e.inherit(e.QUOTE_STRING_MODE, { illegal: null }), l = e.COMMENT(
";",
"$",
{ relevance: 0 }
), d = {
className: "literal",
begin: /\b([Tt]rue|[Ff]alse|nil|None)\b/
}, a = {
begin: "[\\[\\{]",
end: "[\\]\\}]",
relevance: 0
}, m = {
className: "comment",
begin: "\\^" + t
}, p = e.COMMENT("\\^\\{", "\\}"), u = {
className: "symbol",
begin: "[:]{1,2}" + t
}, n = {
begin: "\\(",
end: "\\)"
}, i = {
endsWithParent: !0,
relevance: 0
}, v = {
className: "name",
relevance: 0,
keywords: b,
begin: t,
starts: i
}, f = [
n,
c,
m,
p,
l,
u,
a,
s,
d,
w
];
return n.contains = [
e.COMMENT("comment", ""),
v,
i
], i.contains = f, a.contains = f, {
name: "Hy",
aliases: ["hylang"],
illegal: /\S/,
contains: [
e.SHEBANG(),
n,
c,
m,
p,
l,
u,
a,
s,
d
]
};
}
return r = h, r;
}
export {
N as __require
};
//# sourceMappingURL=hy.mjs.map