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 revision page

This commit is contained in:
Christopher Baines 2019-05-12 09:51:00 +01:00
parent bd8b9f951c
commit b3f2aab8c9
1 changed files with 30 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
guix-data-service/web/controller.scm
View File

@ -78,6 +78,33 @@
target-commit
(commit->revision-id conn target-commit))))
(define (render-view-revision mime-types
conn
commit-hash)
(let ((packages-count
(count-packages-in-revision conn commit-hash))
(derivations-counts
(count-packages-derivations-in-revision conn commit-hash)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
((application/json)
(render-json
`((packages_count . ,(caar packages-count))
(derivations_counts . ,(list->vector
(map (match-lambda
((system target derivation_count)
`((system . ,system)
(target . ,target)
(derivation_count . ,derivation_count))))
derivations-counts))))))
(else
(apply render-html
(view-revision
commit-hash
packages-count
derivations-counts))))))
(define (render-compare-unknown-commit mime-types
conn
base-commit
@ -347,13 +374,9 @@
(apply render-html
(view-statistics (count-guix-revisions conn)
(count-derivations conn))))
((GET "revision" commit-hash)
(apply render-html
(view-revision commit-hash
(count-packages-in-revision conn
commit-hash)
(count-packages-derivations-in-revision conn
commit-hash))))
((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