diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-09-07 11:53:29 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-09-07 11:53:29 +0200 |
| commit | ea44f1917960996da5755a23bf7c1db1ecc56743 (patch) | |
| tree | d9a3fd16e85054c60ae8e326dcee10116bad1305 | |
| parent | 32ea2c67121cbdddd773fb8ecf3d548471d08246 (diff) | |
recent-bugs: Include recently submitted bugs.
| -rw-r--r-- | mumi/messages.scm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index b5a98a3..d24de85 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -342,7 +342,7 @@ we have to do this in a very convoluted way." ;; "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 "" @@ -350,10 +350,18 @@ we have to do this in a very convoluted way." #: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))) |