diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-31 19:53:16 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-31 19:53:16 +0000 |
| commit | ba9e20ee751669a916fb6886ca98a67f361df0f1 (patch) | |
| tree | afb29b8b85902896cd764ba8ff936db99a66179a /guix-qa-frontpage/view | |
| parent | 074b856b01202c74a86846278adf1a7bbcc41cb9 (diff) | |
| download | qa-frontpage-ba9e20ee751669a916fb6886ca98a67f361df0f1.tar qa-frontpage-ba9e20ee751669a916fb6886ca98a67f361df0f1.tar.gz | |
Add a simple package page
Diffstat (limited to 'guix-qa-frontpage/view')
| -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"))))) |