diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-17 22:42:35 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | 2ab552a228804ce8983947e40f31225b3f32fbb3 (patch) | |
| tree | be2015537a0663001a76081f1c1c0e3d9d372d22 /build-farm-build.el | |
| parent | Use key arguments for 'build-farm-jobset-url' (diff) | |
| download | emacs-build-farm-2ab552a228804ce8983947e40f31225b3f32fbb3.tar.gz | |
Add and use 'build-farm-get-display'
Instead of 'build-farm-ENTRY-TYPE-get-display' functions.
* build-farm.el (build-farm-get-display): New procedure.
* build-farm-build.el (build-farm-build-get-display): Remove.
(build-farm-build-info-insert-builds-button)
(build-farm-latest-builds, build-farm-queued-builds): Adjust accordingly.
* build-farm-jobset.el (build-farm-jobset-get-display): Remove.
(build-farm-jobsets): Adjust accordingly.
* build-farm-project.el (build-farm-project-get-display): Remove.
(build-farm-projects): Adjust accordingly.
Diffstat (limited to 'build-farm-build.el')
| -rw-r--r-- | build-farm-build.el | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/build-farm-build.el b/build-farm-build.el index 9c2ee6e..e919001 100644 --- a/build-farm-build.el +++ b/build-farm-build.el @@ -45,12 +45,6 @@ for the number of builds." :type 'integer :group 'build-farm-build) -(defun build-farm-build-get-display (search-type &rest args) - "Search for builds and show results. -See `build-farm-search-url' for the meaning of SEARCH-TYPE and ARGS." - (apply #'bui-list-get-display-entries - 'build-farm-build search-type args)) - (cl-defun build-farm-build-latest-prompt-args (&key project jobset job system) "Prompt for and return a list of 'latest builds' arguments." @@ -268,8 +262,8 @@ See `build-farm-build-status-alist'." :jobset (button-get btn 'jobset) :job (button-get btn 'job) :system (button-get btn 'system)))) - (apply #'build-farm-build-get-display - 'latest args))) + (apply #'build-farm-get-display + 'build 'latest args))) (concat "Show latest builds" (let ((thing (cond (job "job") (system "system") @@ -398,8 +392,8 @@ Interactively, use `build-farm-number-of-builds' variable for NUMBER. With prefix argument, prompt for it and for the other ARGS." (interactive (build-farm-build-latest-prompt-args)) - (apply #'build-farm-build-get-display - 'latest number args)) + (apply #'build-farm-get-display + 'build 'latest number args)) ;;;###autoload (defun build-farm-queued-builds (number) @@ -412,7 +406,7 @@ NUMBER. With prefix argument, prompt for it." (read-number "Number of queued builds: " build-farm-number-of-builds) build-farm-number-of-builds))) - (build-farm-build-get-display 'queue number)) + (build-farm-get-display 'build 'queue number)) (provide 'build-farm-build) |