git.fiddlerwoaroof.com
Browse code

Improving Lisp highlighting

Ed L authored on 09/05/2016 02:48:15
Showing 1 changed files
... ...
@@ -13,7 +13,7 @@
13 13
 
14 14
 CodeMirror.defineMode("commonlisp", function (config) {
15 15
   var specialForm = /^(block|let*|return-from|catch|load-time-value|setq|eval-when|locally|symbol-macrolet|flet|macrolet|tagbody|function|multiple-value-call|the|go|multiple-value-prog1|throw|if|progn|unwind-protect|labels|progv|let|quote)$/;
16
-  var assumeBody = /^with|^def|^do|^prog|case$|^cond$|bind$|when$|unless$/;
16
+  var assumeBody = /^with|(^|[:])def(?!ault)|^do|^prog|case$|^cond$|bind$|when$|unless$/;
17 17
   var numLiteral = /^(?:[+\-]?(?:\d+|\d*\.\d+)(?:[efd][+\-]?\d+)?|[+\-]?\d+(?:\/[+\-]?\d+)?|#b[+\-]?[01]+|#o[+\-]?[0-7]+|#x[+\-]?[\da-f]+)/;
18 18
   var symbol = /[^\s'`,@()\[\]";]/;
19 19
   var type;