gistfile1.clj

(ns switcher.core
  (:require [cljs.core.async :refer [put! chan <! >!]])

  (:require-macros [cljs.core.async.macros :refer [go go-loop]]))

(enable-console-print!)

(def NAME "s")

(def URL "https://nextdoor.com")

(defn getCookies []
  (let [out (chan)]
    (.get (.-cookies (.-chrome js/window)), #js {"name" NAME, "url" URL}, #(put! out (js->clj %)))
    out))

(defn listen [el type]
  (let [out (chan)]
    (dommy/listen! (sel1 el) type #(put! out {:event %, :el el}))
    out))

(defmulti handleUI :el)

(defmethod handleUI :#add [_]
  (let [c   (getCookies)
        out (chan)]

    (go (>! out (<! c))) out))


(defmethod handleUI :#reset [_]
  _)

(let [add     (listen :#add :click)
      reset   (listen :#reset :click)
      input   (cljs.core.async/merge [add reset])]

  (go (while true
        (prn (handleUI (<! input))))))