gered/views
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

cleanup old commented out test code

Browse source
This commit is contained in:
Gered 2016-05-20 18:36:19 -04:00
parent e2dc232392
commit 172a165549
1 changed files with 0 additions and 53 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
src/views/core.clj
View file

@ -359,56 +359,3 @@
[] []
(stop-update-watcher!) (stop-update-watcher!)
(reset! view-system {})) (reset! view-system {}))
(comment
(defrecord SQLView [id query-fn]
IView
(id [_] id)
(data [_ namespace parameters]
(j/query (db/firm-connection namespace) (hsql/format (apply query-fn parameters))))
(relevant? [_ namespace parameters hints]
(let [tables (query-tables (apply query-fn parameters))]
(boolean (some #(not-empty (intersection % talbes)) hints)))))
(reset! in-memory-data {:a {:foo 1 :bar 200 :baz [1 2 3]}
:b {:foo 2 :bar 300 :baz [2 3 4]}})
(defrecord MemoryView [id ks]
IView
(id [_] id)
(data [_ namespace parameters]
(get-in @in-memory-data (-> [namespace] (into ks) (into parameters))))
(relevant? [_ namespace parameters hints]
(some #(and (= namespace (:namespace %)) (= ks (:hint %))) hints)))
(reset! view-system
{:views {:foo (MemoryView. :foo [:foo])
:bar (MemoryView. :bar [:bar])
:baz (MemoryView. :baz [:baz])}
:send-fn (fn [subscriber-key data] (println "sending to:" subscriber-key "data:" data))})
(subscribe! :a :foo [] 1)
(subscribe! :b :foo [] 2)
(subscribe! :b :baz [] 2)
(subscribed-views)
(add-hint! [:foo])
(add-hint! [:baz])
(refresh-views!)
;; Example of function that updates and hints the view system.
(defn massoc-in!
[memory-db namespace ks v]
(let [ms (swap! memory-db assoc-in (into [namespace] ks) v)]
(add-hint! ks)
ms))
(massoc-in! in-memory-data :a [:foo] 1)
(massoc-in! in-memory-data :b [:baz] [2 4 3])
(start-update-watcher! 1000 1)
)