|
|
@@ -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
|