diff options
author | Yuchen Pei <hi@ypei.me> | 2023-03-27 15:34:18 +1100 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2023-03-27 15:34:18 +1100 |
commit | c79dd7c405cf170996e881a422f848ed3d5e015a (patch) | |
tree | 0549dd47bd2e428d096cd7aa23fa756809e5ebd2 /buildbot-client.el | |
parent | 47521e266136087846ef928c1377e6a0e4630ce8 (diff) |
linting
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 |