36 lines
1.3 KiB
Clojure
36 lines
1.3 KiB
Clojure
|
;; 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]]
|
||
|
|
]
|