;; "search-est" does not return unique items, so we have to take
;; more and then filter the results. To allow for caching we round
;; off the current time to the start of the hour.
- (let* ((matches
+ (let* ((matches-activity
(soap-invoke* (%config 'debbugs)
search-est
""
#:attributes
`((package string-prefix "guix")
(@cdate >= ,(time-second (ago 'months 1))))))
+ (matches-new
+ (soap-invoke* (%config 'debbugs)
+ search-est
+ ""
+ #:max 50
+ #:attributes
+ `((package string-prefix "guix")
+ (date >= ,(time-second (ago 'months 1))))))
(unique (delete-duplicates
(filter-map (lambda (item)
(assoc-ref item "id"))
- matches)))
+ (append matches-new matches-activity))))
(ids (take unique (min amount (length unique)))))
(soap-invoke* (%config 'debbugs) get-status ids)))