diff options
| author | Alex Kost <alezost@gmail.com> | 2018-08-25 23:58:49 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-08-26 00:06:26 +0300 |
| commit | 8834f4617cc084bb5c4b09569bcc06f5dfa301d3 (patch) | |
| tree | c9086ad345a9ecddafcd431983210d89507819da /build-farm-url.el | |
| parent | jobset: Add ID parameter if it is missing (diff) | |
| download | emacs-build-farm-8834f4617cc084bb5c4b09569bcc06f5dfa301d3.tar.gz | |
Add interface for Cuirass evaluations
* build-farm-url.el (build-farm-evaluation-url)
(build-farm-latest-evaluations-api-url): New procedures.
* build-farm-evaluation.el: New file.
(build-farm-latest-evaluations): New command.
* build-farm-popup.el (build-farm-popup): Add sub-popup for evaluations.
(build-farm-evaluation-popup-maybe)
(build-farm-popup-format-number-of-evaluations)
(build-farm-popup-latest-evaluations): New procedures.
Diffstat (limited to 'build-farm-url.el')
| -rw-r--r-- | build-farm-url.el | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/build-farm-url.el b/build-farm-url.el index f660041..787b331 100644 --- a/build-farm-url.el +++ b/build-farm-url.el @@ -190,6 +190,22 @@ See function `build-farm-url' for the meaning of ROOT-URL." (build-farm-url root-url "project/" project) (build-farm-url root-url))) +(cl-defun build-farm-evaluation-url (&key root-url evaluation) + "Return URL with build farm EVALUATION (number or string). +See function `build-farm-url' for the meaning of ROOT-URL." + (build-farm-url root-url "eval/" + (if (stringp evaluation) + evaluation + (number-to-string evaluation)))) + +(cl-defun build-farm-latest-evaluations-api-url (number &key root-url) + "Return API URL to receive the NUMBER of latest evaluations. +See function `build-farm-url' for the meaning of ROOT-URL." + (build-farm-api-url + "evaluations" + `(("nr" . ,number)) + :root-url root-url)) + ;;; Receiving data from a build farm |