diff options
author | Ludovic Courtès <ludo@gnu.org> | 2024-02-20 14:38:23 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-03-09 18:55:49 +0100 |
commit | ed9d7d84314d4bea1ff610420cf09f79d9d82719 (patch) | |
tree | f04f841e0c26e6864b4e840f33e7e8f8431409f3 /guix | |
parent | a813d6890b9ba69f6a738b43919a6359478868cd (diff) |
swh: ‘origin-visits’ takes an optional ‘max’ parameter.
* guix/swh.scm (origin-visits): Add optional ‘max’ parameter and honor
it.
Change-Id: I642d7d4b0672b68fb5c7ce2b49161307e13d3c95
Diffstat (limited to 'guix')
-rw-r--r-- | guix/swh.scm | 9 |
1 files 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)))))) |