   (let [st @state]
     {:value (om/db->tree query (get st key) st)}))
 
-(comment
-  (defmethod read :fake-graph/by-id
-    [{:keys [state query]} key _]
-    (let [st @state]
-      {:value (om/db->tree query (get st key) st)})))
-
 (defn update-graph-lines [st want-to-select? id]
   (let [graph-lines [:fake-graph/by-id 1000 :graph/graph-lines]]
     (if want-to-select?

     :line-name "Carbon Monoxide"
     :selected? false}
    ]
   :app/customers
   [{:id 200
     :first-name "Greg"}
    {:id 201
     :first-name "Sally"}
    {:id 202
     :first-name "Ben"}
    ]
   }
  )


      (pprint st)
      (db-format/show-hud check-result))))

;; This component isn't essential - we could have used Checkbox in FakeGraph
;; They both have the same ident
(defui Line
  static om/Ident
  (ident [this props]
    [:line/by-id (:id props)])
  static om/IQuery
  (query [this]
    [:id :line-name]))

(defui Checkbox
  static om/Ident
