diff options
| author | Alex Kost <alezost@gmail.com> | 2018-08-23 23:08:50 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-08-26 00:06:26 +0300 |
| commit | ee9a3a6430024de080eff96c8d0ddc59f84eb05d (patch) | |
| tree | 08c5917f94d447c01abdf86a4054eca59e420751 /build-farm-project.el | |
| parent | Cache cuirass jobsets (diff) | |
| download | emacs-build-farm-ee9a3a6430024de080eff96c8d0ddc59f84eb05d.tar.gz | |
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.
Diffstat (limited to '')
| -rw-r--r-- | build-farm-project.el | 10 |
1 files changed, 10 insertions, 0 deletions
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) |