From a98b5ea6fe8e8cc98a55e0fd793e6e8660ea31c1 Mon Sep 17 00:00:00 2001
From: Armand Philippot <git@armandphilippot.com>
Date: Thu, 30 Dec 2021 19:47:21 +0100
Subject: chore: add prismjs for syntax highlighting

---
 public/prism/prism-scheme.min.js | 77 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 public/prism/prism-scheme.min.js

(limited to 'public/prism/prism-scheme.min.js')

diff --git a/public/prism/prism-scheme.min.js b/public/prism/prism-scheme.min.js
new file mode 100644
index 0000000..2bdd0fc
--- /dev/null
+++ b/public/prism/prism-scheme.min.js
@@ -0,0 +1,77 @@
+Prism.languages.scheme = {
+  comment:
+    /;.*|#;\s*(?:\((?:[^()]|\([^()]*\))*\)|\[(?:[^\[\]]|\[[^\[\]]*\])*\])|#\|(?:[^#|]|#(?!\|)|\|(?!#)|#\|(?:[^#|]|#(?!\|)|\|(?!#))*\|#)*\|#/,
+  string: { pattern: /"(?:[^"\\]|\\.)*"/, greedy: !0 },
+  symbol: { pattern: /'[^()\[\]#'\s]+/, greedy: !0 },
+  char: {
+    pattern:
+      /#\\(?:[ux][a-fA-F\d]+\b|[-a-zA-Z]+\b|[\uD800-\uDBFF][\uDC00-\uDFFF]|\S)/,
+    greedy: !0,
+  },
+  'lambda-parameter': [
+    {
+      pattern:
+        /((?:^|[^'`#])[(\[]lambda\s+)(?:[^|()\[\]'\s]+|\|(?:[^\\|]|\\.)*\|)/,
+      lookbehind: !0,
+    },
+    { pattern: /((?:^|[^'`#])[(\[]lambda\s+[(\[])[^()\[\]']+/, lookbehind: !0 },
+  ],
+  keyword: {
+    pattern:
+      /((?:^|[^'`#])[(\[])(?:begin|case(?:-lambda)?|cond(?:-expand)?|define(?:-library|-macro|-record-type|-syntax|-values)?|defmacro|delay(?:-force)?|do|else|except|export|guard|if|import|include(?:-ci|-library-declarations)?|lambda|let(?:rec)?(?:-syntax|-values|\*)?|let\*-values|only|parameterize|prefix|(?:quasi-?)?quote|rename|set!|syntax-(?:case|rules)|unless|unquote(?:-splicing)?|when)(?=[()\[\]\s]|$)/,
+    lookbehind: !0,
+  },
+  builtin: {
+    pattern:
+      /((?:^|[^'`#])[(\[])(?:abs|and|append|apply|assoc|ass[qv]|binary-port\?|boolean=?\?|bytevector(?:-append|-copy|-copy!|-length|-u8-ref|-u8-set!|\?)?|caar|cadr|call-with-(?:current-continuation|port|values)|call\/cc|car|cdar|cddr|cdr|ceiling|char(?:->integer|-ready\?|\?|<\?|<=\?|=\?|>\?|>=\?)|close-(?:input-port|output-port|port)|complex\?|cons|current-(?:error|input|output)-port|denominator|dynamic-wind|eof-object\??|eq\?|equal\?|eqv\?|error|error-object(?:-irritants|-message|\?)|eval|even\?|exact(?:-integer-sqrt|-integer\?|\?)?|expt|features|file-error\?|floor(?:-quotient|-remainder|\/)?|flush-output-port|for-each|gcd|get-output-(?:bytevector|string)|inexact\??|input-port(?:-open\?|\?)|integer(?:->char|\?)|lcm|length|list(?:->string|->vector|-copy|-ref|-set!|-tail|\?)?|make-(?:bytevector|list|parameter|string|vector)|map|max|member|memq|memv|min|modulo|negative\?|newline|not|null\?|number(?:->string|\?)|numerator|odd\?|open-(?:input|output)-(?:bytevector|string)|or|output-port(?:-open\?|\?)|pair\?|peek-char|peek-u8|port\?|positive\?|procedure\?|quotient|raise|raise-continuable|rational\?|rationalize|read-(?:bytevector|bytevector!|char|error\?|line|string|u8)|real\?|remainder|reverse|round|set-c[ad]r!|square|string(?:->list|->number|->symbol|->utf8|->vector|-append|-copy|-copy!|-fill!|-for-each|-length|-map|-ref|-set!|\?|<\?|<=\?|=\?|>\?|>=\?)?|substring|symbol(?:->string|\?|=\?)|syntax-error|textual-port\?|truncate(?:-quotient|-remainder|\/)?|u8-ready\?|utf8->string|values|vector(?:->list|->string|-append|-copy|-copy!|-fill!|-for-each|-length|-map|-ref|-set!|\?)?|with-exception-handler|write-(?:bytevector|char|string|u8)|zero\?)(?=[()\[\]\s]|$)/,
+    lookbehind: !0,
+  },
+  operator: {
+    pattern: /((?:^|[^'`#])[(\[])(?:[-+*%/]|[<>]=?|=>?)(?=[()\[\]\s]|$)/,
+    lookbehind: !0,
+  },
+  number: {
+    pattern: RegExp(
+      (function (r) {
+        for (var e in r)
+          r[e] = r[e].replace(/<[\w\s]+>/g, function (e) {
+            return '(?:' + r[e].trim() + ')';
+          });
+        return r[e];
+      })({
+        '<ureal dec>':
+          '\\d+(?:/\\d+)|(?:\\d+(?:\\.\\d*)?|\\.\\d+)(?:[esfdl][+-]?\\d+)?',
+        '<real dec>': '[+-]?<ureal dec>|[+-](?:inf|nan)\\.0',
+        '<imaginary dec>': '[+-](?:<ureal dec>|(?:inf|nan)\\.0)?i',
+        '<complex dec>':
+          '<real dec>(?:@<real dec>|<imaginary dec>)?|<imaginary dec>',
+        '<num dec>': '(?:#d(?:#[ei])?|#[ei](?:#d)?)?<complex dec>',
+        '<ureal box>': '[0-9a-f]+(?:/[0-9a-f]+)?',
+        '<real box>': '[+-]?<ureal box>|[+-](?:inf|nan)\\.0',
+        '<imaginary box>': '[+-](?:<ureal box>|(?:inf|nan)\\.0)?i',
+        '<complex box>':
+          '<real box>(?:@<real box>|<imaginary box>)?|<imaginary box>',
+        '<num box>': '#[box](?:#[ei])?|(?:#[ei])?#[box]<complex box>',
+        '<number>':
+          '(^|[()\\[\\]\\s])(?:<num dec>|<num box>)(?=[()\\[\\]\\s]|$)',
+      }),
+      'i'
+    ),
+    lookbehind: !0,
+  },
+  boolean: {
+    pattern: /(^|[()\[\]\s])#(?:[ft]|false|true)(?=[()\[\]\s]|$)/,
+    lookbehind: !0,
+  },
+  function: {
+    pattern:
+      /((?:^|[^'`#])[(\[])(?:[^|()\[\]'\s]+|\|(?:[^\\|]|\\.)*\|)(?=[()\[\]\s]|$)/,
+    lookbehind: !0,
+  },
+  identifier: {
+    pattern: /(^|[()\[\]\s])\|(?:[^\\|]|\\.)*\|(?=[()\[\]\s]|$)/,
+    lookbehind: !0,
+    greedy: !0,
+  },
+  punctuation: /[()\[\]']/,
+};
-- 
cgit v1.2.3