Thinking with reification links

links.cljs

(defui OverviewItem
  static om/Ident
  (ident [_ {:keys [id]}]
         [:overview/panels-by-id id])
  static om/IQuery
  (query [this]
         '[:title :body [:overview/count _]])
  Object
  (render [this]
          (let [{:keys [title body overview/count]} (om/props this)]
            (dom/div #js {:className (str "l-box pure-u-1 pure-u-md-1-2 pure-u-lg-1-" count)}
                     (dom/h3 #js {:className "content-subhead"}
                             title)
                     (dom/p nil body)))))


(def overview-item (om/factory OverviewItem))

(defn overview-list [items]
  (dom/div #js {:className "pure-g"}
           (map overview-item items)))

(defui Overview
  static om/IQuery
  (query [this]
         [:overview/count])
  Object
  (render [this]
          (let [{:keys [panels]} (om/props this)]
           (dom/div nil
                    (dom/h2 #js {:className "content-head is-center"}
                            "Ok hier komt een titel")
                    (overview-list panels)))))

(def overview (om/factory Overview))


(defui IndexPage
  static om/IQuery
  (query [this]
         [(first (om/get-query nav/Navbar))
          (first (om/get-query overview/Overview))  ;; <- 'doesn't feel right'
          {:navbar/items (om/get-query nav/MenuItem)}
          {:overview/panels (om/get-query overview/OverviewItem)}
          ])
  Object
  (render [this]
          (let [{:keys [navbar/items title overview/panels]} (om/props this)]
            (dom/div nil
                       (nav/navbar {:title title :items items})
                       (spl/splash)
                       (dom/div #js {:className "content-wrapper"}
                                (dom/div #js {:className "content"})
                                (overview/overview {:panels panels})
                                (intro/intro)
                                (ft/footer))))))

(def index-page (om/factory IndexPage))

;; parser 
(defmethod read :overview/panels
  [{:keys [query state ast]} key params]
  (let [st @state]
    (if (nil? (get st key))
       {:remote (update-in ast [:query] #(into [] (remove om/ident?) %))}
      {:value (om/db->tree query (get st key) st)})))