diff options
Diffstat (limited to 'guix-qa-frontpage/view/package.scm')
-rw-r--r-- | guix-qa-frontpage/view/package.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/guix-qa-frontpage/view/package.scm b/guix-qa-frontpage/view/package.scm new file mode 100644 index 0000000..01d4744 --- /dev/null +++ b/guix-qa-frontpage/view/package.scm @@ -0,0 +1,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"))))) |