diff options
author | Yuchen Pei <hi@ypei.me> | 2023-03-26 19:02:17 +1100 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2023-03-26 19:02:17 +1100 |
commit | 9714d2e9b7510d002b0bbd4fd0d6b396a72fdf8b (patch) | |
tree | 27742be276784ed198d08eb29b577e4a153face8 /buildbot-client.el | |
parent | a7e313d116b059b23ddb6efa185e3606f1da75a8 (diff) |
branch view (first imp); faces for status; revision with multiple changes
Diffstat (limited to 'buildbot-client.el')
-rw-r--r-- | buildbot-client.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/buildbot-client.el b/buildbot-client.el index a633ff0..a1aa28b 100644 --- a/buildbot-client.el +++ b/buildbot-client.el @@ -35,7 +35,7 @@ (buildbot-url-fetch-raw (format "%s/api/v2/logs/%d/raw" buildbot-host logid))) -(defun buildbot-api-recent-changes (limit) +(defun buildbot-get-recent-changes (limit) (buildbot-api-change (list (cons 'order "-changeid") (cons 'limit limit)))) (defun buildbot-get-all-builders () @@ -53,11 +53,9 @@ (defun buildbot-get-builder-name-by-id (id) (alist-get 'name (buildbot-builder-by-id id))) -(defun buildbot-get-change-by-revision (revision) - (elt - (alist-get 'changes - (buildbot-api-change (list (cons 'revision revision)))) - 0)) +(defun buildbot-get-changes-by-revision (revision) + (alist-get 'changes + (buildbot-api-change (list (cons 'revision revision))))) (defun buildbot-get-build-by-buildid (buildid) (buildbot-api-build (list (cons 'buildid buildid)))) @@ -82,4 +80,10 @@ (defun buildbot-get-logs-by-stepid (stepid) (alist-get 'logs (buildbot-api-logs stepid))) +(defun buildbot-get-changes-by-branch (branch-name limit) + (alist-get 'changes + (buildbot-api-change + (cons `(branch . ,branch-name) + (when limit `((limit . ,limit))))))) + (provide 'buildbot-client) |