cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a JSON representation for repositories

Browse source
This commit is contained in:
Christopher Baines 2020-09-27 16:26:45 +01:00
parent 02681d7e7a
commit f7933807ac
1 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
guix-data-service/web/repository/controller.scm
View file

@ -44,9 +44,23 @@
(match method-and-path-components (match method-and-path-components
(('GET "repositories") (('GET "repositories")
(let ((git-repositories (all-git-repositories conn))) (let ((git-repositories (all-git-repositories conn)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
((application/json)
(render-json
`((repositories
. ,(list->vector
(map (match-lambda
((id label url cgit-base-url)
`((id . ,id)
(label . ,label)
(url . ,url))))
git-repositories))))))
(else
(render-html (render-html
#:sxml #:sxml
(view-git-repositories git-repositories)))) (view-git-repositories git-repositories))))))
(('GET "repository" id) (('GET "repository" id)
(match (select-git-repository conn id) (match (select-git-repository conn id)
((label url cgit-url-base) ((label url cgit-url-base)