diff options
| author | Alex Kost <alezost@gmail.com> | 2018-08-25 23:41:06 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-08-26 00:06:26 +0300 |
| commit | e1f97aa68e8a8028bb64f4017edcc583d91a7e07 (patch) | |
| tree | b72b0514beedee0d46051b4bfaff563e7d478995 /build-farm-jobset.el | |
| parent | Add new lines after URLs in Info buffers (diff) | |
| download | emacs-build-farm-e1f97aa68e8a8028bb64f4017edcc583d91a7e07.tar.gz | |
jobset: Add ID parameter if it is missing
* build-farm-jobset.el (build-farm-cuirass-jobset-filter-id): New procedure.
(build-farm-cuirass-jobset-filters): Add it.
Diffstat (limited to 'build-farm-jobset.el')
| -rw-r--r-- | build-farm-jobset.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/build-farm-jobset.el b/build-farm-jobset.el index 3ba7589..0dbdd7f 100644 --- a/build-farm-jobset.el +++ b/build-farm-jobset.el @@ -58,7 +58,7 @@ (concat project "/" jobset)) (defun build-farm-hydra-jobset-filter-id (entry) - "Add 'ID' parameter to 'jobset' ENTRY." + "Add ID parameter to Hydra jobset ENTRY." (cons `(id . ,(build-farm-hydra-jobset-id (bui-entry-non-void-value entry 'project) (bui-entry-non-void-value entry 'name))) @@ -183,11 +183,21 @@ ARGS." (build-farm-define-entry-type cuirass-jobset :search-types '((all . build-farm-cuirass-jobsets-url)) + :filters '(build-farm-cuirass-jobset-filter-id) :titles '((proc . "Procedure") (proc-input . "Procedure input") (proc-file . "Procedure file") (proc-args . "Procedure arguments"))) +(defun build-farm-cuirass-jobset-filter-id (entry) + "Add ID parameter to Cuirass jobset ENTRY if needed." + ;; In the past, Cuirass returned jobset ID but not anymore (is it + ;; temporary?). + (if (bui-void-value? (bui-entry-id entry)) + (cons `(id . ,(bui-entry-non-void-value entry 'name)) + entry) + entry)) + (defface build-farm-cuirass-jobset-file '((t :inherit bui-file-name)) "Face used for file name of a jobset's procedure." |