diff options
Diffstat (limited to 'build-farm-url.el')
| -rw-r--r-- | build-farm-url.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/build-farm-url.el b/build-farm-url.el index 0280d24..cc21150 100644 --- a/build-farm-url.el +++ b/build-farm-url.el @@ -123,14 +123,13 @@ Skip ARG, if VALUE is nil or an empty string." (build-farm-api-url "queue" `(("nr" . ,number)))) -(defun build-farm-jobset-url (project-or-id &optional jobset) +(cl-defun build-farm-jobset-url (&key project jobset jobset-id) "Return URL of a PROJECT's JOBSET. -If a single argument (PROJECT-OR-ID) is specified, it should have -a form 'project/jobset'." - (let ((jobset-id (if jobset - (concat project-or-id "/" jobset) - project-or-id))) - (build-farm-url "jobset/" jobset-id))) +You should specify either a single JOBSET-ID argument (it should have +a form 'project/jobset') or PROJECT and JOBSET arguments." + (build-farm-url "jobset/" + (or jobset-id + (concat project "/" jobset)))) (defun build-farm-jobset-api-url (project) "Return API URL for jobsets by PROJECT." |