diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-13 20:59:41 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-16 21:37:19 +0300 |
| commit | 53b540f9ce9a5ada89c8629e9b3742d42219b4de (patch) | |
| tree | 93415b069b3a9eaed5508d04b784722a396c5893 /build-farm-build.el | |
| parent | Add 'build-farm-set-url' command (diff) | |
| download | emacs-build-farm-53b540f9ce9a5ada89c8629e9b3742d42219b4de.tar.gz | |
Move all url procedures to "build-farm-url.el"
* build-farm.el (build-farm-url-alist, build-farm-guess-url)
(build-farm-urls, build-farm-url, build-farm-read-url)
(build-farm-set-url, build-farm-type-by-url, build-farm-api-url)
(build-farm-receive-data): Move to...
* build-farm-build.el (build-farm-build-url, build-farm-build-log-url)
(build-farm-build-latest-api-url, build-farm-build-queue-api-url): Move
to...
* build-farm-jobset.el (build-farm-jobset-url)
(build-farm-jobset-api-url): Move to...
* build-farm-url.el: ... here. New file.
Diffstat (limited to 'build-farm-build.el')
| -rw-r--r-- | build-farm-build.el | 27 |
1 files changed, 1 insertions, 26 deletions
diff --git a/build-farm-build.el b/build-farm-build.el index cde8ec1..322891c 100644 --- a/build-farm-build.el +++ b/build-farm-build.el @@ -26,6 +26,7 @@ (require 'bui) (require 'build-farm) (require 'build-farm-utils) +(require 'build-farm-url) (build-farm-define-entry-type build :search-types '((latest . build-farm-build-latest-api-url) @@ -97,32 +98,6 @@ See `build-farm-search-url' for the meaning of SEARCH-TYPE and ARGS." (guix-build-log-find-file (build-farm-build-log-url id))) -;;; Defining URLs - -(defun build-farm-build-url (id) - "Return URL of a build ID." - (build-farm-url "build/" (number-to-string id))) - -(defun build-farm-build-log-url (id) - "Return URL of the log file of a build ID." - (concat (build-farm-build-url id) "/log/raw")) - -(cl-defun build-farm-build-latest-api-url - (number &key project jobset job system) - "Return API URL to receive latest NUMBER of builds." - (build-farm-api-url "latestbuilds" - `(("nr" . ,number) - ("project" . ,project) - ("jobset" . ,jobset) - ("job" . ,job) - ("system" . ,system)))) - -(defun build-farm-build-queue-api-url (number) - "Return API URL to receive the NUMBER of queued builds." - (build-farm-api-url "queue" - `(("nr" . ,number)))) - - ;;; Filters for processing raw entries (defun build-farm-build-filter-status (entry) |