multiple.cljs

(d/pull-many db '[*]
              (apply sorted-set
                     (concat
                      (d/q '[:find [?e ...]
                              :in [?tag ...] $
                              :where
                              [?e :tags ?tag]]
                            search-tags
                            db)
                      
                      (d/q '[:find [?e ...]
                              :in [?tag ...] $
                              :where
                              [?e :name ?tag]]
                            (map clojure.string/capitalize search-tags)
                            db))))