 
 ;; Provides useful Timbre aliases in this ns
 (log/refer-timbre)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; This should be componitized
+
+(defn select-activity [activity]
+  (log/info "Get this stuff to Datomic"))
 
 (defn start-result-rules-engine [in-ch out-ch]
   (async/go-loop []

            (log/error e "Exception in Broker message go loop")
            (async/>! out-ch (str "Exception message: " (.getMessage e)))))
        (recur)))))

(defn message-dispatch [{:keys [topic payload sender] :as message}
                        {:keys [channel-connection-channels

            (log/info (str "Result Received Topic: [" topic "]"))
            (log/info (str "Result Received payload: [" payload "]"))
            (match [topic payload]
                   ['app/select-activity _]
                   (do
                     (log/info (str "Select activity " payload))
                     (select-activity payload))
                   [:set-result p]
                   (log/info "Mark X")
                   :else (async/>!!
