Browse Source

enhance: use faster eq-fn in hotpath

rcmerci 8 months ago
parent
commit
b711a1694c

+ 3 - 3
deps/db/src/logseq/db/frontend/entity_plus.cljc

@@ -77,7 +77,7 @@
   "Whether the current graph is db-only"
   [db]
   (when db
-    (= "db" (:kv/value (entity-memoized db :logseq.kv/db-type)))))
+    (identical? "db" (:kv/value (entity-memoized db :logseq.kv/db-type)))))
 
 (defn- get-journal-title
   [db e]
@@ -92,7 +92,7 @@
       (get-journal-title db e)
       (let [search? (get (.-kv e) :block.temp/search?)]
         (or
-         (when-not (and search? (= k :block/title))
+         (when-not (and search? (keyword-identical? k :block/title))
            (get (.-kv e) k))
          (let [result (lookup-entity e k default-value)
                refs (:block/refs e)
@@ -115,7 +115,7 @@
        (when (qualified-keyword? k)
          (when-let [property (entity-memoized db k)]
            (let [property-type (lookup-entity property :logseq.property/type nil)]
-             (if (= :checkbox property-type)
+             (if (keyword-identical? :checkbox property-type)
                (lookup-entity property :logseq.property/scalar-default-value nil)
                (lookup-entity property :logseq.property/default-value nil)))))))))
 

+ 1 - 1
src/main/frontend/common/thread_api.cljc

@@ -18,7 +18,7 @@
   (assert (vector? params) params)
   `(vswap! *thread-apis assoc
            ~qualified-keyword-name
-           (fn ~params ~@body)))
+           (fn ~(symbol (str "thread-api--" (name qualified-keyword-name))) ~params ~@body)))
 
 #?(:cljs
    (defn remote-function

+ 1 - 1
src/main/frontend/components/profiler.cljs

@@ -14,7 +14,7 @@
         *reports (get state ::reports)
         *register-fn-name (get state ::register-fn-name)]
     [:div
-     [:b "Profiling fns:"]
+     [:b "Profiling fns(Only support UI thread now):"]
      [:div.pb-4
       (for [f-name profiling-fns]
         [:div.flex.flex-row.items-center.gap-2