RubyGems - AmberRack - Versions diffs - 0.1.0 - Mend

AmberRack 0.1.0

Files changed (198) hide show

data/.gitignore +74 -0
data/.rvmrc +4 -0
data/Gemfile +2 -0
data/Gemfile.lock +62 -0
data/README.md +17 -0
data/Rakefile +24 -0
data/amber-rack.gemspec +33 -0
data/app/amber_app.rb +35 -0
data/app/javascripts/Benchfib.deploy.js +159 -0
data/app/javascripts/Benchfib.js +159 -0
data/app/javascripts/Canvas.deploy.js +1464 -0
data/app/javascripts/Canvas.js +1464 -0
data/app/javascripts/Compiler.deploy.js +1587 -0
data/app/javascripts/Compiler.js +1587 -0
data/app/javascripts/Examples.deploy.js +800 -0
data/app/javascripts/Examples.js +800 -0
data/app/javascripts/IDE.deploy.js +3457 -0
data/app/javascripts/IDE.js +3457 -0
data/app/javascripts/IDE.js.bak +3420 -0
data/app/javascripts/JQuery.deploy.js +898 -0
data/app/javascripts/JQuery.js +898 -0
data/app/javascripts/Kernel.deploy.js +6761 -0
data/app/javascripts/Kernel.js +6761 -0
data/app/javascripts/Parser.deploy.js +1655 -0
data/app/javascripts/Parser.js +1655 -0
data/app/javascripts/Raphael-Core.js +0 -0
data/app/javascripts/Raphael-Graph.js +0 -0
data/app/javascripts/SUnit.deploy.js +1059 -0
data/app/javascripts/SUnit.js +1059 -0
data/app/javascripts/application.js +2 -0
data/app/javascripts/boot.js +466 -0
data/app/javascripts/init.js +2 -0
data/app/javascripts/jquery-1.4.4.min.js +167 -0
data/app/javascripts/jquery-ui-1.8.9.custom.min.js +781 -0
data/app/javascripts/jquery.textarea.js +267 -0
data/app/javascripts/jtalk.js +78 -0
data/app/javascripts/lib/CodeMirror/LICENSE +19 -0
data/app/javascripts/lib/CodeMirror/README.md +6 -0
data/app/javascripts/lib/CodeMirror/compress.html +92 -0
data/app/javascripts/lib/CodeMirror/css/baboon.png +0 -0
data/app/javascripts/lib/CodeMirror/css/baboon_vector.svg +153 -0
data/app/javascripts/lib/CodeMirror/css/docs.css +154 -0
data/app/javascripts/lib/CodeMirror/demo/activeline.html +72 -0
data/app/javascripts/lib/CodeMirror/demo/changemode.html +51 -0
data/app/javascripts/lib/CodeMirror/demo/complete.html +79 -0
data/app/javascripts/lib/CodeMirror/demo/complete.js +151 -0
data/app/javascripts/lib/CodeMirror/demo/fullscreen.html +158 -0
data/app/javascripts/lib/CodeMirror/demo/marker.html +53 -0
data/app/javascripts/lib/CodeMirror/demo/mustache.html +57 -0
data/app/javascripts/lib/CodeMirror/demo/preview.html +75 -0
data/app/javascripts/lib/CodeMirror/demo/resize.html +44 -0
data/app/javascripts/lib/CodeMirror/demo/runmode.html +50 -0
data/app/javascripts/lib/CodeMirror/demo/search.html +106 -0
data/app/javascripts/lib/CodeMirror/demo/theme.html +53 -0
data/app/javascripts/lib/CodeMirror/index.html +239 -0
data/app/javascripts/lib/CodeMirror/internals.html +389 -0
data/app/javascripts/lib/CodeMirror/lib/codemirror.css +67 -0
data/app/javascripts/lib/CodeMirror/lib/codemirror.js +2144 -0
data/app/javascripts/lib/CodeMirror/lib/overlay.js +51 -0
data/app/javascripts/lib/CodeMirror/lib/runmode.js +27 -0
data/app/javascripts/lib/CodeMirror/manual.html +854 -0
data/app/javascripts/lib/CodeMirror/mode/clike/clike.js +247 -0
data/app/javascripts/lib/CodeMirror/mode/clike/index.html +102 -0
data/app/javascripts/lib/CodeMirror/mode/css/css.js +124 -0
data/app/javascripts/lib/CodeMirror/mode/css/index.html +56 -0
data/app/javascripts/lib/CodeMirror/mode/diff/diff.css +3 -0
data/app/javascripts/lib/CodeMirror/mode/diff/diff.js +13 -0
data/app/javascripts/lib/CodeMirror/mode/diff/index.html +99 -0
data/app/javascripts/lib/CodeMirror/mode/haskell/haskell.js +242 -0
data/app/javascripts/lib/CodeMirror/mode/haskell/index.html +60 -0
data/app/javascripts/lib/CodeMirror/mode/htmlmixed/htmlmixed.js +79 -0
data/app/javascripts/lib/CodeMirror/mode/htmlmixed/index.html +52 -0
data/app/javascripts/lib/CodeMirror/mode/javascript/index.html +78 -0
data/app/javascripts/lib/CodeMirror/mode/javascript/javascript.js +348 -0
data/app/javascripts/lib/CodeMirror/mode/lua/index.html +72 -0
data/app/javascripts/lib/CodeMirror/mode/lua/lua.js +138 -0
data/app/javascripts/lib/CodeMirror/mode/php/index.html +49 -0
data/app/javascripts/lib/CodeMirror/mode/php/php.js +110 -0
data/app/javascripts/lib/CodeMirror/mode/plsql/index.html +63 -0
data/app/javascripts/lib/CodeMirror/mode/plsql/plsql.js +217 -0
data/app/javascripts/lib/CodeMirror/mode/python/LICENSE.txt +21 -0
data/app/javascripts/lib/CodeMirror/mode/python/index.html +123 -0
data/app/javascripts/lib/CodeMirror/mode/python/python.js +321 -0
data/app/javascripts/lib/CodeMirror/mode/rst/index.html +526 -0
data/app/javascripts/lib/CodeMirror/mode/rst/rst.css +75 -0
data/app/javascripts/lib/CodeMirror/mode/rst/rst.js +333 -0
data/app/javascripts/lib/CodeMirror/mode/scheme/index.html +65 -0
data/app/javascripts/lib/CodeMirror/mode/scheme/scheme.js +181 -0
data/app/javascripts/lib/CodeMirror/mode/smalltalk/index.html +56 -0
data/app/javascripts/lib/CodeMirror/mode/smalltalk/smalltalk.js +134 -0
data/app/javascripts/lib/CodeMirror/mode/sparql/index.html +41 -0
data/app/javascripts/lib/CodeMirror/mode/sparql/sparql.js +143 -0
data/app/javascripts/lib/CodeMirror/mode/stex/index.html +96 -0
data/app/javascripts/lib/CodeMirror/mode/stex/stex.js +167 -0
data/app/javascripts/lib/CodeMirror/mode/xml/index.html +42 -0
data/app/javascripts/lib/CodeMirror/mode/xml/xml.js +231 -0
data/app/javascripts/lib/CodeMirror/mode/yaml/index.html +68 -0
data/app/javascripts/lib/CodeMirror/mode/yaml/yaml.js +95 -0
data/app/javascripts/lib/CodeMirror/oldrelease.html +178 -0
data/app/javascripts/lib/CodeMirror/test/index.html +29 -0
data/app/javascripts/lib/CodeMirror/test/test.js +249 -0
data/app/javascripts/lib/CodeMirror/theme/default.css +18 -0
data/app/javascripts/lib/CodeMirror/theme/elegant.css +9 -0
data/app/javascripts/lib/CodeMirror/theme/jtalk.css +21 -0
data/app/javascripts/lib/CodeMirror/theme/neat.css +8 -0
data/app/javascripts/lib/CodeMirror/theme/night.css +20 -0
data/app/javascripts/lib/jQuery/jquery-1.4.4.min.js +167 -0
data/app/javascripts/lib/jQuery/jquery-ui-1.8.9.custom.min.js +781 -0
data/app/javascripts/lib/jQuery/jquery.textarea.js +267 -0
data/app/smalltalk/Canvas.st +481 -0
data/app/smalltalk/IDE.st +1752 -0
data/config.ru +2 -0
data/lib/amber-rack.rb +4 -0
data/lib/amber-rack/version.rb +3 -0
data/public/CodeMirror/LICENSE +19 -0
data/public/CodeMirror/README.md +6 -0
data/public/CodeMirror/compress.html +92 -0
data/public/CodeMirror/css/baboon.png +0 -0
data/public/CodeMirror/css/baboon_vector.svg +153 -0
data/public/CodeMirror/css/docs.css +154 -0
data/public/CodeMirror/demo/activeline.html +72 -0
data/public/CodeMirror/demo/changemode.html +51 -0
data/public/CodeMirror/demo/complete.html +79 -0
data/public/CodeMirror/demo/complete.js +151 -0
data/public/CodeMirror/demo/fullscreen.html +158 -0
data/public/CodeMirror/demo/marker.html +53 -0
data/public/CodeMirror/demo/mustache.html +57 -0
data/public/CodeMirror/demo/preview.html +75 -0
data/public/CodeMirror/demo/resize.html +44 -0
data/public/CodeMirror/demo/runmode.html +50 -0
data/public/CodeMirror/demo/search.html +106 -0
data/public/CodeMirror/demo/theme.html +53 -0
data/public/CodeMirror/index.html +239 -0
data/public/CodeMirror/internals.html +389 -0
data/public/CodeMirror/lib/codemirror.css +67 -0
data/public/CodeMirror/lib/codemirror.js +2144 -0
data/public/CodeMirror/lib/overlay.js +51 -0
data/public/CodeMirror/lib/runmode.js +27 -0
data/public/CodeMirror/manual.html +854 -0
data/public/CodeMirror/mode/clike/clike.js +247 -0
data/public/CodeMirror/mode/clike/index.html +102 -0
data/public/CodeMirror/mode/css/css.js +124 -0
data/public/CodeMirror/mode/css/index.html +56 -0
data/public/CodeMirror/mode/diff/diff.css +3 -0
data/public/CodeMirror/mode/diff/diff.js +13 -0
data/public/CodeMirror/mode/diff/index.html +99 -0
data/public/CodeMirror/mode/haskell/haskell.js +242 -0
data/public/CodeMirror/mode/haskell/index.html +60 -0
data/public/CodeMirror/mode/htmlmixed/htmlmixed.js +79 -0
data/public/CodeMirror/mode/htmlmixed/index.html +52 -0
data/public/CodeMirror/mode/javascript/index.html +78 -0
data/public/CodeMirror/mode/javascript/javascript.js +348 -0
data/public/CodeMirror/mode/lua/index.html +72 -0
data/public/CodeMirror/mode/lua/lua.js +138 -0
data/public/CodeMirror/mode/php/index.html +49 -0
data/public/CodeMirror/mode/php/php.js +110 -0
data/public/CodeMirror/mode/plsql/index.html +63 -0
data/public/CodeMirror/mode/plsql/plsql.js +217 -0
data/public/CodeMirror/mode/python/LICENSE.txt +21 -0
data/public/CodeMirror/mode/python/index.html +123 -0
data/public/CodeMirror/mode/python/python.js +321 -0
data/public/CodeMirror/mode/rst/index.html +526 -0
data/public/CodeMirror/mode/rst/rst.css +75 -0
data/public/CodeMirror/mode/rst/rst.js +333 -0
data/public/CodeMirror/mode/scheme/index.html +65 -0
data/public/CodeMirror/mode/scheme/scheme.js +181 -0
data/public/CodeMirror/mode/smalltalk/index.html +56 -0
data/public/CodeMirror/mode/smalltalk/smalltalk.js +134 -0
data/public/CodeMirror/mode/sparql/index.html +41 -0
data/public/CodeMirror/mode/sparql/sparql.js +143 -0
data/public/CodeMirror/mode/stex/index.html +96 -0
data/public/CodeMirror/mode/stex/stex.js +167 -0
data/public/CodeMirror/mode/xml/index.html +42 -0
data/public/CodeMirror/mode/xml/xml.js +231 -0
data/public/CodeMirror/mode/yaml/index.html +68 -0
data/public/CodeMirror/mode/yaml/yaml.js +95 -0
data/public/CodeMirror/oldrelease.html +178 -0
data/public/CodeMirror/test/index.html +29 -0
data/public/CodeMirror/test/test.js +249 -0
data/public/CodeMirror/theme/default.css +18 -0
data/public/CodeMirror/theme/elegant.css +9 -0
data/public/CodeMirror/theme/jtalk.css +21 -0
data/public/CodeMirror/theme/neat.css +8 -0
data/public/CodeMirror/theme/night.css +20 -0
data/public/css/jtalk.css +362 -0
data/public/css/style.css +456 -0
data/public/css/sunit.css +66 -0
data/public/ide/fork_me.png +0 -0
data/public/ide/screen2.png +0 -0
data/public/ide/style.css +456 -0
data/public/ide/syntax.css +61 -0
data/public/ide/text_header.png +0 -0
data/public/ide/title_container1.png +0 -0
data/public/images/background_box.png +0 -0
data/public/images/background_header.png +0 -0
data/public/images/balloon_header.png +0 -0
data/views/index.haml +66 -0
metadata +341 -0

