diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-18 23:04:02 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | b5a4de0b0bd8caaa3b5f5050296c2b9c73789cd5 (patch) | |
| tree | 60574b4b4f1515b0b1dcc1ba7ef62198c37ed543 /build-farm.el | |
| parent | Use per-buffer build farm URL (diff) | |
| download | emacs-build-farm-b5a4de0b0bd8caaa3b5f5050296c2b9c73789cd5.tar.gz | |
Factorize defining system types
* build-farm-url.el (build-farm-url-package-manager): New function.
* build-farm.el (build-farm-system-types): Use it.
Diffstat (limited to 'build-farm.el')
| -rw-r--r-- | build-farm.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/build-farm.el b/build-farm.el index 46cb3e0..454f77a 100644 --- a/build-farm.el +++ b/build-farm.el @@ -77,16 +77,12 @@ (defun build-farm-system-types (&optional url) "Return a list of systems supported by URL. If URL is nil, use `build-farm-url'." - (or url (setq url build-farm-url)) - (cond ((string-match-p "nix" url) - build-farm-nix-system-types) - ((or (string-match-p "gnu" url) - (string-match-p "guix" url)) - build-farm-guix-system-types) - (t - (delete-dups - (append build-farm-nix-system-types - build-farm-guix-system-types))))) + (cl-case (build-farm-url-package-manager url) + (nix build-farm-nix-system-types) + (guix build-farm-guix-system-types) + (t (delete-dups + (append build-farm-nix-system-types + build-farm-guix-system-types))))) (defvar build-farm-job-regexp ".+\\.[^.]+" |