option to close loading spinner

Author: aweiksnar

resources/public/index.html

@@ -36,6 +36,7 @@
       <div id="clojure-spinner">
         <img src="/images/clojure-icon.gif" class="loader"/>
         <p>(loading)</p>
+        <p id="loader-close">&times</p>
       </div>
 
       <div id="about-container">

resources/public/main.css

@@ -267,6 +267,12 @@ er;
     color: rgba(0, 204, 255, 0.5);
 }
 
+#clojure-spinner #loader-close {
+    bottom: 0px;
+    cursor: pointer;
+    font-size: 20px;
+}
+
 .loader {
     position: absolute;
     top: 50%;

src/replme/cljs/loading_mesage.cljs

@@ -1,7 +1,7 @@
 (ns replme.cljs.loading-message
   (:require [cljs.core.async :refer [<! >! chan sub]]
             [replme.cljs.websocket :as ws])
-  (:use [jayq.core :only [$ fade-out append slide-down slide-up prop anim]])
+  (:use [jayq.core :only [$ fade-out on append slide-down slide-up prop anim]])
   (:require-macros [cljs.core.async.macros :refer [go-loop]]))
 
 (enable-console-print!)
@@ -18,7 +18,10 @@
   (let [console-out-sub (sub socket-out-pub :console (chan))
         command-out-sub (sub socket-out-pub :command (chan))
         loading-spinner ($ :#clojure-spinner)
-        loading-message ($ :#loading-message)]
+        loading-message ($ :#loading-message)
+        spinner-close ($ :#loader-close)]
+
+    (on spinner-close :click #(fade-out loading-spinner 500))
 
     (go-loop [msg (<! command-out-sub)]
       (if (= (:message msg) "REPL OK")