branch: externals/zuul
commit c27f081382d90e3210e04e00a2b9fa3607afcc8d
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>

    Add branch to query interface
---
 zuul.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/zuul.el b/zuul.el
index 4e8cb2af9e..74253c82ff 100644
--- a/zuul.el
+++ b/zuul.el
@@ -367,15 +367,17 @@ the parameter to pass to it.  Examples of query functions 
are:
                            change
                            project
                            patchset
+                           branch
                            ref
                            (limit "10000"))
   "Return a list of `zuul-build' objects.
 
-Optionally provide CHANGE, PROJECT, PATCHSET, REF and LIMIT."
+Optionally provide CHANGE, PROJECT, PATCHSET, BRANCH, REF and LIMIT."
   (let* ((params `(("limit" ,limit)
                    ,(and change `("change" ,change))
                    ,(and patchset `("patchset" ,patchset))
                    ,(and project `("project" ,project))
+                   ,(and branch `("branch" ,branch))
                    ,(and ref `("ref" ,ref))))
          (response
           (zuul--rest-request
@@ -387,6 +389,7 @@ Optionally provide CHANGE, PROJECT, PATCHSET, REF and 
LIMIT."
                               change
                               project
                               patchset
+                              result
                               (limit "200"))
   "Return a list of `zuul-buildset' objects.
 
@@ -394,6 +397,7 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
   (let* ((params `(("limit" ,limit)
                    ,(and change `("change" ,change))
                    ,(and patchset `("patchset" ,patchset))
+                   ,(and result `("result" ,result))
                    ,(and project `("project" ,project))))
          (response
           (zuul--rest-request
@@ -411,9 +415,7 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
 (defun zuul-switch-build ()
   "Switch to another build."
   (interactive)
-  (let ((zuul--builds zuul--current-builds))
-    (zuul--open-build-log
-     (zuul--builds zuul--current-build))))
+  (zuul--open-build-log zuul--current-builds))
 
 (defun zuul-switch-buildset ()
   "Switch to a build from a specific buildset."

Reply via email to