From 841e0e407a7d582eb3dc60c478244f5505c27c20 Mon Sep 17 00:00:00 2001
From: Fabian Jakobs <fabian.jakobs@web.de>
Date: Wed, 8 Jun 2011 13:01:14 +0000
Subject: [PATCH] add clojure to the demo list

---
 demo/demo.js |  9 +++++++++
 index.html   | 25 +++++++++++++++++++++++--
 2 files changed, 32 insertions(+), 2 deletions(-)

diff --git a/demo/demo.js b/demo/demo.js
index abe190c1..29068cd5 100644
--- a/demo/demo.js
+++ b/demo/demo.js
@@ -62,6 +62,7 @@ exports.launch = function(env) {
     var CCPPMode = require("ace/mode/c_cpp").Mode;
     var CoffeeMode = require("ace/mode/coffee").Mode;
     var PerlMode = require("ace/mode/perl").Mode;
+    var ClojureMode = require("ace/mode/clojure").Mode;
     var OcamlMode = require("ace/mode/ocaml").Mode;
     var SvgMode = require("ace/mode/svg").Mode;
     var TextileMode = require("ace/mode/textile").Mode;
@@ -145,6 +146,10 @@ exports.launch = function(env) {
     docs.perl.setMode(new PerlMode());
     docs.perl.setUndoManager(new UndoManager());
 
+    docs.clojure = new EditSession(document.getElementById("clojuretext").innerHTML);
+    docs.clojure.setMode(new ClojureMode());
+    docs.clojure.setUndoManager(new UndoManager());
+
     docs.ocaml = new EditSession(document.getElementById("ocamltext").innerHTML);
     docs.ocaml.setMode(new OcamlMode());
     docs.ocaml.setUndoManager(new UndoManager());
@@ -193,6 +198,7 @@ exports.launch = function(env) {
         c_cpp: new CCPPMode(),
         coffee: new CoffeeMode(),
         perl: new PerlMode(),
+        clojure: new ClojureMode(),
         ocaml: new OcamlMode(),
         csharp: new CSharpMode()
     };
@@ -267,6 +273,9 @@ exports.launch = function(env) {
         else if (mode instanceof PerlMode) {
             modeEl.value = "perl";
         }
+        else if (mode instanceof ClojureMode) {
+            modeEl.value = "clojure";
+        }
         else if (mode instanceof OcamlMode) {
             modeEl.value = "ocaml";
         }
diff --git a/index.html b/index.html
index 57f6333a..2b33b31e 100644
--- a/index.html
+++ b/index.html
@@ -31,6 +31,7 @@
           <option value="csharp">C#</option>
           <option value="c_cpp">C++</option>
           <option value="svg">SVG</option>
+          <option value="clojure">Clojure</option>
           <option value="ocaml">OCaml</option>
           <option value="textile">Textile</option>
         </select>
@@ -54,6 +55,7 @@
           <option value="c_cpp">C/C++</option>
           <option value="coffee">CoffeeScript</option>
           <option value="perl">Perl</option>
+          <option value="clojure">Clojure</option>
           <option value="ocaml">OCaml</option>
           <option value="csharp">C-Sharp</option>
           <option value="svg">SVG</option>
@@ -370,8 +372,7 @@ do ->
     this isnt: `just JavaScript`
     undefined</script>
 
-<script type="text/editor" id="perltext">
-#!/usr/bin/perl
+<script type="text/editor" id="perltext">#!/usr/bin/perl
 use strict;
 use warnings;
 my $num_primes = 0;
@@ -426,6 +427,26 @@ let sum_until_first_negative list =
       if x >= 0 then acc + x else r.return acc))
 </script>
 
+<script type="text/editor" id="clojuretext">(defn parting
+  "returns a String parting in a given language"
+  ([] (parting "World"))
+  ([name] (parting name "en"))
+  ([name language]
+    ; condp is similar to a case statement in other languages.
+    ; It is described in more detail later.
+    ; It is used here to take different actions based on whether the
+    ; parameter "language" is set to "en", "es" or something else.
+    (condp = language
+      "en" (str "Goodbye, " name)
+      "es" (str "Adios, " name)
+      (throw (IllegalArgumentException.
+        (str "unsupported language " language))))))
+
+(println (parting)) ; -> Goodbye, World
+(println (parting "Mark")) ; -> Goodbye, Mark
+(println (parting "Mark" "es")) ; -> Adios, Mark
+(println (parting "Mark", "xy")) ; -> java.lang.IllegalArgumentException: unsupported language xy</script>
+
 <script type="text/editor" id="svgtext"><svg
   width="800" height="600"
   xmlns="http://www.w3.org/2000/svg"