         {:shape :house
          :label (node-label node)}
       :merkle-db/table
+        ; idea: show short record count
         {:shape :ellipse
-         :label (node-label node)}
+         :label (str (node-label node)
+                     (when-let [rc (:merkle-db.data/count (::node/data node))]
+                       (format "\n%d records" rc)))}
       :merkle-db/patch
         {:shape :hexagon
-         :label (node-label node)}
+         :label (str (node-label node)
+                     (when-let [changes (:merkle-db.patch/changes (::node/data node))]
+                       (format "\n%d changes" (count changes))))}
       :merkle-db/index
+        ; idea: show start/end keys
         {:shape :trapezium
          :label (node-label node)}
       :merkle-db/partition
+        ; idea: show start/end keys
+        ; idea: show short record count
         {:shape :rect
-         :label (node-label node)}
+         :label (str (node-label node)
+                     (when-let [rc (:merkle-db.data/count (::node/data node))]
+                       (format "\n%d records" rc)))}
       :merkle-db/tablet
         {:shape :hexagon
          :label (node-label node)}


(defn- link-label
  [from to]
  (some #(when (= (::node/id to) (::link/target %))
           (::link/name %))
        (::node/links from)))


(defn- edge->descriptor

                  (pr-str db)))))
  (let [nodes (find-nodes
                (.store db)
                {}
                (mdag/get-node (.store db) (::node/id db))
                (constantly true))]
    (rhizome/view-graph
      (vals nodes)
      (fn adjacent
        [node]
        (keep #(when-let [target (get nodes (::link/target %))]
                 (vary-meta target assoc ::link/name (::link/name %)))
              (::node/links node)))
      :node->descriptor node->descriptor
      :edge->descriptor edge->descriptor
      ; :options
