From f5a35a82a62612fa8f6537b4da6ebdea8192a196 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 30 Mar 2023 00:55:55 +1100 Subject: started working on builder view --- buildbot-view.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'buildbot-view.el') diff --git a/buildbot-view.el b/buildbot-view.el index 8e3590d..ebeef70 100644 --- a/buildbot-view.el +++ b/buildbot-view.el @@ -229,6 +229,15 @@ (interactive "sBranch name: ") (buildbot-view-open 'branch `((branch . ,branch)))) +;;;###autoload +(defun buildbot-builder-open (builder-name) + (interactive (list (completing-read + "Builder name: " + (mapcar + (lambda (builder) (alist-get 'name builder)) + buildbot-builders)))) + (buildbot-view-open 'builder `((builder . ,builder)))) + (defun buildbot-view-update () (unless (derived-mode-p 'buildbot-view-mode) (error "Not in buildbot view mode")) -- cgit v1.2.3