                                      (-> app :data :sessions)
 
                                      )
-                                    {:init-state {:highlight highlight
-                                                  :unhighlight unhighlight}}
+                                    {:init-state {:highlight    highlight
+                                                  :unhighlight  unhighlight}}
                                     )
                      )
 

                                       (= (get-in ui
                                               [:sessions data :highlighted]) "true")
                                       "lightgray"
                                       ""
                                       )
                                     }


    (init-state [_]

                {
                   :highlight          (chan)
                   :unhighlight        (chan)
                })

    om/IWillMount
    ;------------
    (will-mount [_]
                (let [highlight     (om/get-state owner :highlight)
                      unhighlight   (om/get-state owner :unhighlight)]
                  (go (loop []
                        (let [session (<! highlight)]
                          ;(log "****HIGHLIGHT")
                          (om/transact!
                           app
                           [:ui :sessions session :highlighted] (fn[x] "true" ))
                          (recur))))

                  (go (loop []
                        (let [session (<! unhighlight)]
                          ;(log "****UNHIGHLIGHT")
                          (om/transact!
                           app
                           [:ui :sessions session :highlighted] (fn[x] "false" ))
                          (recur))))

                  ))
