blob: 01d4744c85b3de3e141706e134b7ed4dc1444688 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(define-module (guix-qa-frontpage view package)
#:use-module (guix-qa-frontpage view util)
#:export (package-view))
(define (package-view package-data)
(define name (assoc-ref package-data "name"))
(layout
#:title (string-append "Package: " name)
#:body
`((main
(dt "Synopsis")
(dd (raw ,(assoc-ref (assoc-ref package-data "synopsis") "html")))
(dt "Description")
(dd (raw ,(assoc-ref (assoc-ref package-data "description") "html")))
(dt "Home page")
(dd (a (@ (href ,(assoc-ref package-data "home-page")))
,(assoc-ref package-data "home-page")))
(h1 "TODO More information to come")))))
|