untangled-chrome-network.cljs

(ns ygq.popup.core
  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require [untangled.client.core :as uc]
            [cljs.core.async :as async :refer [<!]]
            [chrome.rpc :as rpc]
            [google.api :refer [get-auth-token]]
            [untangled.client.network :as un]))

(defrecord Network [complete-app]
  un/NetworkBehavior
  (serialize-requests? [this] true)

  un/UntangledNetwork
  (send [this edn ok error]
    (go
      (let [res (<! (rpc/send [:app/graph edn]))]
        (ok res))))

  (start [this app]
    (assoc this :complete-app app)))

(defn make-network [] (map->Network {}))

(defonce app
  (atom (uc/new-untangled-client
          :networking (make-network))))