From 144bf69255c920fc9fc379be02a0d8d8521bf9b1 Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Sun, 22 Jul 2018 19:21:57 +0300
Subject: 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.
---
 build-farm-project.el |  9 +++++++++
 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
-- 
cgit v1.2.3