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

Add a JSON variant of the packages page

Browse source
This commit is contained in:
Christopher Baines 2019-05-12 09:56:24 +01:00
parent b3f2aab8c9
commit e64fc090cd
1 changed files with 24 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

29
guix-data-service/web/controller.scm
View file

@ -105,6 +105,26 @@
packages-count packages-count
derivations-counts)))))) derivations-counts))))))
(define (render-revision-packages mime-types
conn
commit-hash)
(let ((packages (select-packages-in-revision conn commit-hash)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
((application/json)
(render-json
`((packages . ,(list->vector
(map (match-lambda
((name version synopsis)
`((name . ,name)
(version . ,version)
(synopsis . ,synopsis))))
packages))))))
(else
(apply render-html
(view-revision-packages commit-hash packages))))))
(define (render-compare-unknown-commit mime-types (define (render-compare-unknown-commit mime-types
conn conn
base-commit base-commit
@ -377,11 +397,10 @@
((GET "revision" commit-hash) (render-view-revision mime-types ((GET "revision" commit-hash) (render-view-revision mime-types
conn conn
commit-hash)) commit-hash))
((GET "revision" commit-hash "packages") ((GET "revision" commit-hash "packages") (render-revision-packages
(apply render-html mime-types
(view-revision-packages commit-hash conn
(select-packages-in-revision commit-hash))
conn commit-hash))))
((GET "revision" commit-hash "package" name version) ((GET "revision" commit-hash "package" name version)
(apply render-html (apply render-html
(view-revision-package-and-version (view-revision-package-and-version