05/12: swh: ‘origin-visits’ takes an optional ‘max’ parameter.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ed9d7d84314d4bea1ff610420cf09f79d9d82719
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Feb 20 14:38:23 2024 +0100

    swh: ‘origin-visits’ takes an optional ‘max’ parameter.
    
    * 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 --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 @@ and use of ALGORITHM."
                              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))))))