diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-22 19:21:57 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | 144bf69255c920fc9fc379be02a0d8d8521bf9b1 (patch) | |
| tree | 3ec2d425fae8c86e589f1e6af38b3d81989f74c8 /build-farm-url.el | |
| parent | Add jobset button (diff) | |
| download | emacs-build-farm-144bf69255c920fc9fc379be02a0d8d8521bf9b1.tar.gz | |
Add project url to Project Info buffer
* build-farm-url.el (build-farm-project-url): Add 'project' keyword argument.
* build-farm-project.el (build-farm-project-info-insert-url): New procedure.
(build-farm-project-info-format): Use it.
Diffstat (limited to 'build-farm-url.el')
| -rw-r--r-- | build-farm-url.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/build-farm-url.el b/build-farm-url.el index 5147184..ac5305f 100644 --- a/build-farm-url.el +++ b/build-farm-url.el @@ -167,11 +167,13 @@ See function `build-farm-url' for the meaning of ROOT-URL." `(("project" . ,project)) :root-url root-url)) -(cl-defun build-farm-project-url (&key root-url) - "Return URL with bulid farm projects. +(cl-defun build-farm-project-url (&key root-url project) + "Return URL with build farm PROJECT. +If PROJECT is nil, return URL with all projects. See function `build-farm-url' for the meaning of ROOT-URL." - ;; Projects are received from the root build farm page. - (build-farm-url root-url)) + (if project + (build-farm-url root-url "project/" project) + (build-farm-url root-url))) ;;; Receiving data from a build farm |