From c79dd7c405cf170996e881a422f848ed3d5e015a Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 27 Mar 2023 15:34:18 +1100 Subject: linting --- buildbot-client.el | 20 +++----------------- 1 file changed, 3 insertions(+), 17 deletions(-) (limited to 'buildbot-client.el') 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 -- cgit v1.2.3