(defn all-descendents-as-cards [block-entity]
[:div 
        (doall (for [block (rest (tree-seq :block/uid :block/children block-entity))]
          [:button.bp3-card
            {:style {:background-color (rand-nth color)}
             :on-click (fn [e] (js/alert (:block/uid block)))}
           (:block/string block)]))
        ]
)