diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-22 23:40:21 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | f9b4828b0a04286949ac0b61af3f278a246000e6 (patch) | |
| tree | 3ff976b562fed803e4c5c5be41d2cc13b4cf202e /build-farm.el | |
| parent | Colorize names of jobsets in Jobset List buffer (diff) | |
| download | emacs-build-farm-f9b4828b0a04286949ac0b61af3f278a246000e6.tar.gz | |
Add 'build-farm-build' command
* build-farm.el (build-farm-get-entries-1): Wrap a single ID entry into
a list.
* build-farm-build.el (build-farm-build-search-types): Add 'id' search type.
(build-farm-build): New command.
Diffstat (limited to 'build-farm.el')
| -rw-r--r-- | build-farm.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/build-farm.el b/build-farm.el index 4c72512..969b098 100644 --- a/build-farm.el +++ b/build-farm.el @@ -37,6 +37,7 @@ ;; ;; - `build-farm-latest-builds' ;; - `build-farm-queued-builds' +;; - `build-farm-build' ;; - `build-farm-jobsets' ;; - `build-farm-projects' ;; - `build-farm-project' @@ -206,6 +207,12 @@ SEARCH-TYPE and ARGS." (let* ((url (apply #'build-farm-search-url root-url entry-type search-type args)) (raw-entries (build-farm-receive-data url)) + (raw-entries (cond + ((eq search-type 'id) + ;; We expect multiple entries so wrap a single + ;; ID entry into a list. + (list raw-entries)) + (t raw-entries))) (entries (apply #'build-farm-modify-objects raw-entries (build-farm-filters entry-type)))) |