diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-21 22:53:02 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | f355dc9cd039e3ac21e266eee7dcb91e1beaaaa6 (patch) | |
| tree | 5777467ff4bd00a1b4c46d8c83bf78525bf5b150 /build-farm.el | |
| parent | Do not hardcode project names (diff) | |
| download | emacs-build-farm-f355dc9cd039e3ac21e266eee7dcb91e1beaaaa6.tar.gz | |
Complete jobset names when possible
* build-farm.el (build-farm-jobset-names): New function.
(build-farm-read-jobset): Add 'project' argument.
* build-farm-build.el (build-farm-build-latest-prompt-args): Adjust
accordingly.
Diffstat (limited to 'build-farm.el')
| -rw-r--r-- | build-farm.el | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/build-farm.el b/build-farm.el index 94104db..96e654a 100644 --- a/build-farm.el +++ b/build-farm.el @@ -203,6 +203,13 @@ SEARCH-TYPE and ARGS." (mapcar #'bui-entry-id (build-farm-get-project-entries-once url))) +(defun build-farm-jobset-names (project &optional url) + "Return jobsets for PROJECT from URL build farm." + (bui-entry-non-void-value + (bui-entry-by-id (build-farm-get-project-entries-once url) + project) + 'jobsets)) + (build-farm-define-readers :require-match nil :completions-getter build-farm-project-names @@ -211,11 +218,6 @@ SEARCH-TYPE and ARGS." (build-farm-define-readers :require-match nil - :single-reader build-farm-read-jobset - :single-prompt "Jobset: ") - -(build-farm-define-readers - :require-match nil :single-reader build-farm-read-job :single-prompt "Job: ") @@ -225,6 +227,14 @@ SEARCH-TYPE and ARGS." :single-reader build-farm-read-system :single-prompt "System: ") +(defun build-farm-read-jobset (project &optional prompt initial-input) + "Read jobset for PROJECT from minibuffer. +See `completing-read' for PROMPT and INITIAL-INPUT." + (build-farm-completing-read + (or prompt "Jobset: ") + (build-farm-jobset-names project) + nil nil initial-input)) + ;;; Filters for processing raw entries |