diff options
Diffstat (limited to 'buildbot-client.el')
| -rw-r--r-- | buildbot-client.el | 20 |
1 files changed, 3 insertions, 17 deletions
diff --git a/buildbot-client.el b/buildbot-client.el index a1aa28b..2d808f5 100644 --- a/buildbot-client.el +++ b/buildbot-client.el @@ -1,6 +1,9 @@ ;; -*- lexical-binding: t; -*- (require 'buildbot-utils) +(defvar buildbot-host) +(defvar buildbot-builders) + (defun buildbot-api-change (attr) (buildbot-url-fetch-json (format @@ -60,26 +63,9 @@ (defun buildbot-get-build-by-buildid (buildid) (buildbot-api-build (list (cons 'buildid buildid)))) -(defun buildbot-get-builds-by-revision (revision) - (alist-get 'builds (buildbot-get-change-by-revision revision))) - -(defun buildbot-get-failed-builds-by-revision (revision) - (seq-filter - (lambda (build) - (not (equal (alist-get 'state_string build) "build successful"))) - (buildbot-get-builds-by-revision revision))) - -(defun buildbot-format-builds-by-revision (revision) - (mapcar - 'buildbot-format-build - (buildbot-get-builds-by-revision revision))) - (defun buildbot-get-steps-by-buildid (buildid) (alist-get 'steps (buildbot-api-step buildid))) -(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 |