guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Add a JSON variant of the packages page

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
Show Stats 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
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
conn
base-commit
@ -377,11 +397,10 @@
((GET "revision" commit-hash) (render-view-revision mime-types
conn
commit-hash))
((GET "revision" commit-hash "packages")
(apply render-html
(view-revision-packages commit-hash
(select-packages-in-revision
conn commit-hash))))
((GET "revision" commit-hash "packages") (render-revision-packages
mime-types
conn
commit-hash))
((GET "revision" commit-hash "package" name version)
(apply render-html
(view-revision-package-and-version