04/29: website: utils: 'paginate' correctly handles the case with zero items.

[Ludovic Courtès]

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

commit 75af25bf40f5682427f33969e15066ba6adb6d8b
Author: Ludovic Courtès <address@hidden>
Date:   Sat Jul 29 17:27:21 2017 +0200

    website: utils: 'paginate' correctly handles the case with zero items.
    
    * website/apps/base/utils.scm (paginate): Handle case when GROUPED-DATA
    is empty.
---
 website/apps/base/utils.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/website/apps/base/utils.scm b/website/apps/base/utils.scm
index 39e4e82..e081652 100644
--- a/website/apps/base/utils.scm
+++ b/website/apps/base/utils.scm
@@ -27,6 +27,7 @@
   #:use-module (apps base types)
   #:use-module (haunt page)
   #:use-module (ice-9 i18n)
+  #:use-module (ice-9 match)
   #:use-module (srfi srfi-1)
   #:export (gnu-url
            guix-git-tree-url
@@ -175,7 +176,11 @@
      (let* ((page-number (cons "page-number" 1))
            (path (path-join base-path "index.html"))
            (items
-            (cons "items" (first grouped-data)))
+             (match grouped-data
+               (()
+                (cons "items" '()))
+               ((head _ ...)
+                (cons "items" head))))
            (new-context
             (append context
                     (list items page-number total-pages))))