Add some options to the branch page

Add handling for some query parameters to the branch page. This takes
advantage of the improvements for building forms and query parameter
validation.

1 files changed, 18 insertions, 3 deletions

diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm
index 658a317..94b8b5e 100644
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@@ -348,12 +348,27 @@
             (view-branches
              (all-branches-with-most-recent-commit conn))))
     ((GET "branch" branch-name)
-     (apply render-html
+     (let ((parsed-query-parameters
+            (parse-query-parameters
+             request
+             `((after_date     ,parse-datetime)
+               (before_date    ,parse-datetime)
+               (limit_results  ,parse-result-limit #:default 100)))))
+       (apply
+        render-html
+        (if (any-invalid-query-parameters? parsed-query-parameters)
+            (view-branch branch-name parsed-query-parameters '())
             (view-branch
              branch-name
-             (most-recent-100-commits-for-branch
+             parsed-query-parameters
+             (most-recent-commits-for-branch
               conn
-              branch-name))))
+              branch-name
+              #:limit (assq-ref parsed-query-parameters 'limit_results)
+              #:after-date (assq-ref parsed-query-parameters
+                                     'after_date)
+              #:before-date (assq-ref parsed-query-parameters
+                                      'before_date)))))))
     ((GET "gnu" "store" filename)
      (if (string-suffix? ".drv" filename)
          (render-derivation conn (string-append "/gnu/store/" filename))