diff mbox series

[bug#69328,v2,05/12] swh: ‘origin-visits’ takes an optional ‘max’ parameter.

Message ID 170679e479acdb28dbe721f77e4368098e7cd97e.1709636144.git.ludo@gnu.org
State New
Headers
Series [bug#69328,v2,01/12] lint: Switch to SRFI-71. |

Commit Message

Ludovic Courtès March 5, 2024, 11:06 a.m. UTC 
* guix/swh.scm (origin-visits): Add optional ‘max’ parameter and honor
it.

Change-Id: I642d7d4b0672b68fb5c7ce2b49161307e13d3c95
---
 guix/swh.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)
diff mbox series

Patch

diff --git a/guix/swh.scm b/guix/swh.scm
index 83f67423c8..14c65f6806 100644
--- a/guix/swh.scm
+++ b/guix/swh.scm
@@ -474,10 +474,11 @@  (define* (lookup-directory-by-nar-hash hash #:optional (algorithm 'sha256))
                              hash)
          external-id-target))
 
-(define (origin-visits origin)
-  "Return the list of visits of ORIGIN, a record as returned by
-'lookup-origin'."
-  (call (swh-url (origin-visits-url origin))
+(define* (origin-visits origin #:optional (max 10))
+  "Return the list of the up to MAX latest visits of ORIGIN, a record as
+returned by 'lookup-origin'."
+  (call (string-append (swh-url (origin-visits-url origin))
+                       "?per_page=" (number->string max))
         (lambda (port)
           (map json->visit (vector->list (json->scm port))))))