           (str alias " (" id ")")
           id))
       (d/p {:class "text-muted"}
-        (:question item))
-      (d/div {:id id}))))
+        (or (:question item) "loading..."))
+      (when (s/is-numeric? item)
+        (d/div {:id (cell-id opts id) :style {:height "200px"}})))))
 
 (defn query-grid-cell-mouse-leave [state]
   (assoc state :hover false :dropdown-hover false :dropdown-active false))
+
+(defn merge-into-term [term new-term]
+  (merge term (dissoc new-term :embedded :forms :links)))
 
 (defcomponent query-grid-cell
   "A cell in a query grid.

                              :params {:expr expr}
                              :snapshot (util/get-most-recent-snapshot-id owner)
                              :loaded-topic result-topic}))

;; ---- Headline --------------------------------------------------------------


          id))
      (d/p {:class "text-muted"}
        (or (:name form) "loading..."))
      (d/div {:id (cell-id opts id) :style {:height "200px"}}))))

(defn single-item-group-expr [{:keys [id]}]
  {:items [[[:item-group id]]]})

(defcomponent item-group [{:keys [id] :as item-group} owner opts]
  (will-mount [_]
    (when-not (:name item-group)
      (load-term! owner :lens/find-item-group opts id))
    (execute-query! owner (single-item-group-expr item-group)
                    (result-loaded opts id)))
  (render [_]
    (d/div
      (d/div (or (util/add-soft-hyphen (:name item-group)) "loading..."))
      (d/div {:id (cell-id opts id) :style {:height "200px"}}))))

(defcomponent item [{:keys [id] :as item} owner opts]
  (will-mount [_]
    (when-not (if (s/is-numeric? item) (:value-histogram item) (:question item))
      (load-term! owner :lens/find-item opts id)))
  (did-update [_ _ _]
    (when-let [value-histogram (value-hist item)]
      (clear-chart (cell-id opts id))
      (draw-item-chart (cell-id opts id) value-histogram)))
  (render [_]
    (d/div
      (d/div
