From 8834f4617cc084bb5c4b09569bcc06f5dfa301d3 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sat, 25 Aug 2018 23:58:49 +0300 Subject: 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. --- build-farm-url.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'build-farm-url.el') 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 -- cgit v1.2.3