diff options
| -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 |