             (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/>!!

             ;; If a result is accepted it should be sent to the
             ;; "Results Access" for handling.
             (async/>!! (:in-channel rules-engine-channels)
                        {:topic   topic
                         :payload payload}))
           [:file/import _]
           (let [[import import-ch] (async/alts!!
                                     [[(:in-channel file-handler-channels)


;; 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 []
