From 1e5777f4b648c48cdf708e5908fce9d220a34e50 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Sat, 5 Nov 2016 19:51:27 +0100
Subject: [PATCH] Add kvstore repo ns.

---
 src/uxbox/main/repo/kvstore.cljs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/uxbox/main/repo/kvstore.cljs

diff --git a/src/uxbox/main/repo/kvstore.cljs b/src/uxbox/main/repo/kvstore.cljs
new file mode 100644
index 0000000000..ba6406aa1b
--- /dev/null
+++ b/src/uxbox/main/repo/kvstore.cljs
@@ -0,0 +1,25 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; Copyright (c) 2016 Andrey Antukh <niwi@niwi.nz>
+
+(ns uxbox.main.repo.kvstore
+  "A main interface for access to remote resources."
+  (:require [beicon.core :as rx]
+            [uxbox.config :refer (url)]
+            [uxbox.main.repo.impl :refer (request send!)]
+            [uxbox.util.transit :as t]))
+
+(defmethod request :fetch/kvstore
+  [_ id]
+  (let [url (str url "/kvstore/" id)
+        params {:url url :method :get}]
+    (send! params)))
+
+(defmethod request :update/kvstore
+  [_ data]
+  (println ":update/kvstore" data)
+  (let [url (str url "/kvstore")
+        params {:url url :method :put :body data}]
+    (send! params)))