Ver código fonte

fix: has-tag? need nbb compatible

rcmerci 1 ano atrás
pai
commit
201a18fe5f
1 arquivos alterados com 2 adições e 4 exclusões
  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?
 (defn- has-tag?
   [entity tag-ident]
   [entity tag-ident]
   (some (fn [t]
   (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)))
         (:block/tags entity)))
 
 
 (comment
 (comment