;; Copyright © 2022 Docker, Inc.
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;;     http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

[:find
 ?repo
 :in $ $before-db %% ?ctx
 :where
 [(ground "%s") ?name]
 [(adb/query (quote [:find
                     (pull ?repo [:atomist/team-id
                                  :docker.repository/host
                                  :docker.repository/badge
                                  :docker.repository/supported-tags
                                  (:docker.repository/repository :as :docker.repository/name)])
                     :in $ $b %% ?ctx [?name]
                     :where
                     [?repo :docker.repository/repository ?name]
                     [?repo :docker.repository/host "hub.docker.com"]
                     ])
    ?name)
  ?results]
 [(untuple ?results) [?result ...]]
 [(untuple ?result) [?repo]]
 ]