diff options
| author | Alex Kost <alezost@gmail.com> | 2018-08-26 12:35:40 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-08-26 12:35:40 +0300 |
| commit | a0a6cb946d035543f8607d9e38ff6c782cf327a2 (patch) | |
| tree | 81558b07a6537d576faaceb76db5451c500a9407 | |
| parent | popup: Handle null number of builds (diff) | |
| download | emacs-build-farm-a0a6cb946d035543f8607d9e38ff6c782cf327a2.tar.gz | |
jobset: Add "B" key binding to Jobset List
* build-farm-jobset.el (build-farm-cuirass-jobset-list-latest-builds):
New command.
(build-farm-cuirass-jobset-list-mode-map): Bind it to "B".
(build-farm-cuirass-jobset-list-default-hint): New variable.
(build-farm-cuirass-jobset-list-hint): New procedure.
| -rw-r--r-- | build-farm-jobset.el | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/build-farm-jobset.el b/build-farm-jobset.el index 0dbdd7f..e0645f2 100644 --- a/build-farm-jobset.el +++ b/build-farm-jobset.el @@ -287,10 +287,24 @@ The BUTTON file name is relative to guix source tree." :describe-function 'build-farm-list-describe :mode-name "Cuirass-Jobset-List" :buffer-name "*Farm Jobsets*" + :hint 'build-farm-cuirass-jobset-list-hint :format '((name nil 30 t) (proc-input nil 20 t) (proc-file build-farm-cuirass-jobset-list-get-file 20 t))) +(let ((map build-farm-cuirass-jobset-list-mode-map)) + (define-key map (kbd "B") 'build-farm-cuirass-jobset-list-latest-builds)) + +(defvar build-farm-cuirass-jobset-list-default-hint + '(("\\[build-farm-cuirass-jobset-list-latest-builds]") + " show latest builds of the current jobset;\n")) + +(defun build-farm-cuirass-jobset-list-hint () + "Return hint string for a jobset-list buffer." + (bui-format-hints + build-farm-cuirass-jobset-list-default-hint + (bui-default-hint))) + (defun build-farm-cuirass-jobset-list-get-file (file-name &optional _) "Return FILE-NAME button specification for `tabulated-list-entries'." (bui-get-non-nil file-name @@ -298,6 +312,18 @@ The BUTTON file name is relative to guix source tree." :type 'build-farm-cuirass-jobset-file 'file-name file-name))) +(defun build-farm-cuirass-jobset-list-latest-builds (number &rest args) + "Display latest NUMBER of builds of the current jobset. +Interactively, use `build-farm-number-of-builds' variable for +NUMBER. With prefix argument, prompt for it and for the other +ARGS." + (interactive + (let ((entry (bui-list-current-entry))) + (build-farm-build-latest-prompt-args + :jobset (bui-entry-non-void-value entry 'name)))) + (apply #'build-farm-get-display + (build-farm-current-url) 'build 'latest number args)) + ;;; Interactive commands |