ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/swh.scm (origin-visits): Add optional ‘max’ parameter and honor
it.

Change-Id: I642d7d4b0672b68fb5c7ce2b49161307e13d3c95
This commit is contained in:
Ludovic Courtès 2024-02-20 14:38:23 +01:00
parent a813d6890b
commit ed9d7d8431
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/swh.scm
View file

@ -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))))))