From b5a4de0b0bd8caaa3b5f5050296c2b9c73789cd5 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Wed, 18 Jul 2018 23:04:02 +0300 Subject: Factorize defining system types * build-farm-url.el (build-farm-url-package-manager): New function. * build-farm.el (build-farm-system-types): Use it. --- build-farm.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) (limited to 'build-farm.el') 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 ".+\\.[^.]+" -- cgit v1.2.3