Add character higlighting to clojure mode.

Author: nbeloglazov

mode/clojure/clojure.js

@@ -3,7 +3,7 @@
  * Branched from CodeMirror's Scheme mode (by Koh Zi Han, based on implementation by Koh Zi Chun)
  */
 CodeMirror.defineMode("clojure", function () {
-    var BUILTIN = "builtin", COMMENT = "comment", STRING = "string",
+    var BUILTIN = "builtin", COMMENT = "comment", STRING = "string", CHARACTER = "string-2",
         ATOM = "atom", NUMBER = "number", BRACKET = "bracket", KEYWORD = "keyword";
     var INDENT_WORD_SKIP = 2;
 
@@ -95,6 +95,20 @@ CodeMirror.defineMode("clojure", function () {
         return false;
     }
 
+    // Eat character that starts after backslash \
+    function eatCharacter(stream) {
+        var first = stream.next();
+        // Read special literals: backspace, newline, space, return.
+        // Just read all lowercase letters.
+        if (first.match(/[a-z]/) && stream.match(/[a-z]+/, true)) {
+            return;
+        }
+        // Read unicode character: \u1000 \uA0a1
+        if (first === "u") {
+            stream.match(/[0-9a-z]{4}/i, true);
+        }
+    }
+
     return {
         startState: function () {
             return {
@@ -135,6 +149,9 @@ CodeMirror.defineMode("clojure", function () {
                     if (ch == "\"") {
                         state.mode = "string";
                         returnType = STRING;
+                    } else if (ch == "\\") {
+                        eatCharacter(stream);
+                        returnType = CHARACTER;
                     } else if (ch == "'" && !( tests.digit_or_colon.test(stream.peek()) )) {
                         returnType = ATOM;
                     } else if (ch == ";") { // comment

mode/clojure/index.html

@@ -21,13 +21,13 @@ <h1>CodeMirror: Clojure mode</h1>
 
 ;; Core game of life's algorithm functions
 
-(defn neighbours 
+(defn neighbours
   "Given a cell's coordinates, returns the coordinates of its neighbours."
   [[x y]]
   (for [dx [-1 0 1] dy (if (zero? dx) [-1 1] [-1 0 1])]
     [(+ dx x) (+ dy y)]))
 
-(defn step 
+(defn step
   "Given a set of living cells, computes the new set of living cells."
   [cells]
   (set (for [[cell n] (frequencies (mapcat neighbours cells))
@@ -36,14 +36,14 @@ <h1>CodeMirror: Clojure mode</h1>
 
 ;; Utility methods for displaying game on a text terminal
 
-(defn print-board 
+(defn print-board
   "Prints a board on *out*, representing a step in the game."
   [board w h]
   (doseq [x (range (inc w)) y (range (inc h))]
-    (if (= y 0) (print "\n")) 
+    (if (= y 0) (print "\n"))
     (print (if (board [x y]) "[X]" " . "))))
 
-(defn display-grids 
+(defn display-grids
   "Prints a squence of boards on *out*, representing several steps."
   [grids w h]
   (doseq [board grids]
@@ -52,11 +52,20 @@ <h1>CodeMirror: Clojure mode</h1>
 
 ;; Launches an example board
 
-(def 
+(def
   ^{:doc "board represents the initial set of living cells"}
    board #{[2 1] [2 2] [2 3]})
 
-(display-grids (take 3 (iterate step board)) 5 5) </textarea></form>
+(display-grids (take 3 (iterate step board)) 5 5)
+
+;; Let's play with characters
+(println \1 \a \# \\
+         \" \( \newline
+         \} \" \space
+         \tab \return \backspace
+         \u1000 \uAaAa \u9F9F)
+
+</textarea></form>
     <script>
       var editor = CodeMirror.fromTextArea(document.getElementById("code"), {});
     </script>