From fc9c44b715ead00564c30341c9b05cf4d00b66a5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 13 Dec 2019 17:13:27 +0000
Subject: [PATCH] Add a utility to help generate next page links

---
 guix-data-service/web/html-utils.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/guix-data-service/web/html-utils.scm b/guix-data-service/web/html-utils.scm
index a987984..af8c2d8 100644
--- a/guix-data-service/web/html-utils.scm
+++ b/guix-data-service/web/html-utils.scm
@@ -16,9 +16,13 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 (define-module (guix-data-service web html-utils)
+  #:use-module (srfi srfi-1)
   #:use-module (ice-9 match)
+  #:use-module (guix-data-service web query-parameters)
   #:export (sexp-div
 
+            next-page-link
+
             build-status-value->display-string
             build-status-span
             build-status-alist->build-icon))
@@ -38,6 +42,19 @@
     ((and string val)
      val)))
 
+(define (next-page-link path
+                        query-parameters
+                        field
+                        value)
+  (string-append
+   path
+   "?"
+   (query-parameters->string
+    `((,field . ,value)
+      ,@(alist-delete
+         field
+         query-parameters)))))
+
 (define (build-status-value->display-string value)
   (assoc-ref
    '(("scheduled" . "Scheduled")