diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-18 23:40:22 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | 63d9b64d5321f5a62806677be229512aacb01fed (patch) | |
| tree | b6c7e21c0c22098595eaff820bdeab73c147bd4c /build-farm-url.el | |
| parent | Factorize defining system types (diff) | |
| download | emacs-build-farm-63d9b64d5321f5a62806677be229512aacb01fed.tar.gz | |
Distinguish nix and guix for opening build logs
* build-farm-url.el (build-farm-build-log-url): Add 'raw' keyword argument.
* build-farm-build.el (build-farm-build-view-log): Open build log in
emacs or browser, and use 'guix-build-log-mode' depending on the
package manager of the build farm.
Diffstat (limited to 'build-farm-url.el')
| -rw-r--r-- | build-farm-url.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/build-farm-url.el b/build-farm-url.el index 6a5e62e..8424024 100644 --- a/build-farm-url.el +++ b/build-farm-url.el @@ -119,11 +119,13 @@ Skip ARG, if VALUE is nil or an empty string." See `build-farm-url' for the meaning of ROOT-URL." (build-farm-url root-url "build/" (number-to-string id))) -(cl-defun build-farm-build-log-url (id &key root-url) - "Return URL of the log file of a build ID. +(cl-defun build-farm-build-log-url (id &key root-url raw) + "Return URL of the build log of a build ID. +If RAW is non-nil, return url of the raw build log file. See `build-farm-url' for the meaning of ROOT-URL." (concat (build-farm-build-url id :root-url root-url) - "/log/raw")) + "/log" + (if raw "/raw" ""))) (cl-defun build-farm-build-latest-api-url (number &key root-url project jobset job system) |