diff options
Diffstat (limited to 'guix-web/view/html.scm')
-rw-r--r-- | guix-web/view/html.scm | 61 |
1 files changed, 5 insertions, 56 deletions
diff --git a/guix-web/view/html.scm b/guix-web/view/html.scm index c72421a..83ff226 100644 --- a/guix-web/view/html.scm +++ b/guix-web/view/html.scm @@ -51,11 +51,13 @@ (javascript "/js/view/ui.js" agpl3+) (javascript "/js/view/layout.js" agpl3+) (javascript "/js/model/packages.js" agpl3+) - (javascript "/js/view/packages.js" agpl3+) - (javascript "/js/controller/packages.js" agpl3+) (javascript "/js/model/generations.js" agpl3+) - (javascript "/js/view/generations.js" agpl3+) + (javascript "/js/controller/packages.js" agpl3+) + (javascript "/js/controller/packageInfo.js" agpl3+) (javascript "/js/controller/generations.js" agpl3+) + (javascript "/js/view/packages.js" agpl3+) + (javascript "/js/view/packageInfo.js" agpl3+) + (javascript "/js/view/generations.js" agpl3+) (javascript "/js/routes.js" agpl3+))) (define stylesheets @@ -98,59 +100,6 @@ (define (all-packages) (main-layout "Packages" (map render-javascript javascripts))) -;; This should be moved client-side and the server should just serve -;; the relevant JSON. -(define (view-package name) - (define (describe-inputs package package-inputs description) - (define (describe-input input) - `(li - (a (@ (href ,(string-append - "/" - (encode-and-join-uri-path - `("package" ,(package-name input)))))) - ,(string-append (package-name input) " " - (package-version input))))) - (let ((inputs (package-inputs package))) - (if (null? inputs) - '() - `((dt ,description) - (dd (ul ,@(map describe-input - (filter package? - (map second inputs))))))))) - - (define (describe-package package) - `(dl - (dt "Version") - (dd ,(package-version package)) - (dt "Synopsis") - (dd ,(package-synopsis package)) - (dt "Description") - (dd ,(package-description package)) - (dt "License") - (dd ,(render-package-license package)) - ,@(describe-inputs package package-inputs "Inputs") - ,@(describe-inputs package package-native-inputs "Native Inputs") - ,@(describe-inputs package package-propagated-inputs - "Propagated Inputs"))) - - (let ((packages (find-packages-by-name name))) - (define (format-package-count) - (let ((count (length packages))) - (format #f "~d ~a" - count - (if (> count 1) - "versions" - "version")))) - - (main-layout - name - `((h1 ,name (span (@ (class "badge")) - ,(format-package-count))) - (ul (@ (class "list-unstyled")) - ,@(map (lambda (p) - `(li ,(describe-package p))) - packages)))))) - (define (librejs) (define (weblabel js) (let ((source (javascript-source-uri js))) |