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 | |
| 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.
| -rw-r--r-- | build-farm-project.el | 9 | ||||
| -rw-r--r-- | build-farm-url.el | 10 |
2 files changed, 15 insertions, 4 deletions
diff --git a/build-farm-project.el b/build-farm-project.el index 42c5d4f..ea3eb0f 100644 --- a/build-farm-project.el +++ b/build-farm-project.el @@ -46,6 +46,7 @@ nil (description nil (simple build-farm-project-info-description)) nil + build-farm-project-info-insert-url (id format (format)) (owner format (format build-farm-project-info-owner)) (enabled format build-farm-project-info-insert-enabled) @@ -72,6 +73,14 @@ "Face used for disabled projects." :group 'build-farm-project-info-faces) +(defun build-farm-project-info-insert-url (entry) + "Insert URL for the project ENTRY." + (bui-insert-button (build-farm-project-url + :root-url (build-farm-current-url) + :project (bui-entry-id entry)) + 'bui-url) + (bui-newline)) + (defun build-farm-project-info-insert-enabled (value _entry) "Insert boolean VALUE showing whether this project is enabled." (if value 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 |