data/app/javascripts/lib/CodeMirror/mode/css/index.html ADDED

@@ -0,0 +1,56 @@
+<!doctype html>
+<html>
+  <head>
+    <title>CodeMirror 2: CSS mode</title>
+    <link rel="stylesheet" href="../../lib/codemirror.css">
+    <script src="../../lib/codemirror.js"></script>
+    <script src="css.js"></script>
+    <link rel="stylesheet" href="../../theme/default.css">
+    <style>.CodeMirror {background: #f8f8f8;}</style>
+    <link rel="stylesheet" href="../../css/docs.css">
+  </head>
+  <body>
+    <h1>CodeMirror 2: CSS mode</h1>
+    <form><textarea id="code" name="code">
+/* Some example CSS */
+@import url("something.css");
+body {
+  margin: 0;
+  padding: 3em 6em;
+  font-family: tahoma, arial, sans-serif;
+  color: #000;
+}
+#navigation a {
+  font-weight: bold;
+  text-decoration: none !important;
+}
+h1 {
+  font-size: 2.5em;
+}
+h2 {
+  font-size: 1.7em;
+}
+h1:before, h2:before {
+  content: "::";
+}
+code {
+  font-family: courier, monospace;
+  font-size: 80%;
+  color: #418A8A;
+}
+</textarea></form>
+    <script>
+      var editor = CodeMirror.fromTextArea(document.getElementById("code"), {});
+    </script>
+    <p><strong>MIME types defined:</strong> <code>text/css</code>.</p>
+  </body>
+</html>

