From f29ed7b9d86468a5d409f365fe37d88193d8291d Mon Sep 17 00:00:00 2001 From: Tienson Qin Date: Tue, 27 May 2025 22:00:16 +0800 Subject: [PATCH] add capacitor-worker-repl --- src/dev-cljs/shadow/user.clj | 12 ++++++++++-- src/main/frontend/db/model.cljs | 15 ++++++++------- 2 files changed, 18 insertions(+), 9 deletions(-) diff --git a/src/dev-cljs/shadow/user.clj b/src/dev-cljs/shadow/user.clj index 89da09b6f4..a523db5017 100644 --- a/src/dev-cljs/shadow/user.clj +++ b/src/dev-cljs/shadow/user.clj @@ -36,8 +36,16 @@ runtime-id (apply (if (= :old runtime-id-or-which) min max) runtime-ids)] (worker-repl runtime-id))))) -(defn runtime-id-list +(defn capacitor-worker-repl [] - (->> (api/repl-runtimes :app) + (when-let [runtime-id (->> (api/repl-runtimes :capacitor-new) + (filter (fn [runtime] (= :browser-worker (:host runtime)))) + (map :client-id) + (apply max))] + (api/repl :capacitor-new {:runtime-id runtime-id}))) + +(defn runtime-id-list + [app] + (->> (api/repl-runtimes app) (filter (fn [runtime] (= :browser-worker (:host runtime)))) (map :client-id))) diff --git a/src/main/frontend/db/model.cljs b/src/main/frontend/db/model.cljs index e32dd9d705..418e0d2fa9 100644 --- a/src/main/frontend/db/model.cljs +++ b/src/main/frontend/db/model.cljs @@ -229,13 +229,14 @@ independent of format as format specific heading characters are stripped" (defn get-block-deep-last-open-child-id [db db-id] - (loop [node (db-utils/entity db db-id)] - (if-let [last-child-id (get-block-last-direct-child-id db (:db/id node) true)] - (let [e (db-utils/entity db last-child-id)] - (if (or (:block/collapsed? e) (empty? (:block/_parent e))) - last-child-id - (recur e))) - nil))) + (when db + (loop [node (db-utils/entity db db-id)] + (if-let [last-child-id (get-block-last-direct-child-id db (:db/id node) true)] + (let [e (db-utils/entity db last-child-id)] + (if (or (:block/collapsed? e) (empty? (:block/_parent e))) + last-child-id + (recur e))) + nil)))) (def page? ldb/page?)