om_next_mutiple_dashboards.cljs

(defui Post
  static om/IQuery
  (query [this]
    [:id :type :title :author :content])
  Object
  (render [this]
    (let [{:keys [title author content] :as props} (om/props this)]
      (dom/div nil
        (dom/h3 nil title)
        (dom/h4 nil author)
        (dom/p nil content)))))

(def post (om/factory Post))

(defui Photo
  static om/IQuery
  (query [this]
    [:id :type :title :image :caption])
  Object
  (render [this]
    (let [{:keys [title image caption]} (om/props this)]
      (dom/div nil
        (dom/h3 nil (str "Photo: " title))
        (dom/div nil image)
        (dom/p nil (str "Caption: " caption))))))

(def photo (om/factory Photo))

(defui Graphic
  static om/IQuery
  (query [this]
    [:id :type :title :image])
  Object
  (render [this]
    (let [{:keys [title image]} (om/props this)]
      (dom/div nil
        (dom/h3 nil (str "Graphic: " title))
        (dom/div nil image)))))

(def graphic (om/factory Graphic))

(defui DashboardItem
  static om/Ident
  (ident [this {:keys [id type]}]
    [type id])
  static om/IQuery
  (query [this]
    (zipmap
      [:dashboard/post :dashboard/photo :dashboard/graphic]
      (map #(conj % :favorites)
        [(om/get-query Post)
         (om/get-query Photo)
         (om/get-query Graphic)])))
  Object
  (render [this]
    (let [{:keys [id type favorites] :as props} (om/props this)]
      (dom/li
        #js {:style #js {:padding 10 :borderBottom "1px solid black"}}
        (dom/div nil
          (({:dashboard/post    post
             :dashboard/photo   photo
             :dashboard/graphic graphic} type)
            (om/props this)))
        (dom/div nil
          (dom/p nil (str "Favorites: " favorites))
          (dom/button
            #js {:onClick
                 (fn [e]
                   (om/transact! this
                     `[(dashboard/favorite {:ref [~type ~id]})]))}
            "Favorite!"))))))

(def dashboard-item (om/factory DashboardItem))

(defui Dashboard
  static om/Ident
  (ident [this {:keys [dashboard/id]}] [:dashboard/by-id id])
  static om/IQuery
  (query [this]
    [{:dashboard/items (om/get-query DashboardItem)}])
  Object
  (render [this]
    (let [{:keys [dashboard/items]} (om/props this)]
      (apply dom/ul
        #js {:style #js {:padding 0}}
        (map dashboard-item items)))))

(def dashboard (om/factory Dashboard))

(defui RootView
  static om/IQuery
  (query [this] `[{:dashboards ~(om/get-query Dashboard)}])
  Object
  (render [this]
    (let [{:keys [dashboards]} (om/props this)]
      (dom/div nil
        (map dashboard dashboards)))))


(def init-data
  {:current-dash [:dashboard/by-id 0] ;=>  or just 0 ?
   :dashboards [{:dashboard/id 0
                 :dashboard/items
                 [{:id 0 :type :dashboard/post
                   :author "Laura Smith"
                   :title "A Post!"
                   :content "Lorem ipsum dolor sit amet, quem atomorum te quo"
                   :favorites 0}
                  {:id 1 :type :dashboard/photo
                   :title "A Photo!"
                   :image "photo.jpg"
                   :caption "Lorem ipsum"
                   :favorites 0}
                  {:id 2 :type :dashboard/post
                   :author "Jim Jacobs"
                   :title "Another Post!"
                   :content "Lorem ipsum dolor sit amet, quem atomorum te quo"
                   :favorites 0}
                  {:id 3 :type :dashboard/graphic
                   :title "Charts and Stufff!"
                   :image "chart.jpg"
                   :favorites 0}
                  {:id 4 :type :dashboard/post
                   :author "May Fields"
                   :title "Yet Another Post!"
                   :content "Lorem ipsum dolor sit amet, quem atomorum te quo"
                   :favorites 0}]}

                {:dashboard/id 1
                 :dashboard/items
                 [{:id 0 :type :dashboard/post
                   :author "some other person"
                   :content "Lorem ipsum dolor sit amet, quem atomorum te quo"
                   :favorites 0}]}
                  ]})


(defmulti read om/dispatch)

(defmethod read :dashboard/items
  [{:keys [state]} k _]
  (let [st @state]
    {:value {}}))

(defmethod read :dashboards
  [{:keys [state]} k _]
  (let [st @state]
    {:value (into [] (map #(get-in st %)) (get st k))}
    ))

(defmulti mutate om/dispatch)

(defmethod mutate 'dashboard/favorite
  [{:keys [state]} k {:keys [ref]}]
  {:action
   (fn []
     (swap! state update-in (conj ref :favorites) inc))})

(def reconciler
  (om/reconciler
    {:state  init-data
     :parser (om/parser {:read read :mutate mutate})}))