From d8d6c0877391afc8d089632317399bbfdd409229 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 7 Aug 2014 09:28:51 -0400 Subject: Add "versions" to package count badge. * guix-web (view-package): Pluralize "version" if needed and render next to package count. --- guix-web | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/guix-web b/guix-web index 84c53e6..73c5641 100755 --- a/guix-web +++ b/guix-web @@ -206,6 +206,13 @@ (dd ,(render-package-license package)))) (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")))) `(html (head (title ,(string-append "GNU Guix - " name)) @@ -214,7 +221,8 @@ (body (div (@ (class "container")) (image (@ (src "/images/logo.png"))) - (h1 ,name (span (@ (class "badge")) ,(length packages))) + (h1 ,name (span (@ (class "badge")) + ,(format-package-count))) (ul (@ (class "list-unstyled")) ,@(map (lambda (p) `(li ,(describe-package p))) -- cgit v1.2.3