data/app/javascripts/lib/CodeMirror/mode/diff/diff.css ADDED

@@ -0,0 +1,3 @@
+.cm-s-default span.cm-rangeinfo {color: #a0b;}
+.cm-s-default span.cm-minus {color: #a22;}
+.cm-s-default span.cm-plus {color: #2b2;}

data/app/javascripts/lib/CodeMirror/mode/diff/diff.js ADDED

@@ -0,0 +1,13 @@
+CodeMirror.defineMode("diff", function() {
+  return {
+    token: function(stream) {
+      var ch = stream.next();
+      stream.skipToEnd();
+      if (ch == "+") return "plus";
+      if (ch == "-") return "minus";
+      if (ch == "@") return "rangeinfo";
+    }
+  };
+});
+CodeMirror.defineMIME("text/x-diff", "diff");

data/app/javascripts/lib/CodeMirror/mode/diff/index.html ADDED

@@ -0,0 +1,99 @@
+<!doctype html>
+<html>
+  <head>
+    <title>CodeMirror 2: Diff mode</title>
+    <link rel="stylesheet" href="../../lib/codemirror.css">
+    <script src="../../lib/codemirror.js"></script>
+    <script src="diff.js"></script>
+    <link rel="stylesheet" href="diff.css">
+    <style>.CodeMirror {border-top: 1px solid #ddd; border-bottom: 1px solid #ddd;}</style>
+    <link rel="stylesheet" href="../../css/docs.css">
+  </head>
+  <body>
+    <h1>CodeMirror 2: Diff mode</h1>
+    <form><textarea id="code" name="code">
+diff --git a/index.html b/index.html
+index c1d9156..7764744 100644
+--- a/index.html
++++ b/index.html
+@@ -95,7 +95,8 @@ StringStream.prototype = {
+     <script>
+       var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
+         lineNumbers: true,
+-        autoMatchBrackets: true
++        autoMatchBrackets: true,
++      onGutterClick: function(x){console.log(x);}
+       });
+     </script>
+   </body>
+diff --git a/lib/codemirror.js b/lib/codemirror.js
+index 04646a9..9a39cc7 100644
+--- a/lib/codemirror.js
++++ b/lib/codemirror.js
+@@ -399,10 +399,16 @@ var CodeMirror = (function() {
+     }
+     function onMouseDown(e) {
+-      var start = posFromMouse(e), last = start;
++      var start = posFromMouse(e), last = start, target = e.target();
+       if (!start) return;
+       setCursor(start.line, start.ch, false);
+       if (e.button() != 1) return;
++      if (target.parentNode == gutter) {
++        if (options.onGutterClick)
++          options.onGutterClick(indexOf(gutter.childNodes, target) + showingFrom);
++        return;
++      }
++
+       if (!focused) onFocus();
+       e.stop();
+@@ -808,7 +814,7 @@ var CodeMirror = (function() {
+       for (var i = showingFrom; i < showingTo; ++i) {
+         var marker = lines[i].gutterMarker;
+         if (marker) html.push('<div class="' + marker.style + '">' + htmlEscape(marker.text) + '</div>');
+-        else html.push("<div>" + (options.lineNumbers ? i + 1 : "\u00a0") + "</div>");
++        else html.push("<div>" + (options.lineNumbers ? i + options.firstLineNumber : "\u00a0") + "</div>");
+       }
+       gutter.style.display = "none"; // TODO test whether this actually helps
+       gutter.innerHTML = html.join("");
+@@ -1371,10 +1377,8 @@ var CodeMirror = (function() {
+         if (option == "parser") setParser(value);
+         else if (option === "lineNumbers") setLineNumbers(value);
+         else if (option === "gutter") setGutter(value);
+-        else if (option === "readOnly") options.readOnly = value;
+-        else if (option === "indentUnit") {options.indentUnit = indentUnit = value; setParser(options.parser);}
+-        else if (/^(?:enterMode|tabMode|indentWithTabs|readOnly|autoMatchBrackets|undoDepth)$/.test(option)) options[option] = value;
+-        else throw new Error("Can't set option " + option);
++        else if (option === "indentUnit") {options.indentUnit = value; setParser(options.parser);}
++        else options[option] = value;
+       },
+       cursorCoords: cursorCoords,
+       undo: operation(undo),
+@@ -1402,7 +1406,8 @@ var CodeMirror = (function() {
+       replaceRange: operation(replaceRange),
+       operation: function(f){return operation(f)();},
+-      refresh: function(){updateDisplay([{from: 0, to: lines.length}]);}
++      refresh: function(){updateDisplay([{from: 0, to: lines.length}]);},
++      getInputField: function(){return input;}
+     };
+     return instance;
+   }
+@@ -1420,6 +1425,7 @@ var CodeMirror = (function() {
+     readOnly: false,
+     onChange: null,
+     onCursorActivity: null,
++    onGutterClick: null,
+     autoMatchBrackets: false,
+     workTime: 200,
+     workDelay: 300,
+</textarea></form>
+    <script>
+      var editor = CodeMirror.fromTextArea(document.getElementById("code"), {});
+    </script>
+    <p><strong>MIME types defined:</strong> <code>text/x-diff</code>.</p>
+  </body>
+</html>

data/app/javascripts/lib/CodeMirror/mode/haskell/haskell.js ADDED

@@ -0,0 +1,242 @@
+CodeMirror.defineMode("haskell", function(cmCfg, modeCfg) {
+  function switchState(source, setState, f) {
+    setState(f);
+    return f(source, setState);
+  }
+  // These should all be Unicode extended, as per the Haskell 2010 report
+  var smallRE = /[a-z_]/;
+  var largeRE = /[A-Z]/;
+  var digitRE = /[0-9]/;
+  var hexitRE = /[0-9A-Fa-f]/;
+  var octitRE = /[0-7]/;
+  var idRE = /[a-z_A-Z0-9']/;
+  var symbolRE = /[-!#$%&*+.\/<=>?@\\^|~:]/;
+  var specialRE = /[(),;[\]`{}]/;
+  var whiteCharRE = /[ \t\v\f]/; // newlines are handled in tokenizer
+  function normal(source, setState) {
+    if (source.eatWhile(whiteCharRE)) {
+      return null;
+    }
+    var ch = source.next();
+    if (specialRE.test(ch)) {
+      if (ch == '{' && source.eat('-')) {
+        var t = "comment";
+        if (source.eat('#')) {
+          t = "meta";
+        }
+        return switchState(source, setState, ncomment(t, 1));
+      }
+      return null;
+    }
+    if (ch == '\'') {
+      if (source.eat('\\')) {
+        source.next();  // should handle other escapes here
+      }
+      else {
+        source.next();
+      }
+      if (source.eat('\'')) {
+        return "string";
+      }
+      return "error";
+    }
+    if (ch == '"') {
+      return switchState(source, setState, stringLiteral);
+    }
+    if (largeRE.test(ch)) {
+      source.eatWhile(idRE);
+      if (source.eat('.')) {
+        return "qualifier";
+      }
+      return "variable-2";
+    }
+    if (smallRE.test(ch)) {
+      source.eatWhile(idRE);
+      return "variable";
+    }
+    if (digitRE.test(ch)) {
+      if (ch == '0') {
+        if (source.eat(/[xX]/)) {
+          source.eatWhile(hexitRE); // should require at least 1
+          return "integer";
+        }
+        if (source.eat(/[oO]/)) {
+          source.eatWhile(octitRE); // should require at least 1
+          return "number";
+        }
+      }
+      source.eatWhile(digitRE);
+      var t = "number";
+      if (source.eat('.')) {
+        t = "number";
+        source.eatWhile(digitRE); // should require at least 1
+      }
+      if (source.eat(/[eE]/)) {
+        t = "number";
+        source.eat(/[-+]/);
+        source.eatWhile(digitRE); // should require at least 1
+      }
+      return t;
+    }
+    if (symbolRE.test(ch)) {
+      if (ch == '-' && source.eat(/-/)) {
+        source.eatWhile(/-/);
+        if (!source.eat(symbolRE)) {
+          source.skipToEnd();
+          return "comment";
+        }
+      }
+      var t = "variable";
+      if (ch == ':') {
+        t = "variable-2";
+      }
+      source.eatWhile(symbolRE);
+      return t;
+    }
+    return "error";
+  }
+  function ncomment(type, nest) {
+    if (nest == 0) {
+      return normal;
+    }
+    return function(source, setState) {
+      var currNest = nest;
+      while (!source.eol()) {
+        var ch = source.next();
+        if (ch == '{' && source.eat('-')) {
+          ++currNest;
+        }
+        else if (ch == '-' && source.eat('}')) {
+          --currNest;
+          if (currNest == 0) {
+            setState(normal);
+            return type;
+          }
+        }
+      }
+      setState(ncomment(type, currNest));
+      return type;
+    }
+  }
+  function stringLiteral(source, setState) {
+    while (!source.eol()) {
+      var ch = source.next();
+      if (ch == '"') {
+        setState(normal);
+        return "string";
+      }
+      if (ch == '\\') {
+        if (source.eol() || source.eat(whiteCharRE)) {
+          setState(stringGap);
+          return "string";
+        }
+        if (source.eat('&')) {
+        }
+        else {
+          source.next(); // should handle other escapes here
+        }
+      }
+    }
+    setState(normal);
+    return "error";
+  }
+  function stringGap(source, setState) {
+    if (source.eat('\\')) {
+      return switchState(source, setState, stringLiteral);
+    }
+    source.next();
+    setState(normal);
+    return "error";
+  }
+  var wellKnownWords = (function() {
+    var wkw = {};
+    function setType(t) {
+      return function () {
+        for (var i = 0; i < arguments.length; i++)
+          wkw[arguments[i]] = t;
+      }
+    }
+    setType("keyword")(
+      "case", "class", "data", "default", "deriving", "do", "else", "foreign",
+      "if", "import", "in", "infix", "infixl", "infixr", "instance", "let",
+      "module", "newtype", "of", "then", "type", "where", "_");
+    setType("keyword")(
+      "\.\.", ":", "::", "=", "\\", "\"", "<-", "->", "@", "~", "=>");
+    setType("builtin")(
+      "!!", "$!", "$", "&&", "+", "++", "-", ".", "/", "/=", "<", "<=", "=<<",
+      "==", ">", ">=", ">>", ">>=", "^", "^^", "||", "*", "**");
+    setType("builtin")(
+      "Bool", "Bounded", "Char", "Double", "EQ", "Either", "Enum", "Eq",
+      "False", "FilePath", "Float", "Floating", "Fractional", "Functor", "GT",
+      "IO", "IOError", "Int", "Integer", "Integral", "Just", "LT", "Left",
+      "Maybe", "Monad", "Nothing", "Num", "Ord", "Ordering", "Rational", "Read",
+      "ReadS", "Real", "RealFloat", "RealFrac", "Right", "Show", "ShowS",
+      "String", "True");
+    setType("builtin")(
+      "abs", "acos", "acosh", "all", "and", "any", "appendFile", "asTypeOf",
+      "asin", "asinh", "atan", "atan2", "atanh", "break", "catch", "ceiling",
+      "compare", "concat", "concatMap", "const", "cos", "cosh", "curry",
+      "cycle", "decodeFloat", "div", "divMod", "drop", "dropWhile", "either",
+      "elem", "encodeFloat", "enumFrom", "enumFromThen", "enumFromThenTo",
+      "enumFromTo", "error", "even", "exp", "exponent", "fail", "filter",
+      "flip", "floatDigits", "floatRadix", "floatRange", "floor", "fmap",
+      "foldl", "foldl1", "foldr", "foldr1", "fromEnum", "fromInteger",
+      "fromIntegral", "fromRational", "fst", "gcd", "getChar", "getContents",
+      "getLine", "head", "id", "init", "interact", "ioError", "isDenormalized",
+      "isIEEE", "isInfinite", "isNaN", "isNegativeZero", "iterate", "last",
+      "lcm", "length", "lex", "lines", "log", "logBase", "lookup", "map",
+      "mapM", "mapM_", "max", "maxBound", "maximum", "maybe", "min", "minBound",
+      "minimum", "mod", "negate", "not", "notElem", "null", "odd", "or",
+      "otherwise", "pi", "pred", "print", "product", "properFraction",
+      "putChar", "putStr", "putStrLn", "quot", "quotRem", "read", "readFile",
+      "readIO", "readList", "readLn", "readParen", "reads", "readsPrec",
+      "realToFrac", "recip", "rem", "repeat", "replicate", "return", "reverse",
+      "round", "scaleFloat", "scanl", "scanl1", "scanr", "scanr1", "seq",
+      "sequence", "sequence_", "show", "showChar", "showList", "showParen",
+      "showString", "shows", "showsPrec", "significand", "signum", "sin",
+      "sinh", "snd", "span", "splitAt", "sqrt", "subtract", "succ", "sum",
+      "tail", "take", "takeWhile", "tan", "tanh", "toEnum", "toInteger",
+      "toRational", "truncate", "uncurry", "undefined", "unlines", "until",
+      "unwords", "unzip", "unzip3", "userError", "words", "writeFile", "zip",
+      "zip3", "zipWith", "zipWith3");
+    return wkw;
+  })();
+  return {
+    startState: function ()  { return { f: normal }; },
+    copyState:  function (s) { return { f: s.f }; },
+    token: function(stream, state) {
+      var t = state.f(stream, function(s) { state.f = s; });
+      var w = stream.current();
+      return (w in wellKnownWords) ? wellKnownWords[w] : t;
+    }
+  };
+});
+CodeMirror.defineMIME("text/x-haskell", "haskell");

data/app/javascripts/lib/CodeMirror/mode/haskell/index.html ADDED

@@ -0,0 +1,60 @@
+<!doctype html>
+<html>
+  <head>
+    <title>CodeMirror 2: Haskell mode</title>
+    <link rel="stylesheet" href="../../lib/codemirror.css">
+    <script src="../../lib/codemirror.js"></script>
+    <script src="haskell.js"></script>
+    <link rel="stylesheet" href="../../theme/elegant.css">
+    <style type="text/css">.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style>
+    <link rel="stylesheet" href="../../css/docs.css">
+  </head>
+  <body>
+    <h1>CodeMirror 2: Haskell mode</h1>
+<form><textarea id="code" name="code">
+module UniquePerms (
+    uniquePerms
+    )
+where
+-- | Find all unique permutations of a list where there might be duplicates.
+uniquePerms :: (Eq a) => [a] -> [[a]]
+uniquePerms = permBag . makeBag
+-- | An unordered collection where duplicate values are allowed,
+-- but represented with a single value and a count.
+type Bag a = [(a, Int)]
+makeBag :: (Eq a) => [a] -> Bag a
+makeBag [] = []
+makeBag (a:as) = mix a $ makeBag as
+  where
+    mix a []                        = [(a,1)]
+    mix a (bn@(b,n):bs) | a == b    = (b,n+1):bs
+                        | otherwise = bn : mix a bs
+permBag :: Bag a -> [[a]]
+permBag [] = [[]]
+permBag bs = concatMap (\(f,cs) -> map (f:) $ permBag cs) . oneOfEach $ bs
+  where
+    oneOfEach [] = []
+    oneOfEach (an@(a,n):bs) =
+        let bs' = if n == 1 then bs else (a,n-1):bs
+        in (a,bs') : mapSnd (an:) (oneOfEach bs)
+    apSnd f (a,b) = (a, f b)
+    mapSnd = map . apSnd
+</textarea></form>
+    <script>
+      var editor = CodeMirror.fromTextArea(document.getElementById("code"), {
+        lineNumbers: true,
+        matchBrackets: true,
+        theme: "elegant"
+      });
+    </script>
+    <p><strong>MIME types defined:</strong> <code>text/x-haskell</code>.</p>
+  </body>
+</html>