guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: website: package index: Add total number of packages.


From: Luis Felipe López Acevedo
Subject: 01/01: website: package index: Add total number of packages.
Date: Sat, 9 Feb 2019 10:48:41 -0500 (EST)

lfla pushed a commit to branch master
in repository guix-artwork.

commit 9f98bb997ad589589aeb48a8421c04641adc8241
Author: sirgazil <address@hidden>
Date:   Sat Feb 9 10:40:34 2019 -0500

    website: package index: Add total number of packages.
    
    The "package index" page was missing the first paragraph that is shown
    in the "detail package index" page which indicates the total number of
    packages in Guix and the last update date. This commit adds it.
    
    * apps/packages/builder.scm (index-builder): Add new "total" datum to
      the context.
    * apps/packages/templates/index.scm (index-t): Add total number of
      packages and update date.
---
 website/apps/packages/builder.scm         |  4 +-
 website/apps/packages/templates/index.scm | 64 +++++++++++++++++++------------
 2 files changed, 42 insertions(+), 26 deletions(-)

diff --git a/website/apps/packages/builder.scm 
b/website/apps/packages/builder.scm
index beb7541..3825e03 100644
--- a/website/apps/packages/builder.scm
+++ b/website/apps/packages/builder.scm
@@ -96,7 +96,9 @@
          (list-tabulate n (lambda _ (random (length from))))))
   (let ((context (list (cons "packages"
                              (sample %max-packages-on-index
-                                     (all-packages))))))
+                                     (all-packages)))
+                      (cons "total"
+                            (length (all-packages))))))
     (make-page "packages/index.html" (index-t context) sxml->html)))
 
 
diff --git a/website/apps/packages/templates/index.scm 
b/website/apps/packages/templates/index.scm
index 3618151..dc32662 100644
--- a/website/apps/packages/templates/index.scm
+++ b/website/apps/packages/templates/index.scm
@@ -9,37 +9,51 @@
   #:use-module (apps base types)
   #:use-module (apps base utils)
   #:use-module (apps packages templates components)
+  #:use-module (srfi srfi-19)
   #:export (index-t))
 
 
 (define (index-t context)
   "Return an SHTML representation of the index page."
-  (theme
-   #:title (list "Packages")
-   #:description
-   "List of packages available for the Guix System Distribution
+  (let ((packages (context-datum context "packages"))
+       (total    (context-datum context "total")))
+    (theme
+     #:title (list "Packages")
+     #:description
+     "List of packages available for the Guix System Distribution
    (GuixSD) and foreign GNU/Linux distributions through the GNU
    Guix package manager."
-   #:keywords
-   (list "GNU" "Linux" "Unix" "Free software" "Libre software"
-        "Operating system" "GNU Hurd" "GNU Guix package manager"
-        "GNU Guile" "Guile Scheme" "Transactional upgrades"
-        "Functional package management" "Reproducibility")
-   #:active-menu-item "Packages"
-   #:css
-   (list (guix-url "static/base/css/page.css")
-        (guix-url "static/base/css/item-preview.css")
-        (guix-url "static/base/css/sidebar.css"))
-   #:crumbs
-   (list (crumb "Packages" (guix-url "packages/")))
-   #:content
-   `(main
-     (section
-      (@ (class "page centered-text"))
-      (h2 "Packages")
+     #:keywords
+     (list "GNU" "Linux" "Unix" "Free software" "Libre software"
+          "Operating system" "GNU Hurd" "GNU Guix package manager"
+          "GNU Guile" "Guile Scheme" "Transactional upgrades"
+          "Functional package management" "Reproducibility")
+     #:active-menu-item "Packages"
+     #:css
+     (list (guix-url "static/base/css/page.css")
+          (guix-url "static/base/css/item-preview.css")
+          (guix-url "static/base/css/sidebar.css"))
+     #:crumbs
+     (list (crumb "Packages" (guix-url "packages/")))
+     #:content
+     `(main
+       (section
+       (@ (class "page centered-text"))
+       (h2 "Packages")
 
-      (div
-       (@ (class "sheet"))
-       ,@(map package-preview (context-datum context "packages")))
+       (p
+        (@ (class "limit-width centered-block"))
+        "GNU Guix provides " ,(number* total) " packages transparently "
+        (a (@ (href "https://hydra.gnu.org/jobset/gnu/master#tabs-status";))
+           "available as pre-built binaries")
+        ". These pages provide a complete list of the packages.  Our "
+        (a (@ (href "https://hydra.gnu.org/jobset/gnu/master";))
+           "continuous integration system")
+        " shows their current build status "
+        "(updated " ,(date->string (current-date) "~B ~e, ~Y") ").")
 
-      ,(sidebar)))))
+       (div
+        (@ (class "sheet"))
+        ,@(map package-preview packages))
+
+       ,(sidebar))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]