Преглед изворни кода

fix: has-tag? need nbb compatible

rcmerci пре 9 месеци
родитељ
комит
201a18fe5f
1 измењених фајлова са 2 додато и 4 уклоњено
  1. 2 4
      deps/db/src/logseq/db/frontend/entity_util.cljs

+ 2 - 4
deps/db/src/logseq/db/frontend/entity_util.cljs

@@ -8,10 +8,8 @@
 (defn- has-tag?
   [entity tag-ident]
   (some (fn [t]
-          (let [db-ident (:db/ident t)]
-            (if (keyword? db-ident)
-              (identical? (.-fqn db-ident) (.-fqn ^keyword tag-ident))
-              (keyword-identical? t tag-ident))))
+          (or (keyword-identical? (:db/ident t) tag-ident)
+              (keyword-identical? t tag-ident)))
         (:block/tags entity)))
 
 (comment