From ee9a3a6430024de080eff96c8d0ddc59f84eb05d Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Thu, 23 Aug 2018 23:08:50 +0300
Subject: project: Add a button to list jobsets

* build-farm-project.el (build-farm-project-info-insert-jobsets): Insert
  "List" button when there are more than 1 jobset.
---
 build-farm-project.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/build-farm-project.el b/build-farm-project.el
index e1ca32e..20e84c7 100644
--- a/build-farm-project.el
+++ b/build-farm-project.el
@@ -91,6 +91,16 @@
 (defun build-farm-project-info-insert-jobsets (jobsets entry)
   "Insert JOBSETS of the project ENTRY."
   (let ((project (bui-entry-id entry)))
+    (when (cdr jobsets)
+      (bui-insert-indent)
+      (bui-insert-action-button
+       "List"
+       (lambda (btn)
+         (build-farm-get-display
+          (build-farm-current-url) 'hydra-jobset
+          'project (button-get btn 'project)))
+       "Show jobsets in a 'list' buffer"
+       'project project))
     (dolist (jobset jobsets)
       (bui-newline)
       (bui-insert-indent)
-- 
cgit v1.2.3