aboutsummaryrefslogtreecommitdiff
path: root/buildbot-utils.el
diff options
context:
space:
mode:
authorYuchen Pei <id@ypei.org>2023-07-15 16:30:54 +1000
committerYuchen Pei <id@ypei.org>2023-07-15 16:30:54 +1000
commit6583303218c19c394eac34a792e4a326e1c19b0d (patch)
treec33e31d1cc2494f2be372fad923a8afd94866990 /buildbot-utils.el
parent69a087571aa807008ba2f792926a2bda29d524bb (diff)
Adding support for more instances
- Pass buildbot-host between buffers - Set buildbot-builders automatically - When the Changes API does not return builds, fetch the builds in a separate call This last change allows `buildbot-revision-open' to work with more instances, including python and buildbot. Also updated README with these changes, as well as ELPA installation info.
Diffstat (limited to 'buildbot-utils.el')
-rw-r--r--buildbot-utils.el20
1 files changed, 11 insertions, 9 deletions
diff --git a/buildbot-utils.el b/buildbot-utils.el
index d016330..f28ab75 100644
--- a/buildbot-utils.el
+++ b/buildbot-utils.el
@@ -170,15 +170,17 @@ The changes should be of the same revision."
(let* ((first-change (elt changes 0))
(revision-info (buildbot-get-revision-info-from-change first-change))
(changes-info
- (mapcar (lambda (change)
- (list
- (assq 'branch change)
- (assq 'builds change)
- (cons 'build-stats
- (buildbot-get-build-stats
- (alist-get 'builds change)))
- (assq 'revision first-change)))
- changes)))
+ (mapcar
+ (lambda (change)
+ (append
+ (list
+ (assq 'branch change)
+ (assq 'builds change)
+ (assq 'revision first-change))
+ (when-let ((builds (assq 'builds change)))
+ `((build-stats . ,(buildbot-get-build-stats
+ (cdr builds)))))))
+ changes)))
`((revision-info . ,revision-info) (changes-info . ,changes-info))))
(provide 'buildbot-utils)