(ns outliner.control.events (:require [outliner.model.core.tree :as tree] [outliner.boundaries.firestore :as firestore] [outliner.boundaries.firebase :as fb] [outliner.model.system :as system])) (defn handle-node-expanded [doc sys id] (let [node (tree/get-node doc id)] (when (= (:on-expand node) :fetch-orphan-count) (let [user-id (fb/get-user-uid (:user sys))] (when user-id (firestore/fetch-orphan-count user-id (fn [count] (reset! system/lost-found-count count))))))))