diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-16 21:32:54 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | 8ef3d8339f28aed87601544cf3bce5b66bd38ab2 (patch) | |
| tree | 1e6743512576054667d0804c5374da413c0f1ad1 /build-farm-jobset.el | |
| parent | project: Add "B" key to the List buffer (diff) | |
| download | emacs-build-farm-8ef3d8339f28aed87601544cf3bce5b66bd38ab2.tar.gz | |
Add "Builds" button everywhere
I.e., to "Build Info", "Jobset Info", "Project Info" buffers.
* build-farm-build.el (build-farm-build-define-button): Remove macro.
(build-farm-build-info-insert-builds-button)
(build-farm-build-info-insert-button)
(build-farm-build-info-insert-project)
(build-farm-build-info-insert-jobset)
(build-farm-build-info-insert-job)
(build-farm-build-info-insert-system): New procedures.
* build-farm-jobset.el (build-farm-jobset-info-insert-project): Use
'build-farm-build-info-insert-builds-button'.
* build-farm-project.el (build-farm-project-info-insert-jobset): Likewise.
Diffstat (limited to 'build-farm-jobset.el')
| -rw-r--r-- | build-farm-jobset.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/build-farm-jobset.el b/build-farm-jobset.el index c864f88..6d4f3e8 100644 --- a/build-farm-jobset.el +++ b/build-farm-jobset.el @@ -94,16 +94,11 @@ See `build-farm-search-url' for the meaning of SEARCH-TYPE and ARGS." (defun build-farm-jobset-info-insert-project (project entry) "Insert PROJECT button for the jobset ENTRY." (let ((jobset (bui-entry-non-void-value entry 'name))) - (bui-insert-button - project 'build-farm-build-project - 'action (lambda (btn) - (let ((args (build-farm-build-latest-prompt-args - :project (button-get btn 'project) - :jobset (button-get btn 'jobset)))) - (apply #'build-farm-build-get-display - 'latest args))) - 'project project - 'jobset jobset))) + (bui-format-insert project 'build-farm-build-info-project) + (bui-insert-indent) + (build-farm-build-info-insert-builds-button + :project project + :jobset jobset))) (defun build-farm-jobset-info-insert-url (entry) "Insert URL for the jobset ENTRY." |