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