diff options
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) |