63 lines
1.8 KiB
Clojure
63 lines
1.8 KiB
Clojure
|
(ns grub.db
|
||
|
|
(:require [grub.async :refer [go-loop]]
|
||
|
|
[monger.core :as m]
|
||
|
|
[monger.collection :as mc]
|
||
|
|
[monger.operators :as mo]
|
||
|
|
[clojure.core.async :as async :refer [<! >! >!! chan go close! timeout]]))
|
||
|
|
|
||
|
|
(def grub-collection "grubs")
|
||
|
|
|
||
|
|
(def incoming-events (chan))
|
||
|
|
|
||
|
|
(defn get-incoming-events []
|
||
|
|
incoming-events)
|
||
|
|
|
||
|
|
(defmulti handle-event :event :default :unknown-event)
|
||
|
|
|
||
|
|
(defmethod handle-event :create [event]
|
||
|
|
(let [grub (-> event
|
||
|
|
(select-keys [:_id :grub])
|
||
|
|
(assoc :completed false))]
|
||
|
|
(mc/insert grub-collection grub)))
|
||
|
|
|
||
|
|
(defmethod handle-event :complete [event]
|
||
|
|
(mc/update grub-collection
|
||
|
|
{:_id (:_id event)}
|
||
|
|
{mo/$set {:completed true}}))
|
||
|
|
|
||
|
|
(defmethod handle-event :uncomplete [event]
|
||
|
|
(mc/update grub-collection
|
||
|
|
{:_id (:_id event)}
|
||
|
|
{mo/$set {:completed false}}))
|
||
|
|
|
||
|
|
(defmethod handle-event :delete [event]
|
||
|
|
(mc/remove grub-collection {:_id (:_id event)}))
|
||
|
|
|
||
|
|
(defmethod handle-event :unknown-event [event]
|
||
|
|
(println "Cannot handle unknown event:" event))
|
||
|
|
|
||
|
|
(defn handle-incoming-events []
|
||
|
|
(go-loop (let [event (<! (get-incoming-events))]
|
||
|
|
(println "DB handling" event)
|
||
|
|
(handle-event event))))
|
||
|
|
|
||
|
|
(defn get-current-grubs-as-events []
|
||
|
|
(let [grubs (mc/find-maps grub-collection)
|
||
|
|
sorted-grubs (sort-by :_id (vec grubs))
|
||
|
|
out (chan)]
|
||
|
|
(println "sorted-grubs:" sorted-grubs)
|
||
|
|
(go (doseq [grub sorted-grubs]
|
||
|
|
(let [grub-event (-> grub
|
||
|
|
(select-keys [:_id :grub :completed])
|
||
|
|
(assoc :event :create))]
|
||
|
|
(>! out grub-event))))
|
||
|
|
out))
|
||
|
|
|
||
|
|
(defn connect-to-db []
|
||
|
|
(println "Connect to db")
|
||
|
|
(m/connect!)
|
||
|
|
(m/set-db! (m/get-db "monger-test")))
|
||
|
|
|
||
|
|
(connect-to-db)
|
||
|
|
(handle-incoming-events)
|