From d421a03cc170f6ee144a61062765975d806c590b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jure=20Podgor=C5=A1ek?= <jurij.podgorsek@dlabs.si>
Date: Tue, 7 Aug 2018 16:44:39 +0200
Subject: [PATCH] Fix license, bump deps

---
 project.clj          |  6 +++---
 src/sliva/core.cljs  |  6 ++----
 src/sliva/server.clj | 12 +++++++-----
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/project.clj b/project.clj
index bdde43d..18b64d1 100644
--- a/project.clj
+++ b/project.clj
@@ -2,7 +2,7 @@
   :description "interactive visualization"
   :url "https://kreten.si"
   :license {:name "GNU Affero General Public License"
-            :url "http://www.eclipse.org/legal/epl-v10.html"}
+            :url "https://www.gnu.org/licenses/agpl-3.0.en.html"}
 
 
 
@@ -12,8 +12,8 @@
                  [org.clojure/clojurescript "1.10.312"]
                  [org.clojure/core.async  "0.4.474"]
                  [jarohen/chord "0.8.1"]
-                 [ring "1.4.0"]
-                 [compojure "1.5.0"]]
+                 [ring "1.7.0-RC1"]
+                 [compojure "1.6.1"]]
 
   :plugins [[lein-figwheel "0.5.16"]
             [lein-cljsbuild "1.1.7" :exclusions [[org.clojure/clojure]]]]
diff --git a/src/sliva/core.cljs b/src/sliva/core.cljs
index 8c56dd2..5bf1e1a 100644
--- a/src/sliva/core.cljs
+++ b/src/sliva/core.cljs
@@ -140,7 +140,5 @@
 (.addEventListener js/window "resize" on-window-resize false)
 
 (.addEventListener js/window "click" (fn []
-                                       (console.log "kleek")
-                                       (console.log @vtic)
-                                       (go-loop []
-                                         (>! @vtic "WAT"))))
+                                       (go []
+                                         (>! @vtic "ping"))))
diff --git a/src/sliva/server.clj b/src/sliva/server.clj
index f396957..f34897e 100644
--- a/src/sliva/server.clj
+++ b/src/sliva/server.clj
@@ -5,8 +5,8 @@
             [ring.middleware.reload :refer [wrap-reload]]
             [chord.http-kit :refer [with-channel]]
             [org.httpkit.server :refer [run-server]]
-            [clojure.core.async :refer [chan <! >! put! close! go go-loop]]
-            [clojure.core :refer [string]]))
+            [clojure.core.async :refer [chan <! <!! >! put! close! go go-loop]]
+            [clojure.string :as str]))
 
 (defn socket-handler [request]
   (let [cid (java.util.UUID/randomUUID)]
@@ -17,11 +17,13 @@
           (>! ws-ch (str "Hello " cid))
           (go-loop []
             (let [{:keys [message]} (<! ws-ch)]
-              (let [[cmd & args] (split message #":")]
+              (println "GOT MSG!" message)
+              (let [[cmd & args] (str/split message #":")]
+                (println "command" cmd "(" args ")")
                 (condp = cmd
                   "ping" (>! ws-ch "pong")
-                  "echo" (>! ws-ch (str "pong" args))
-                  (println "Dunno what to do with command " cmd)))
+
+                  "Unknown command :/"))
               (recur))))))))
         ;;(close! ws-ch)))))